admincp.asp

一套非常实用的博客源代码,功能全,界面简单易用.

	new_CateName=CheckStr(Request.Form("new_CateName"))
	new_CateOrder=CheckStr(Request.Form("new_CateOrder"))
	IF new_CateName<>Empty AND new_CateOrder<>Empty Then
		znwl.Execute("INSERT INTO blog_Category(cate_Name,cate_Order) VALUES ('"&new_CateName&"',"&new_CateOrder&")")
		SQLQueryNums=SQLQueryNums+1
	End IF
	Application.Lock()
	Application(CookieName&"_blog_Category")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=category"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%><form name="edit_Category" method="post" action="admincp.asp?action=category&type=EditCate">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><table width="90%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFEF">
    <td nowrap>删除？</td>
    <td nowrap>名称</td>
    <td nowrap>排序</td>
	<td width="100%">操作</td>
    </tr><%Dim Adm_CategoryListNums,Adm_CategoryNumI
	Adm_CategoryListNums=Ubound(Arr_Category,2)
	For Adm_CategoryNumI=0 To Adm_CategoryListNums
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center""><input name=""cate_Dele"" type=""checkbox"" id=""cate_Dele"" value="""&Arr_Category(0,Adm_CategoryNumI)&"""></td><td><input type=""hidden"" id=""cate_ID"" name=""cate_ID"" value="""&Arr_Category(0,Adm_CategoryNumI)&"""><input type=""text"" size=""15"" id=""cate_Name"" name=""cate_Name"" value="""&Arr_Category(1,Adm_CategoryNumI)&"""></td><td><input type=""text"" size=""5"" id=""cate_Order"" name=""cate_Order"" value="""&Arr_Category(2,Adm_CategoryNumI)&"""></td><td>移动此分类日志到：<select name=""Edit_CateMoveTo"" id=""Edit_CateMoveTo""><option value=""0"">选择分类</option>")
		Dim blog_MoveCateNumI
		For blog_MoveCateNumI=0 To Adm_CategoryListNums
			Response.Write("<option value='"&Arr_Category(0,blog_MoveCateNumI)&"'>"&Arr_Category(1,blog_MoveCateNumI)&"</option>")
		Next
		Response.Write("</select></td></tr>")
	Next
	Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap><b>添加</b>：</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></td></tr>")%></table></td>
  </tr><tr>
    <td align="center" bgcolor="#FFFFFF">
      <input type="Submit" name="Submit" value=" 确定编辑 ">
    </td>
  </tr></form><%End IF%>
</table>

<%ElseIF Request.QueryString("action")="forums" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 论坛管理</td>
  </tr><%If Request.QueryString("type")="EditForum" Then%>
  <tr>
    <td align="center" bgcolor="#FFFFFF" height="48"><%
	Dim Edit_ForumID,Edit_ForumName,Edit_ForumOrder,Edit_ForumEvery,Edit_ForumNums,Edit_ForumMoveTo
	Edit_ForumNums=0
	Edit_ForumID=Split(Request.Form("Forum_ID"),",")
	Edit_ForumName=Split(Request.Form("Forum_Name"),",")
	Edit_ForumOrder=Split(Request.Form("Forum_Order"),",")
	Edit_ForumMoveTo=Split(Request.Form("Edit_ForumMoveTo"),",")
	For Each Edit_ForumEvery  IN Edit_ForumID
		If Edit_ForumMoveTo(Edit_ForumNums)<>0 Then
			znwl.ExeCute("UPDATE blog_Threads SET thread_ForumID="&Edit_ForumMoveTo(Edit_ForumNums)&" WHERE thread_ForumID="&Edit_ForumID(Edit_ForumNums)&"")
			znwl.ExeCute("UPDATE blog_Posts SET post_ForumID="&Edit_ForumMoveTo(Edit_ForumNums)&" WHERE post_ForumID="&Edit_ForumID(Edit_ForumNums)&"")
			SQLQueryNums=SQLQueryNums+2
		End If
		znwl.Execute("UPDATE blog_Forums SET forum_Name='"&CheckStr(Edit_ForumName(Edit_ForumNums))&"',forum_Order="&Edit_ForumOrder(Edit_ForumNums)&" WHERE forum_ID="&Edit_ForumEvery&"")
		SQLQueryNums=SQLQueryNums+1
		Edit_ForumNums=Edit_ForumNums+1
	Next
	If Request.Form("Forum_Dele")<>Empty Then
		znwl.Execute("DELETE * FROM blog_Forums WHERE forum_ID IN ("&Request.Form("Forum_Dele")&")")
		znwl.Execute("DELETE * FROM blog_Threads WHERE thread_ForumID IN ("&Request.Form("Forum_Dele")&")")
		znwl.Execute("DELETE * FROM blog_Posts WHERE post_ForumID IN ("&Request.Form("Forum_Dele")&")")
		SQLQueryNums=SQLQueryNums+3
	End If
	Dim new_ForumName,new_ForumOrder
	new_ForumName=CheckStr(Request.Form("new_ForumName"))
	new_ForumOrder=CheckStr(Request.Form("new_ForumOrder"))
	If new_ForumName<>Empty And new_ForumOrder<>Empty Then
		znwl.Execute("INSERT INTO blog_Forums(forum_Name,forum_Order) VALUES ('"&new_ForumName&"',"&new_ForumOrder&")")
		SQLQueryNums=SQLQueryNums+1
	End If
	Application.Lock()
	Application(CookieName&"_blog_Forums")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=forums"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%><form name="edit_Forum" method="post" action="admincp.asp?action=forums&type=EditForum">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><table width="90%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFEF">
    <td nowrap>删除？</td>
    <td nowrap>名称</td>
    <td nowrap>排序</td>
	<td width="100%">操作</td>
    </tr><%Dim Adm_ForumsListNums,Adm_ForumsNumI
	Adm_ForumsListNums=Ubound(Arr_Forums,2)
	For Adm_ForumsNumI=0 To Adm_ForumsListNums
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center""><input name=""Forum_Dele"" type=""checkbox"" id=""Forum_Dele"" value="""&Arr_Forums(0,Adm_ForumsNumI)&"""></td><td><input type=""hidden"" id=""Forum_ID"" name=""Forum_ID"" value="""&Arr_Forums(0,Adm_ForumsNumI)&"""><input type=""text"" size=""15"" id=""Forum_Name"" name=""Forum_Name"" value="""&Arr_Forums(1,Adm_ForumsNumI)&"""></td><td><input type=""text"" size=""5"" id=""Forum_Order"" name=""Forum_Order"" value="""&Arr_Forums(2,Adm_ForumsNumI)&"""></td><td>移动此论坛帖子到：<select name=""Edit_ForumMoveTo"" id=""Edit_ForumMoveTo""><option value=""0"">选择论坛</option>")
		Dim blog_MoveForumNumI
		For blog_MoveForumNumI=0 To Adm_ForumsListNums
			Response.Write("<option value='"&Arr_Forums(0,blog_MoveForumNumI)&"'>"&Arr_Forums(1,blog_MoveForumNumI)&"</option>")
		Next
		Response.Write("</select></td></tr>")
	Next
	Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap><b>添加</b>：</td><td><input type=""text"" size=""15"" id=""new_ForumName"" name=""new_ForumName""></td><td><input type=""text"" size=""5"" id=""new_ForumOrder"" name=""new_ForumOrder""></td><td></td></tr>")%></table></td>
  </tr><tr>
    <td align="center" bgcolor="#FFFFFF">
      <input type="Submit" name="Submit" value=" 确定编辑 ">
    </td>
  </tr></form><%End If%>
</table>

<%ElseIF Request.QueryString("action")="photocate" Then%>
<table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
	<td bgcolor="#FFFFFF" class="siderbar_head">相册分类管理</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
				znwl.ExeCute("UPDATE photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" WHERE ph_CateID="&ph_CateID(ph_CateNums)&"")
				SQLQueryNums=SQLQueryNums+1
			End IF
			znwl.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
			znwl.Execute("DELETE * FROM photo_Cate WHERE cate_ID IN ("&Request.Form("cate_Dele")&")")
			znwl.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
			znwl.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="admincp.asp?action=photocate">操作成功，请点击返回</a>
	</td>
  </tr>
  <%Else%>
	<form action="admincp.asp?action=photocate&type=phCate" method="post" name="ph_Category" id="ph_Category">
  <tr>
	<td align="center" valign="top" bgcolor="#FFFFFF">
		<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
		  <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,znwl,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>
<%ElseIF Request.QueryString("action")="wordfilter" Then%><br>