?? admin_art.asp
字號:
<%Admin="art"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format1.asp"-->
<%
if bq<>"Hxcms" then
Response.Write("<script language=javascript>alert('非法操作！請不要非法改動本頁代碼！！');this.top.location.href='admin.asp';</script>")
response.end
end if
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登錄，或者超時了！請重新登錄');this.top.location.href='admin.asp';</script>")
response.end
else
if Request.form("MM_insert") then
if request.Form("action")="newartcat" then
sql="select * from a_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim cat_name,sid
sid=request.form("id")
cat_name=trim(replace(request.form("cat_name"),"'",""))
if cat_name="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須填寫文章分類');history.back(1);</script>")
else
rs("cat_name")=cat_name
end if
rs("sid")=sid
if founderr then
call diserror()
response.end
else
rs.update
rs.close
set rs=nothing
response.redirect "admin_art.asp"
end if
end if
if request.Form("action")="editartcat" then
if request.Form("id")="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須指定操作的對象！');history.back(1);</script>")
else
if not isInteger(request.form("id")) then
founderr=true
Response.Write("<script language=javascript>alert('非法的id參數');history.back(1);</script>")
end if
end if
if founderr then
call diserror()
response.End
end if
sql="select * from a_cat where cat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cat_name=trim(replace(request.form("cat_name"),"'",""))
if cat_name="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須填寫文章分類');history.back(1);</script>")
else
rs("cat_name")=cat_name
end if
sid=request.form("lid")
rs("sid")=sid
if founderr then
call diserror()
response.end
else
rs.update
rs.close
set rs=nothing
response.redirect "admin_art.asp"
end if
end if
if request.Form("action")="delartcat" then
if request.Form("id")="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須指定操作的對象！');history.back(1);</script>")
else
if not isInteger(request.form("id")) then
founderr=true
Response.Write("<script language=javascript>alert('非法的id參數');history.back(1);</script>")
end if
end if
if founderr then
call diserror()
response.End
end if
sql="select * from a_cat where cat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
response.redirect "admin_art.asp"
end if
end if
sql="select * from a_cat where sid=0 order by cat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%if request.QueryString("action")="" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td colspan="4" class=lanyuss>文章移動、合并管理(請慎重操作，操作后不可還原!)</font></td>
</tr>
<form method="post" action="admin_cat_hp.asp?action=art">
<tr align="center">
<td height=22 align=center class=lanyuqs>將：
<select size="1" name="cat1">
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select> 分類文章，移動到：
<select size="1" name="cat2">
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>分類里。
<input type="submit" value="移動合并" name="B2">
</td></tr>
</form>
</table><BR>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td colspan="4" class=lanyuss>文章分類管理</font></td>
</tr>
<tr align="center">
<td width="10%" class=lanyuqs>編號</td>
<td width="50%" class=lanyuqs>分類名稱</td>
<td width="20%" class=lanyuqs>子欄目</td>
<td width="20%" class=lanyuqs>操作</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center" class=lanyuds><%=rs("cat_id")%></td>
<td class=lanyuds><font color=#008000><%=rs("cat_name")%></font> [<a href="admin_art.asp?id=<%=rs("cat_id")%>&action=newartcat">添加子分類</a>]</td>
<td class=lanyuds align="center"><%
sql3 = "select * from a_cat where sid="&rs("cat_id")&""
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
response.write rs3.recordcount&"個"%></td>
<td align="center" class=lanyuds><a href="admin_art.asp?id=<%=rs("cat_id")%>&action=editartcat">編輯</a>
<a href="admin_art.asp?id=<%=rs("cat_id")%>&action=delartcat">刪除</a>
</td>
</tr>
<%sql="select * from a_cat where sid="&rs("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=lanyuds><td align="right"></td><td>├ <%=rs2("cat_name")%></td>
<td align="left">文章：<%
sql4 = "select * from art where cat_id="&rs2("cat_id")&" order by cat_id desc"
Set rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.Open sql4,conn,1,1
response.write rs4.recordcount%>篇</td>
<td align="center"><a href="admin_art.asp?id=<%=rs2("cat_id")%>&action=editartcat">編輯</a>
<a href="admin_art.asp?id=<%=rs2("cat_id")%>&action=delartcat">刪除</a></td></tr>
<%
rs2.movenext
loop
response.write "<tr class=lanyuqs><td colspan=4 align=center>"
if rs2.bof and rs2.eof then
response.write "此大類沒有子分類！"
end if
rs2.close
set rs2=nothing
%>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
<tr align="center">
<td colspan="4" class=lanyuds>當前沒有文章分類！</td>
</tr>
<%end if%>
</table>
<%end if
if request.QueryString("action")="newartcat" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<%sql="select * from a_cat where cat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<form name="form1" method="post" action="admin_art.asp">
<tr>
<td class=lanyuss>新的文章分類</td>
</tr>
<tr>
<td class=lanyuds>分類名稱
<input type="text" name="cat_name" size="40">
</td>
</tr>
<tr>
<td class=lanyuqs align="center" height="30">
<input type="submit" name="Submit" value="確定新增" class="button">
<input type="reset" name="reset" value="清空重寫" class="button">
[<a href="admin_article.asp">返回</a>] </td>
</tr> <input type="hidden" name="id" value="<%=rs("cat_id")%>">
<input type="hidden" name="action" value="newartcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editartcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('請指定操作的對象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的id參數');history.back(1);</script>")
response.end
end if
end if
sql="select * from a_cat where cat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_art.asp">
<tr>
<td class=lanyuss>修改文章分類</font></td>
</tr>
<tr>
<td class=lanyuds>分類名稱-
<input name="cat_name" type="text" class="textarea" id="cat_name" size="40" value="<%=rs("cat_name")%>">
</td>
</tr>
<tr>
<td class=lanyuds>所屬分類-
<select size="1" name="lid">
<option value="<%=rs("sid")%>">默認分類</option><br>
<option value="0">設為大類</option><br>
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
'response.write "<optgroup label='"&rs1("cat_name")&"'>"
%>
<option value="<%=rs1("cat_id")%>">├ <%=rs1("cat_name")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>
</td>
</tr>
<tr>
<td class=lanyuqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="確定修改">
<input name="reset" type="reset" class="button" id="reset" value="清空重寫">
[<a href="admin_art.asp">返回</a>] </td>
</tr>
<input type="hidden" name="id" value="<%=rs("cat_id")%>">
<input type="hidden" name="action" value="editartcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="delartcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('請指定操作的對象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -