相册插件对PJBlog原文件所做的修改

相册插件主要修改了三个PJBlog原文件，它们是common/library.asp、ConMenu.asp、ConContent.asp。知道怎么修改后，以后要是PJBlog再升级，就可以自己动手替换原文件了

01.在common/library.asp里找到

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里找到

<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里找到

<%
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>