相册插件主要修改了三个PJBlog原文件，它们是common/library.asp、ConMenu.asp、ConContent.asp。知道怎么修改后，以后要是PJBlog再升级，就可以自己动手替换原文件了
01.在common/library.asp里找到
|
1 2 3 |
if stat_Admin=true then userPanel=userPanel+"<a href=""control.asp"" class=""sideA"">系统管理</a>" 在下面加上一句 if stat_Admin=true then userPanel=userPanel+"<a href=""photoadd.asp"" class=""sideA"">添加照片</a>" |
02.在ConMenu.asp里找到
|
1 2 3 |
<li><a href="javascript:void(0)" class="menuA" onclick="MenuClick(this,'ConContent.asp?Fmenu=General&Smenu=')"><img src="images/Control/icon/icon2.gif" alt="" border="0" class="MenuIcon"/>站点基本设置</a></li> 在它下面添加下面一句代码： <li><a href="#" class="menuA" onclick="MenuClick(this,'ConContent.asp?Fmenu=photocate&Smenu=')"><img src="images/Control/icon/icon4.gif" alt="" border="0" class="MenuIcon"/>相册分类管理</a></li> |
03.在ConContent.asp里找到
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
<% elseif Request.QueryString("Fmenu")="Categories" then '日志分类管理 在它上面添加如下代码： <%ElseIF Request.QueryString("Fmenu")="photocate" Then%> <table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" class="CContent"> <tr> <td bgcolor="#FFFFFF" class="CTitle">Pjblog相册分类管理BY</td> </tr> <%IF Request.QueryString("type")="phCate" Then%> <tr> <td align="center" bgcolor="#FFFFFF" height="48"> <%Dim ph_CateID,ph_CateName,ph_CateOrder,ph_CateImage,ph_CateEvery,ph_CateNums,ph_CateMoveTo ph_CateNums=0 ph_CateID=Split(Request.Form("cate_ID"),",") ph_CateName=Split(Request.Form("cate_Name"),",") ph_CateOrder=Split(Request.Form("cate_Order"),",") ph_CateImage=Split(Request.Form("cate_Image"),",") ph_CateMoveTo=Split(Request.Form("ph_CateMoveTo"),",") For Each ph_CateEvery IN ph_CateID IF ph_CateMoveTo(ph_CateNums)<>0 Then Conn.ExeCute("Update photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Where ph_CateID="&ph_CateID(ph_CateNums)&"") SQLQueryNums=SQLQueryNums+1 End IF Conn.Execute("Update photo_Cate SET cate_Name='"&CheckStr(ph_CateName(ph_CateNums))&"',cate_Order="&ph_CateOrder(ph_CateNums)&",cate_Image='"&CheckStr(ph_CateImage(ph_CateNums))&"' Where cate_ID="&ph_CateEvery&"") SQLQueryNums=SQLQueryNums+1 ph_CateNums=ph_CateNums+1 Next IF Request.Form("cate_Dele")<>Empty Then Conn.Execute("Delete * FROM photo_Cate Where cate_ID IN ("&Request.Form("cate_Dele")&")") Conn.Execute("Delete * FROM photo Where ph_CateID IN ("&Request.Form("cate_Dele")&")") SQLQueryNums=SQLQueryNums+2 End IF Dim ph_new_CateName,ph_new_CateOrder,ph_new_CateImage ph_new_CateName=CheckStr(Request.Form("new_CateName")) ph_new_CateOrder=CheckStr(Request.Form("new_CateOrder")) ph_new_CateImage=CheckStr(Request.Form("new_CateImage")) IF ph_new_CateName<>Empty AND ph_new_CateOrder<>Empty Then Conn.Execute("Insert INTO photo_Cate(cate_Name,cate_Order,cate_Image) VALUES ('"&ph_new_CateName&"',"&ph_new_CateOrder&",'"&ph_new_CateImage&"')") SQLQueryNums=SQLQueryNums+1 End IF Application.Lock() Application(CookieName&"_photo_Cate")="" Application.UnLock()%> <a href="?Fmenu=photocate">操作成功，请点击返回</a> </td> </tr> <%Else%> <form action="ConContent.asp?Fmenu=photocate&type=phCate" method="post" name="ph_Category" id="ph_Category"> <tr> <td align="center" valign="top" bgcolor="#FFFFFF" class="CPanel"> <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" class="CPanel"> <tr> <td nowrap="nowrap">删除？</td> <td nowrap="nowrap">名称</td> <td nowrap="nowrap">排序</td> <td nowrap="nowrap">图标</td> <td width="100%">操作</td> </tr> <%Dim Arr_ph_Cate If Not IsArray(Application(CookieName&"_photo_Cate")) Then Dim ph_CategoryList Set ph_CategoryList=Server.CreateObject("ADODB.RecordSet") SQL="Select cate_ID,cate_Name,cate_Order,cate_Image,cate_Nums FROM photo_Cate orDER BY cate_Order ASC" ph_CategoryList.Open SQL,Conn,1,1 SQLQueryNums=SQLQueryNums+1 If ph_CategoryList.EOF And ph_CategoryList.BOF Then Redim Arr_ph_Cate(3,0) Else Arr_ph_Cate=ph_CategoryList.GetRows End If ph_CategoryList.Close Set ph_CategoryList=Nothing Application.Lock Application(CookieName&"_photo_Cate")=Arr_ph_Cate Application.UnLock Else Arr_ph_Cate=Application(CookieName&"_photo_Cate") End IF Dim ph_CategoryListNums,ph_CategoryNumI ph_CategoryListNums=Ubound(Arr_ph_Cate,2) For ph_CategoryNumI=0 To ph_CategoryListNums%> <tr bgcolor="#FFFFFF"> <td align="center"><input name="cate_Dele" type="checkbox" id="cate_Dele" value=<%=""&Arr_ph_Cate(0,ph_CategoryNumI)&""%>></td> <td> <input type="hidden" id="cate_ID" name="cate_ID" value=<%=""&Arr_ph_Cate(0,ph_CategoryNumI)&""%>> <input type="text" size="15" id="cate_Name" name="cate_Name" value=<%=""&Arr_ph_Cate(1,ph_CategoryNumI)&""%>> </td> <td><input type="text" size="5" id="cate_Order" name="cate_Order" value=<%=""&Arr_ph_Cate(2,ph_CategoryNumI)&""%>></td> <td><input type="text" size="30" id="cate_Image" name="cate_Image" value=<%=""&Arr_ph_Cate(3,ph_CategoryNumI)&""%>></td> <td>移动此分类图片到：<select name="ph_CateMoveTo" id="ph_CateMoveTo"><option value="0">选择分类</option>") <%Dim ph_MoveCateNumI For ph_MoveCateNumI=0 To ph_CategoryListNums Response.Write("<option value='"&Arr_ph_Cate(0,ph_MoveCateNumI)&"'>"&Arr_ph_Cate(1,ph_MoveCateNumI)&"</option>") Next%> </select> </td> </tr> <%Next%> <tr bgcolor="#FFFFFF"> <td nowrap><strong>添加</strong>：</td> <td><input type="text" size="15" id="new_CateName" name="new_CateName"></td> <td><input type="text" size="5" id="new_CateOrder" name="new_CateOrder"></td> <td colspan="2" align="left"><input type="text" size="30" id="new_CateImage" name="new_CateImage"></td> </tr> </table> </td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value=" 确定编辑 " /></td> </tr> </form> <%End IF%> </td> </tr> </table> |
我用迅雷4下载怎么不行呀