📄 admin_menu.asp
字号:
<%@LANGUAGE="VBSCRIPT" codepage="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="Function.asp" -->
<%
id=HTMLEncode(Request("id"))
response.write "<html><head><meta http-equiv=Content-Type content=text/html;charset=gb2312></head>"
response.write "<center>"
select case Request("menu")
case "main" : main
case "SortAddOk" : SortAddOk
case "SortAdd" : SortAdd
case "SortEdit" : SortEdit
case "SortEditOk" : SortEditOk
case "SortDel"
conn.execute("delete from [ClassTree] where id="&id&"")
error2("已经将该类别的所有数据删除了！")
end select
%>
<%
'-----------------创建一级目录表单和显示已经创建的目录main---------------------
sub main%>
<table border="0" width="80%">
<tr>
<td align="center">
<form name="form" method="post" action="?menu=SortAddOk"><input type=hidden name=classid value=0><input type=hidden name=hide value=0>
类别名称：（例如：默认类别）<input name="ClassName"><input type="submit" value="建立"></form>
</td>
<td align="center"><form method="post" action="?menu=SortEdit">
查找类别：<INPUT size=2 name=id value="ID" onfocus="this.value = ''" >
<input type=submit value="确定"></form></td>
</tr>
</table>
<table cellspacing=1 cellpadding="2" width="80%" border="0" class="a2" align="center">
<%
sort(0)
%>
</table>
<%end sub%>
<%
'------------------------创建子目录表单SortAdd-------------------------------
sub SortAdd
%>
<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
<tr height=25>
<td class=a1 align=middle colspan="2">建立类别资料</td>
</tr>
<tr height=25>
<td class=a3 align=middle>
<form name="form" method="post" action="?menu=SortAddOk">
<input type=hidden name=classid value=<%=id%>>
类别名称</td>
<td class=a3>
<input size="20" name="ClassName"></td></tr>
<tr height=25>
<td class=a3 align=middle>
类别介绍</td>
<td class=a3>
<textarea rows="5" name="intro" cols="50"></textarea></td></tr>
<tr height=25>
<td class=a3 align=middle>
链接地址URL</td>
<td class=a3>
<input size="30" name="URL"> 链接到已经做好的页面
</td></tr>
<tr height=25>
<td class=a3 align=middle>
小图标URL</td>
<td class=a3>
<input size="30" name="icon"> 显示在类别介绍右边
</td></tr>
<tr height=25>
<td class=a3 align=middle>
大图标URL</td>
<td class=a3>
<input size="30" name="logo"> 显示在类别左上角
</td></tr>
<tr height=25>
<td class=a3 align=middle>
是否显示在类别列表
<td class=a3>
<input type="radio" CHECKED value="0" name="hide" id=hide1><label for=hide1>显示</label>
<input type="radio" value="1" name="hide" id=hide2><label for=hide2>隐藏</label> </tr>
<tr height=25>
<td class=a3 align=middle colspan="2">
<input type="submit" value=" 建 立 " name="Submit"><br></td></tr></table>
</form>
<center><br><a href=javascript:history.back()>< 返 回 ></a>
<%
end sub
%>
<%
'-----------------处理创建目录表单SortAddOk----------------------
sub SortAddOk
if Request("ClassName")="" then error2("请输入类别名称")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * From ClassTree"
rs.open sql,conn,1,3
rs.addnew
rs("followid")=Request("classid")
rs("ClassName")=HTMLEncode(Request("ClassName"))
rs("intro")=HTMLEncode(Request("intro"))
rs("URL")=HTMLEncode(Request("URL"))
rs("icon")=HTMLEncode(Request("icon"))
rs("logo")=HTMLEncode(Request("logo"))
rs("hide")=Request("hide")
rs.update
id=rs("id")
rs.close
main
end sub
%>
<%
'--------------------创建目录编辑表单--------------------
sub SortEdit
sql="select * from ClassTree where id="&id&""
Set Rs=Conn.Execute(sql)
%>
<form method="post" action="?menu=SortEditOk" name=form><input type=hidden name=id value=<%=rs("id")%>>
<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
<tr height=25>
<td class=a1 align=middle colspan="2">编辑类别资料</td>
</tr>
<tr height=25>
<td class=a3 align=middle>
类别名称</td>
<td class=a3>
<input size="15" name="ClassName" value="<%=rs("ClassName")%>"> 排序 <input size="2" name="SortNum" value="<%=rs("SortNum")%>">
从小到大排序</td></tr>
<tr height=25>
<td class=a3 align=middle>
类别类别</td>
<td class=a3>
<select name="classid">
<option value="<%=rs("followid")%>">默认</option>
<option value="0">一级分类</option>
<%SortList(0)%>
</select> 一级分类将当作类别名称</td></tr>
<tr height=25>
<td class=a3 align=middle>
类别介绍</td>
<td class=a3>
<textarea rows="5" name="intro" cols="50"><%=rs("intro")%></textarea></td></tr>
<tr height=25>
<td class=a3 align=middle>
链接地址URL</td>
<td class=a3>
<input size="30" name="URL" value="<%=rs("url")%>">链接到已经做好的页面
</td></tr>
<tr height=25>
<td class=a3 align=middle>
小图标URL</td>
<td class=a3>
<input size="30" name="icon" value="<%=rs("icon")%>"> 显示在类别介绍右边
</td></tr>
<tr height=25>
<td class=a3 align=middle>
大图标URL</td>
<td class=a3>
<input size="30" name="logo" value="<%=rs("logo")%>"> 显示在类别左上角</td></tr>
<tr height=25>
<td class=a3 align=middle>
是否显示在类别列表</td>
<td class=a3>
<input type="radio" <%if rs("hide")=0 then%>CHECKED <%end if%>value="0" name="hide" value="0" id=hide1><label for=hide1>显示</label>
<input type="radio" <%if rs("hide")=1 then%>CHECKED <%end if%>value="1" name="hide" value="1" id=hide2><label for=hide2>隐藏</label> </td></tr>
<tr height=25>
<td class=a3 align=middle colspan="2">
<input type="submit" value=" 编 辑 " name="Submit1"></td></tr></table><br></form>
<center><br><a href=javascript:history.back()>< 返 回 ></a>
<Script>
document.form.intro.value = unybbcode(document.form.intro.value);
function unybbcode(temp) {
temp = temp.replace(/<br>/ig,"\n");
return (temp);
}
</Script>
<%
end sub
%>
<%
'-------------------------处理目录编辑表单---------------------------
sub SortEditOk
if Request("ClassName")="" then error2("请输入类别名称")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from ClassTree where id="&id&""
rs.Open sql,Conn,1,3
rs("followid")=Request("classid")
rs("SortNum")=int(Request("SortNum"))
rs("ClassName")=HTMLEncode(Request("ClassName"))
rs("intro")=HTMLEncode(Request("intro"))
rs("url")=HTMLEncode(Request("url"))
rs("icon")=HTMLEncode(Request("icon"))
rs("logo")=HTMLEncode(Request("logo"))
rs("hide")=Request("hide")
rs.update
rs.close
%>
编辑成功<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -