⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_blog_cat.asp

📁 安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="mdb.asp"-->
<%Admin="blog"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/function_blog.asp"-->
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>Hxcms管理中心—BLOG管理</TITLE>
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%
'****************************************************
' Hxcms Ver7.6       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
       Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  Response.end
End If
IF Request.QueryString("action")="cat" Then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
   <tr class=Hxcmsss> 
      <td colspan="4">BLOG分类管理</td>
   </tr>
<%IF Request.QueryString("type")="EditCate" Then%>
   <tr class=Hxcmsds>
      <td align="center" height="48" colspan="4">
       <%
	Dim Edit_CateID,Edit_CateName,Edit_CateOrder,Edit_CateEvery,i,Edit_CateMoveTo
	i=0
	Edit_CateID=Split(Request.Form("cate_ID"),",")
	Edit_CateName=Split(Request.Form("cate_Name"),",")
	Edit_CateOrder=Split(Request.Form("cate_Order"),",")
	Edit_CateMoveTo=Split(Request.Form("Edit_CateMoveTo"),",")
	For Each Edit_CateEvery IN Edit_CateID
		IF Edit_CateMoveTo(i)<>0 Then
			Conn.ExeCute("UPDATE b_Content SET blog_CateID="&Edit_CateMoveTo(i)&" WHERE blog_CateID="&Edit_CateID(i)&"")
		End IF
		Conn.Execute("UPDATE b_cat SET cate_Name='"&CheckStr(Edit_CateName(i))&"',cate_Order="&Edit_CateOrder(i)&" WHERE cate_ID="&Edit_CateEvery&"")
		i=i+1
	Next
	IF Request.Form("cate_Dele")<>Empty Then
		Conn.Execute("DELETE * FROM b_cat WHERE cate_ID IN ("&Request.Form("cate_Dele")&")")
		Conn.Execute("DELETE * FROM b_Content WHERE blog_CateID IN ("&Request.Form("cate_Dele")&")")
	End IF
	Dim new_CateName,new_CateOrder
	new_CateName=CheckStr(Request.Form("new_CateName"))
	new_CateOrder=CheckStr(Request.Form("new_CateOrder"))
	IF new_CateName<>Empty AND new_CateOrder<>Empty Then
		Conn.Execute("INSERT INTO b_cat(cate_Name,cate_Order) VALUES ('"&new_CateName&"',"&new_CateOrder&")")
	End IF
	Response.Write("<a href=""admin_blog_cat.asp?action=cat"">操作成功，请点击返回</a>")%></td>
                      </tr>
                      <%Else%>
                      <form name="edit_cat" method="post" action="admin_blog_cat.asp?action=cat&type=EditCate">
                        <tr class=Hxcmsds>
                          <td width="15%" align="center">删除时选中</td>
                          <td width="20%" align="center">名称</td>
                          <td width="10%" align="center">排序</td>
                          <td width="55%">操作</td>
                        </tr>
       <%Dim jj,j
	jj=Ubound(Arr_Cat,2)
	For j=0 To jj
		Response.Write("<tr class=""Hxcmsds""><td align=""center""><input name=""cate_Dele"" type=""checkbox"" id=""cate_Dele"" value="""&Arr_Cat(0,j)&"""></td><td><input type=""hidden"" id=""cate_ID"" name=""cate_ID"" value="""&Arr_Cat(0,j)&"""><input type=""text"" size=""15"" id=""cate_Name"" name=""cate_Name"" value="""&Arr_Cat(1,j)&""" class=""button""></td><td><input type=""text"" size=""5"" id=""cate_Order"" name=""cate_Order"" value="""&Arr_Cat(2,j)&""" class=""button""></td><td>移动此分类日志到：<select name=""Edit_CateMoveTo"" id=""Edit_CateMoveTo"" class=""button""><option value=""0"">选择分类</option>")
		Dim ii
		For ii=0 To jj
			Response.Write("<option value='"&Arr_Cat(0,ii)&"'>"&Arr_Cat(1,ii)&"</option>")
		Next
		Response.Write("</select></td></tr>")
	Next
	Response.Write("<tr class=""Hxcmsds""><td>添加新分类：</td><td><input type=""text"" size=""15"" id=""new_CateName"" name=""new_CateName"" class=""button""></td><td><input type=""text"" size=""5"" id=""new_CateOrder"" name=""new_CateOrder"" class=""button""></td><td></td></tr>")%>
                        <tr>
                          <td align="center" class="Hxcmsqs" colspan="4"><input type="Submit" name="Submit" value="确定编辑" class="button"></td>
                        </tr>
               </form>
       <%End IF%>
</table>
<%ElseIF Request.QueryString("action")="Keys" Then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
   <tr class=Hxcmsss> 
      <td colspan="6">BLOG关键字管理</td>
   </tr>
   <%IF Request.QueryString("type")="editKeys" Then
		Dim Edit_KeysID,Edit_KeysText,Edit_KeysURL,Edit_KeysImage,Edit_KeysEvery
		Edit_KeysID=CheckStr(Request.Form("Keys_ID"))
		Edit_KeysText=CheckStr(Request.Form("Keys_Text"))
		Edit_KeysURL=CheckStr(Request.Form("Keys_URL"))
		Edit_KeysImage=CheckStr(Request.Form("Keys_Image"))
		Conn.Execute("UPDATE b_Keys SET key_Text='"&Edit_KeysText&"',key_URL='"&Edit_KeysURL&"',key_Image='"&Edit_KeysImage&"' WHERE key_ID="&Edit_KeysID&"")
		IF Request.Form("Keys_Dele")<>Empty Then
			Conn.Execute("DELETE * FROM b_Keys WHERE key_ID="&Request.Form("Keys_Dele"))
		End IF
		Response.Write("<tr class=""Hxcmsds""><td align=""center"" height=""48""><a href=""admin_blog_cat.asp?action=Keys"">操作成功，请点击返回</a></td></tr>")
	ElseIF Request.QueryString("type")="addKeys" Then
		Dim new_KeysText,new_KeysURL,new_KeysImage
		new_KeysText=CheckStr(Request.Form("new_KeysText"))
		new_KeysURL=CheckStr(Request.Form("new_KeysURL"))
		new_KeysImage=CheckStr(Request.Form("new_KeysImage"))
		IF new_KeysText<>Empty AND new_KeysURL<>Empty Then
			Conn.Execute("INSERT INTO b_Keys(key_Text,key_URL,key_Image) VALUES ('"&new_KeysText&"','"&new_KeysURL&"','"&new_KeysImage&"')")
		End IF
		Response.Write("<tr class=""Hxcmsds""><td align=""center"" height=""48""><a href=""admin_blog_cat.asp?action=Keys"">操作成功，请点击返回</a></td></tr>")
		Else%>
    <tr class=Hxcmsds>
      <td align="center" valign="top">
	<div style="overflow-y: scroll;overflow-x:hidden;height: 450px;"><table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
      <tr class=Hxcmsqs align="center">
	<td width="10%">删除时选中</td>
        <td width="20%">关键字</td>
	<td width="30%">链接</td>
	<td width="20%">图片名称</td>
        <td width="10%">图片预览</td>
	<td width="10%">操作</td>
     </tr>
       <%Dim Adm_keyNumI,Adm_keyNums
	Adm_keyNums=Ubound(Arr_Keys,2)
	For Adm_keyNumI=0 To Adm_keyNums
		Response.Write("<form name=""edit_Keys"" method=""post"" action=""admin_blog_cat.asp?action=Keys&type=editKeys""><tr class=Hxcmsds><td align=""center""><input name=""Keys_Dele"" type=""checkbox"" id=""Keys_Dele"" value="""&Arr_Keys(0,Adm_keyNumI)&"""></td><td><input type=""hidden"" id=""Keys_ID"" name=""Keys_ID"" value="""&Arr_Keys(0,Adm_keyNumI)&"""><input type=""text"" size=""10"" id=""Keys_Text"" name=""Keys_Text"" value="""&Arr_Keys(1,Adm_keyNumI)&""" class=""button""></td><td><input type=""text"" size=""38"" id=""Keys_URL"" name=""Keys_URL"" value="""&Arr_Keys(2,Adm_keyNumI)&""" class=""button""></td>")
		IF Arr_Keys(3,Adm_keyNumI)=Empty Then
			Response.Write("<td><input type=""text"" size=""15"" id=""Keys_Image"" name=""Keys_Image"" value=""""></td><td></td>")
		Else
			Response.Write("<td><input type=""text"" size=""15"" id=""Keys_Image"" name=""Keys_Image"" value="""&Arr_Keys(3,Adm_keyNumI)&""" class=""button""></td><td align=center><img src=""img/blog/"&Arr_Keys(3,Adm_keyNumI)&""" border=0""></td>")
		End IF
		Response.Write("<td><input type=""Submit"" name=""Submit"" value=""编 辑"" class=""button""></td></tr></form>")
	Next
	%></table></div>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -