相册 for PJBlog2 v2.6 build 03

<%ElseIF Request.QueryString("Fmenu")="photocate" Then%>
<table width="00%" border="0" align="center" cellpadding="6" cellspacing="" bgcolor="#CCCCCC" class="CContent">
<tr>
<td bgcolor="#FFFFFF" class="CTitle">Pjblog相册分类管理BY <a href=http://www.muzili.com target=_blank>戒聊</a></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_CateState,ph_CatePassword
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_CateState=Split(Request.Form("cate_State"),",")
ph_CatePassword=Split(Request.Form("cate_Password"),",")
ph_CateMoveTo=Split(Request.Form("ph_CateMoveTo"),",")
For Each ph_CateEvery IN ph_CateID
IF ph_CateMoveTo(ph_CateNums)<>0 Then
Conn.ExeCute("Up�ate photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Wh�re ph_CateID="&ph_CateID(ph_CateNums)&"")
SQLQueryNums=SQLQueryNums+
End IF
Conn.Execute("Up�ate photo_Cate SET cate_Name='"&CheckStr(ph_CateName(ph_CateNums))&"',cate_Order="&ph_CateOrder(ph_CateNums)&",cate_Image='"&CheckStr(ph_CateImage(ph_CateNums))&"',cate_State="&ph_CateState(ph_CateNums)&",cate_Password='"&CheckStr(ph_CatePassword(ph_CateNums))&"' Wh�re cate_ID="&ph_CateEvery&"")
SQLQueryNums=SQLQueryNums+
ph_CateNums=ph_CateNums+
Next
IF Request.Form("cate_Dele")<>Empty Then
Conn.Execute("Del�te * FROM photo_Cate Wh�re cate_ID IN ("&Request.Form("cate_Dele")&")")
Conn.Execute("Del�te * FROM photo Wh�re ph_CateID IN ("&Request.Form("cate_Dele")&")")
SQLQueryNums=SQLQueryNums+2
End IF
Dim ph_new_CateName,ph_new_CateOrder,ph_new_CateImage,ph_new_CateState,ph_new_CatePassword
ph_new_CateName=CheckStr(Request.Form("new_CateName"))
ph_new_CateOrder=CheckStr(Request.Form("new_CateOrder"))
ph_new_CateImage=CheckStr(Request.Form("new_CateImage"))
ph_new_CateState=Request.Form("new_CateState")
ph_new_CatePassword=CheckStr(Request.Form("new_CatePassword"))
IF ph_new_CateName<>Empty AND ph_new_CateOrder<>Empty Then
Conn.Execute("Ins�rt INTO photo_Cate(cate_Name,cate_Order,cate_Image,cate_State,cate_Password) VALUES ('"&ph_new_CateName&"',"&ph_new_CateOrder&",'"&ph_new_CateImage&"',"&ph_new_CateState&",'"&ph_new_CatePassword&"')")
SQLQueryNums=SQLQueryNums+
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="00%" border="0" cellpadding="4" cellspacing="" bgcolor="#CCCCCC" class="CPanel">
<tr>
<td nowrap="nowrap">删除</td>
<td nowrap="nowrap">名称</td>
<td nowrap="nowrap">排序</td>
<td nowrap="nowrap">图标</td>
<td nowrap="nowrap">状态(0完全公开,半公开,2私有)</td>
<td nowrap="nowrap">密码(半公开时填写)</td>
<td nowrap="nowrap">操作(移动此分类图片到)</td>
</tr>
<%Dim Arr_ph_Cate
If Not IsArray(Application(CookieName&"_photo_Cate")) Then
Dim ph_CategoryList
Set ph_CategoryList=Server.Cr�ateObject("ADODB.RecordSet")
SQL="Sel�ct cate_ID,cate_Name,cate_Order,cate_Image,cate_Nums,cate_State,cate_Password FROM photo_Cate oDER BY cate_Order ASC"
ph_CategoryList.Open SQL,Conn,,
SQLQueryNums=SQLQueryNums+
If ph_CategoryList.EOF And ph_CategoryList.BOF Then
Redim Arr_ph_Cate(6,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="4" id="cate_Name" name="cate_Name" value=<%=""&Arr_ph_Cate(,ph_CategoryNumI)&""%>>
</td>
<td><input type="text" size="2" id="cate_Order" name="cate_Order" value=<%=""&Arr_ph_Cate(2,ph_CategoryNumI)&""%>></td>
<td><input type="text" size="5" id="cate_Image" name="cate_Image" value=<%=""&Arr_ph_Cate(3,ph_CategoryNumI)&""%>></td>
<td><input type="text" size="" id="cate_State" name="cate_State" value=<%=""&Arr_ph_Cate(5,ph_CategoryNumI)&""%>>
</td>
<td><input type="text" size="0" id="cate_Password" name="cate_Password" value=<%=""&Arr_ph_Cate(6,ph_CategoryNumI)&""%>></td>
<td><sel�ct 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(,ph_MoveCateNumI)&"</option>")
Next%>
</sel�ct>
</td>
</tr>
<%Next%>
<tr bgcolor="#FFFFFF">
<td nowrap><strong>添加</strong>：</td>
<td><input type="text" size="4" id="new_CateName" name="new_CateName"></td>
<td><input type="text" size="2" id="new_CateOrder" name="new_CateOrder" value="2"></td>
<td><input type="text" size="5" id="new_CateImage" name="new_CateImage" value="../images/smilies/Face_63.gif">
</td>
<td><input type="text" size="" id="new_cateState" name="new_cateState" value="0"></td>
<td colspan="2" align="left"><input type="text" size="0" id="new_catePassword" name="new_catePassword"></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>

IF ph_CateMoveTo(ph_CateNums)<>0 Then
Conn.ExeCute("Up�ate photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Wh�re ph_CateID="&ph_CateID(ph_CateNums)&"")
SQLQueryNums=SQLQueryNums+
End IF

IF ph_CateMoveTo(ph_CateNums)<>0 Then
Dim counts
counts=Conn.ExeCute("sel�ct count(ph_CateID) From photo Wh�re ph_CateID="&ph_CateID(ph_CateNums)&"")(0)
Conn.ExeCute("Up�ate photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Wh�re ph_CateID="&ph_CateID(ph_CateNums)&"")
Conn.ExeCute("Up�ate photo_Cate SET cate_Nums=cate_Nums-"&counts&" Wh�re cate_ID="&ph_CateID(ph_CateNums)&"")
Conn.ExeCute("Up�ate photo_Cate SET cate_Nums=cate_Nums+"&counts&" Wh�re cate_ID="&ph_CateMoveTo(ph_CateNums)&"")
SQLQueryNums=SQLQueryNums+
End IF