📄 admin_class_edit.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
if Session("level")<2 then
Call outcome("你的权限不足")
Response.End
End if
dim pw1,pw2,pw3,pw4
dim classid,classname,topclass,memo,key,verity
classid=ReplaceBadChar(Trim(request("classid")))
if request("action")="yes" then
if request("pw1")="" then
Call outcome("<font color='red'>请填写分类名称</font>")
Response.End
end if
if request("pw2")="" then
Call outcome("<font color='red'>请选择上一级分类</font>")
Response.End
end if
pw1=ReplaceBadChar(Trim(request("pw1")))
pw2=ReplaceBadChar(Trim(request("pw2")))
pw3=ReplaceBadChar(Trim(request("pw3")))
pw4=ReplaceBadChar(Trim(request("pw4")))
pw5=ReplaceBadChar(Trim(request("pw5")))
pw6=ReplaceBadChar(Trim(request("pw6")))
pw7=ReplaceBadChar(Trim(request("pw7")))
pw8=ReplaceBadChar(Trim(request("pw8")))
pw9=ReplaceBadChar(Trim(request("pw9")))
set r=server.createobject("adodb.recordset")
sql="select * from O3888_class where classid="&classid
r.open sql,conn,1,3
if r.bof or r.eof then
r.close
set r=nothing
Call outcome("非法操作")
Response.End
else
r("classname")=pw1
r("topclass")=pw2
r("simplify")=pw5
r("index")=pw6
r("xian")=pw9
sql="select * from O3888_class where classid="&pw2
set rs=conn.execute(sql)
if not rs.eof then
r("level")=rs("level")+1
else
r("level")=1
end if
if pw3<>"" then r("key")=pw3
if pw4<>"" then r("memo")=pw4
if not pw8="" then r("search")=pw8
if not pw7="" then
r("topid")=pw7
else
r("topid")=0
end if
r.update
r.close
set r=nothing
rs.close
set rs=nothing
Call outcome("分类信息修改成功!")
Response.End
end if
end if
sql="select * from O3888_class where classid="&classid
set rs=conn.execute(sql)
if rs.bof or rs.eof then
rs.close
set rs=nothing
Call outcome("非法操作")
Response.End
else
classname=rs("classname")
topclass=rs("topclass")
simplify=rs("simplify")
memo=rs("memo")
key=rs("key")
verity=rs("verity")
index=rs("index")
xian=rs("xian")
topid=rs("topid")
search=rs("search")
rs.close
set rs=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>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center" colspan="2">分类修改管理</td>
</tr><table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<form action="admin_class_edit.asp?classid=<%=classid%>" method="post">
<tr>
<td width="20%">分类名称：</td>
<td width="80%">
<input class="c" type="text" name="pw1" value="<%=classname%>"> <font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td>上级分类：</td>
<td>
<select class="c" name="pw2">
<option value='0'>一级分类</option>
<%
classid=topclass
set rssss(0)=server.createobject("adodb.recordset")
rssss(0).open "select [classid],[classname] from [O3888_class] where topclass=0",conn,1,3
while not rssss(0).eof
fujia=""
if rssss(0)("classid")=classid then fujia="selected"
response.write "<option "&fujia&" value='"&rssss(0)("classid")&"'>"&rssss(0)("classname")&"("&rssss(0)("classid")&")</option>"&vbCrLf
call listunder(1)
rssss(0).movenext
wend
%>
</select> <font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td>简写名称：</td>
<td>
<input class="c" type="text" name="pw5" value="<%=simplify%>"> 用于首页实用酷站
</td>
</tr>
<tr>
<td>实用酷站列表</td>
<td>
<%
if index=1 then
Response.Write "<input class='c' type='radio' value='1' name='pw6' checked> <font color=red>显示分类</font> <input type='radio' class='c' name='pw6' value='0'> 未显示分类"
else
Response.Write "<input class='c' type='radio' value='1' name='pw6'> 显示分类 <input type='radio' class='c' name='pw6' value='0' checked> <font color=red>未显示分类</font>"
end if
%>
</td>
</tr>
<tr>
<td>首页分类列表</td>
<td>
<%
if xian=1 then
Response.Write "<input class='c' type='radio' value='1' name='pw9' checked> <font color=red>显示分类</font> <input type='radio' class='c' name='pw9' value='0'> 未显示分类"
else
Response.Write "<input class='c' type='radio' value='1' name='pw9'> 显示分类 <input class='c' type='radio' name='pw9' value='0' checked> <font color=red>未显示分类</font>"
end if
%>
</td>
</tr>
<input style='display:none' type="text" name="pw7" size="15" value='<%=topid%>'>
<tr>
<td>相关搜索：</td>
<td><input class="c" type="text" name="pw8" size="30" value='<%=search%>'> 用于分类页相关搜索，多个关键词请用“|”隔开</td>
</tr>
<input style='display:none' type="text" name="pw3" value="<%=key%>">
<input style='display:none' type="text" name="pw4" value="<%=memo%>">
<tr>
<td>点击更改：</td>
<td>
<input type="hidden" name="action" value="yes">
<input type="submit" class="d" value="确定更改">
</td>
</form>
</tr>
<tr>
<td align="center" colspan="2">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -