📄 admin_class_edit.asp
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if
if session("flag")>2 then
errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
call diserror()
response.end
else
call main()
conn.close
set conn=nothing
end if%>
<html>
<head>
<title>网址导航--管理中心--栏目管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CSS.CSS" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<%
sub main()
%><TABLE WIDTH="100%" CELLPADDING="2" CELLSPACING="0" CLASS="HeaderTdStyle" BORDER="0" >
<TR > <TD HEIGHT="26" COLSPAN="2" ALIGN="center"><B>网址库分类目录管理</B></TD></TR> <TR>
<TD WIDTH="70" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航：</B></TD><TD HEIGHT="30" BGCOLOR="#ffffff"><A HREF="admin_class_main.asp">栏目管理首页</A> | <A HREF="admin_class_edit.asp?action=add">添加一个分类</A> | <A HREF="admin_class_edit.asp?action=updat">更新各分类数据</A> | 共计<FONT COLOR="#FF0000"><%=n%></FONT>个一级分类</TD></TR>
</TABLE><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="50"></td></tr>
</table><%select case Request("action")
case "add"
call add()
case "addsave"
call addsave()
case "edit"
call edit()
case "editsave"
call editsave()
case "unite"
call unite()
case "uniteok"
call uniteok()
case "del"
call del()
case "delok"
call delok()
case "updat"
call updat()
end select
end sub
sub add()
dim sortnum
set rs = server.CreateObject ("Adodb.recordset")
sql="select Max(sortid) from happywz_SORT"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
sortnum=1
else
sortnum=rs(0)+1
end if
if isnull(sortnum) then sortnum=1
rs.close
set rs=nothing
%> <table cellspacing="1" cellpadding="4" bgcolor="#0099CF" align="center" width="80%" class="table1">
<tr BGCOLOR="#0099CF"> <td colspan="2" height="25" class="title"><B>添加分类</B></td></tr>
<form name="addsort" method="post" action="admin_class_edit.asp?action=addsave">
<tr> <td width="37%" class="tdbg" BGCOLOR=""#0099CF"">分类名:</td><td class="tdbg" WIDTH="63%" BGCOLOR="#ffffff">
<input type="text" name="sortname"> <input type="hidden" name="newsortid" value=<%=sortnum%>>
</td></tr><tr> <td class="tdbg" WIDTH="37%" BGCOLOR=""#0099CF""><P>关键词:<BR>所生成相关页面的搜索关键词。<BR>请以逗号“,”分开。</P></td><td class="tdbg" WIDTH="63%" BGCOLOR="#ffffff"><TEXTAREA NAME="gjc" COLS="40" ROWS="3"></TEXTAREA></td></tr>
<tr>
<td class="tdbg" WIDTH="37%" BGCOLOR=""#0099CF"">上级分类:<BR>上级分类不能指定为当前类别<BR>上级分类不能指定为当前类别的下级类别</td><td class="tdbg" WIDTH="63%" BGCOLOR="#ffffff">
<SELECT NAME="resortid"> <OPTION VALUE="0">做为一级分类</OPTION> <%
sql="select * from happywz_SORT order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%> <OPTION VALUE="<%=rs("sortid")%>"<%if Request("editid")<>"" and clng(Request("editid"))=rs("sortid") then%>selected<%end if%>><%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%> → <%next
end if%> <%=rs("sort")%></OPTION> <%
rs.movenext
loop
rs.Close()
set rs=nothing
%> </SELECT></td></tr> <tr> <td colspan="2" align="center" class="tdbg" BGCOLOR="#ffffff">
<input type="submit" name="Submit" value="添 加"> </td></tr> </form></table>
<%end sub
sub addsave()
if Request("sortname")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入分类名称。"
Founderr=true
end if
if Request("gjc")="" then
Errmsg=Errmsg+"<br>"+"<li>请分类关键词。"
Founderr=true
end if
if founderr=true then
response.write Errmsg
exit sub
end if
dim reid
dim bigid
dim sortsetp
dim maxbigid
dim sml
dim newsortid
dim gjc
if Request("resortid")<>"0" then
'---------取得上级分类个项数据
sql="select * from happywz_SORT where sortid="&Request("resortid")
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
reid=rs("reid")
bigid=rs("bigid")
sortstep=rs("sortstep")
sml=rs("sml")
fromid=rs("fromid")
orders=rs("orders")
rs.close
set rs=nothing
else
set rs=conn.execute("select max(bigid) from happywz_SORT")
maxbigid=rs(0)+1
if isnull(Maxbigid) then Maxbigid=1
sql="select sortid from happywz_SORT where sortid="&Request("newsortid")
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
response.write"<SCRIPT language=JavaScript>alert('您不能指定和别的网址一样的序号。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
sortid=Request("newsortid")
end if
if maxbigid=1 then
ssml="0050"
else
sql="select * from happywz_SORT where bigid="&Maxbigid-1
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
sml=rs("sml")
rs.close
set rs=nothing
ssml=right(sml,4)
ssml=ssml+1
ssml=right("0000"&ssml,4)
end if
end if
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from happywz_SORT"
rs.Open sql,conn,1,2
rs.AddNew
if Request("resortid")<>"0" then
rs("sortstep")=sortstep+1
rs("bigid")=bigid
rs("reid") =Request("resortid")
rs("sml") =sml
rs("orders") =Request("newsortid")
if fromid="0" then
rs("fromid")="|" &Request("resortid")
else
rs("fromid")=fromid & "|" & Request("resortid")
end if
rs("ymgjc")=Request("gjc")
else
rs("sortstep")=0
rs("bigid")=maxbigid
rs("reid")=0
rs("fromid")="|" &Request.form("newsortid")
rs("orders")=0
rs("sml")="happywz_CN"&ssml
end if
rs("sortid") = Request.form("newsortid")
rs("sort")=Request("sortname")
rs("ymgjc")=Request("gjc")
rs.Update
rs.Close
set rs=nothing
if Request("resortid")<>"0" then
if sortstep>0 then
'更新该版面排序以及大于本需要和同在本分类下的版面排序序号
conn.execute("update happywz_SORT set orders=orders+1 where bigid="&bigid&" and orders>"&orders)
conn.execute("update happywz_SORT set orders="&orders&"+1 where sortid="&Request.form("newsortid"))
else
'当上级分类深度为0的时候只要更新上级分类版面数和该版面排序序号即可
set rs=conn.execute("select max(orders) from happywz_SORT where sortid="&Request.form("newsortid"))
conn.execute("update happywz_SORT set orders="&rs(0)&"+1 where sortid="&Request.form("newsortid"))
end if
end if
response.redirect "admin_class_main.asp"
response.end
end sub
sub edit ()
if Request("editid")<>"" then
sql_001="select sortid,reid,ymgjc from happywz_SORT where sortid="&Request("editid")
set rs_001=server.createobject("ADODB.Recordset")
rs_001.open sql_001,conn,1,1
if not rs_001.eof then
editgjc=rs_001("ymgjc")
end if
rs_001.close
set rs_001=nothing
end if%> <table cellspacing="1" cellpadding="4" align="center" width="80%" class="table1" BGCOLOR="#0099CF">
<tr BGCOLOR="#0099CF"> <td colspan="2" height="25" class="title"><B>修改分类</B></td></tr>
<form name="modisort" method="post" action="admin_class_edit.asp?action=editsave">
<tr> <td width="37%" class="tdbg" BGCOLOR=""#0099CF"">分类名：</td><td class="tdbg" BGCOLOR="#ffffff" WIDTH="63%">
<INPUT TYPE="text" NAME="editsort" VALUE="<%=Request("editsort")%>"><%=Request("editsort")%></td></tr>
<tr> <td class="tdbg" BGCOLOR=""#0099CF"" WIDTH="37%">关键词:<BR>所生成相关页面的搜索关键词。<BR>每个关键词之间请以逗号“,”分开。</td><td class="tdbg" BGCOLOR="#ffffff" WIDTH="63%">
<TEXTAREA NAME="gjc" COLS="40" ROWS="3"><%=editgjc%> </TEXTAREA></td></tr> <tr BGCOLOR="#ffffff">
<td colspan="2" align="center" class="tdbg"> <input type="submit" name="Submit22" value="修 改">
<INPUT TYPE="hidden" NAME="editid" value=<%=Request("editid")%>><INPUT TYPE="hidden" NAME="editid2" VALUE=<%=Request("editsort")%>></td></tr>
</form></table><%end sub
sub editsave()
if Request("editsort")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入要修改的分类名称。"
Founderr=true
end if
if Request("gjc")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入分类关键词。"
Founderr=true
end if
if founderr=true then
response.write Errmsg
exit sub
end if
conn.execute "update happywz_SORT set sort='"&Request("editsort")&"',ymgjc='"&Request("gjc")&"' where sortid="&cint(Request("editid"))
conn.execute "update happywz_weburl set sort='"&Request("editsort")&"' where sort='"&Request("editid2")&"'"
response.write "<br>"+"<li>修改成功。"
end sub
sub unite()%> <table cellspacing="1" cellpadding="4" bgcolor="#0099CF" align="center" width="80%" class="table1">
<tr bgcolor="#cc0066" > <td BGCOLOR="#0099CF" height="25" class="title"><B>数据转移</B></td></tr>
<form method="post" action="admin_class_edit.asp?action=uniteok"> <tr bgcolor="#FFF2E6">
<td class="tdbg" BGCOLOR="#ffffff">将分类<SELECT NAME="unitesort1"> <%
sql="select * from happywz_SORT order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%> <OPTION VALUE="<%=rs("sort")%>"<%if Request("editid")<>"" and clng(Request("editid"))=rs("sortid") then%>selected<%end if%>><%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%> -- <%next
end if%> <%=rs("sort")%></OPTION> <%
rs.movenext
loop
rs.Close()
set rs=nothing
%></SELECT>中的数据转移到<SELECT NAME="unitesort2"> <OPTION VALUE="" selected>选择一个分类</OPTION>
<%
sql="select * from happywz_SORT where sort<>'"&Request("unitesort")&"' order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%> <OPTION VALUE="<%=rs("sort")%>"><%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%> → <%next
end if%> <%=rs("sort")%></OPTION> <%
rs.movenext
loop
rs.Close()
set rs=nothing
%></SELECT></td></tr> <tr bgcolor="#FFF2E6"> <td class="tdbg" BGCOLOR="#ffffff"><INPUT TYPE="submit" NAME="Submit222" VALUE="开始合并数据"></td></tr>
<tr bgcolor="#FFF2E6"> <td class="tdbg" BGCOLOR="#ffffff"><B>注意事项</B>：<BR><li><FONT COLOR="red">所有操作不可逆，请慎重操作</FONT><BR>
<li>此操作将会将原分类中的网址数据转移到新分类中，并清空原分类数据<BR></td></tr> <tr bgcolor="#ffffff"> <td align="center" class="tdbg" BGCOLOR="#ffffff">
</td></tr> </form></table><%end sub
sub uniteok()
uniteclass1=trim(Request("unitesort1"))
uniteclass2=trim(Request("unitesort2"))
if uniteclass1="" or uniteclass2="" or uniteclass1=uniteclass2 then
Errmsg=Errmsg+"<br>"+"<li>您选择的转移类别有错误，请核实！"
Founderr=true
end if
if founderr=true then
response.write Errmsg
exit sub
end if
conn.execute "update happywz_WEB set wwwsort='"&uniteclass2&"' where wwwsort='"&uniteclass1&"'"
conn.execute "update weburl set sort='"&uniteclass2&"' where sort='"&uniteclass1&"'"
response.write"<li>转移数据成功"
response.write uniteclass1
response.write uniteclass2
end sub
sub del()%> <table cellspacing="1" cellpadding="4" align="center" width="80%" class="table1" BGCOLOR="#0099CF">
<tr bgcolor="#0099CF"> <td colspan="2" height="25" class="title"><B>删除分类</B></td></tr>
<%
if Request("delsort")<>"" and Request("editid")<>"" then
'开始删除操作
'如果该论坛含有下级论坛则不允许删除
set rs=conn.execute("select reid from happywz_SORT where reid="&Request("editid"))
if not (rs.eof and rs.bof) then
response.write "<tr bgcolor=#FFF2E6> <td class=tdbg colspan=2>该分类含有下级分类，请删除其下级分类数据后再进行删除本分类的操作</td></tr>"
exit sub
end if%> <form name="delclass" method="post" action="admin_class_edit.asp?action=delok">
<tr bgcolor="#ffffff"> <td align="right" width="25%" class="tdbg">删除分类:</td><td class="tdbg">
<input type="text" name="delsort" class="form" value=<%=Request("delsort")%>>
</td></tr> <tr bgcolor="#ffffff"> <td colspan="2" align="center" class="tdbg">
<input type="submit" name="Submit2" value="确定删除"><INPUT TYPE="hidden" NAME="delid" VALUE=<%=Request("editid")%>>
</td></tr><tr bgcolor="#ffffff"><td colspan="2" class="tdbg"><B>注意事项</B>：<BR><li>此操作将删除包括该该分类下所有的网址数据，确定删除吗?</td></tr>
</form><%else
response.write "<tr bgcolor=#FFF2E6> <td class=tdbg colspan=2>请选择您要删除的分类名称！</td></tr>"
end if%> </table><%end sub
sub delok()
conn.execute "delete * from happywz_SORT where sort='"&Request("delsort")&"'"
conn.execute "delete * from happywz_WEBURL where sort='"&Request("delsort")&"'"
conn.execute "delete * from happywz_WEB where wwwsort='"&Request("delsort")&"'"
response.write "<br>"+"<li>删除成功。<a href=admin_class_main.asp>返回</a>"
end sub
sub updat()
dim tmprs,allurl
if Request("sort")="" then
sql_010="select sortid,sort from happywz_SORT order by sortid desc"
set rs_010=server.createobject("ADODB.Recordset")
rs_010.open sql_010,conn,1,1
do while not (rs_010.eof or rs_010.bof)
tmprs=conn.execute("Select count(wwwid) from happywz_WEB where wwwsort='"&rs_010("sort")&"'")
allurl=tmprs(0)
set tmprs=nothing
if isnull(allurl) then allurl=0
sql="update happywz_SORT set sjsum="&allurl&" where sort='"&rs_010("sort")&"'"
conn.execute(sql)
response.write "<li>更新分类 <font color=#ff0000>"&rs_010("sort")&"</font> 数据成功！共有 <font color=#0000ff>"&allurl&"</font>条数据 <br>"
rs_010.movenext
loop
rs_010.close
set rs_010=nothing
else
tmprs=conn.execute("Select count(wwwid) from happywz_WEB where wwwsort='"&Request("sort")&"'")
allurl=tmprs(0)
set tmprs=nothing
if isnull(allurl) then allurl=0
sql="update happywz_SORT set sjsum="&allurl&" where sort='"&Request("sort")&"'"
conn.execute(sql)
response.write "更新分类 <font color=#ff0000>"&Request("sort")&"</font> 数据成功！共有 <font color=#0000ff>"&allurl&"</font> 条数据"
end if
end sub%><BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" ALIGN="CENTER" >
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22"
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD></TR> <TR BGCOLOR="#ffffff"> <TD WIDTH="87" HEIGHT="30"><B>操作说明：</B></TD><TD
HEIGHT="30"><LI></TD></TR>
</TABLE>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -