📄 admin_type.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%
'-------------------------------------
'V1.5新增页面,V1.6新增排序功能
'功能：管理员管理网站分类(添加、修改、删除、排序)
'-------------------------------------
If Session(SiteSN&"_Admin_Login")<>AdminName&"_"&AdminPass Then
Response.redirect "Admin_Login.asp"
End If
dim action
action = request("action")
select case action
case "Mod"
Call Modify
case "Add"
Call Add
case "Del"
Call Del
case "Recommend0"
Call Recommend0
case "Recommend1"
Call Recommend1
end select
sub Recommend0
id = request("id")
if id="" or not isnumeric(id) then
Call AlertMsg("分类ID有误！")
else
dim Orderid,TypeName
Wap.execute("Update WebType Set Recommend='0' where id=" & id)
end if
Call AlertMsg("修改取消推荐成功！")
end sub
sub Recommend1
id = request("id")
if id="" or not isnumeric(id) then
Call AlertMsg("分类ID有误！")
else
dim Orderid,TypeName
Wap.execute("Update WebType Set Recommend='1' where id=" & id)
end if
Call AlertMsg("修改设为推荐成功！")
end sub
sub Add
dim TypeName,Addid,Orderid
Orderid = Clng(request("Orderid"))
TypeName = Wap.checkstr(request("TypeName"),16)
dim rs
set rs = Wap.execute("select id from WebType order by id desc")
if rs.eof then
set rs = nothing
Addid = 1
else
Addid = rs(0)+1
set rs = nothing
Wap.execute("insert into WebType (id,orderid,name) values(" & Addid &"," & Orderid &",'" & TypeName & "')")
Call AlertMsg("添加分类成功！")
end if
end sub
sub Del
dim id
id = request("id")
if id="" or not isnumeric(id) then
Call AlertMsg("分类ID有误！")
else
Wap.execute("delete from WebType where id=" & id)
Wap.execute("update Link set webtype=0 where webtype="&id)
end if
Call AlertMsg("删除成功！")
end sub
sub Modify
dim id
id = request("id")
if id="" or not isnumeric(id) then
Call AlertMsg("分类ID有误！")
else
dim Orderid,TypeName
Orderid = Clng(request("Orderid"))
TypeName = Wap.checkstr(request("TypeName"),16)
Wap.execute("Update WebType Set name='" & TypeName & "',orderid="&Orderid&" where id=" & id)
end if
Call AlertMsg("修改分类名称成功！")
end sub
sub AlertMsg(strmsg)
response.write "<script language=JavaScript>" & chr(13) & "alert('"&strmsg&"');" &"window.location='Admin_Type.asp'" & "</script>"
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>管理网站分类_<%=WebName & ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<Script Language="javascript">
function del_type(thisform) {
if (confirm("您确定要删除吗?")){
thisform.action="?action=Del";
thisform.submit();
}
}
function Recommend1(thisform) {
if (confirm("您确定要设为推荐吗?")){
thisform.action="?action=Recommend1";
thisform.submit();
}
}
function Recommend0(thisform) {
if (confirm("您确定要取消推荐吗?")){
thisform.action="?action=Recommend0";
thisform.submit();
}
}
</script>
</head>
<body>
<div class="main_title1">
<a href="admin_manage.asp">管理首页</a> | <a href="Admin_Addlink.asp">添加站点</a> | <a href="admin_manage.asp?action=ListSite">管理网站信息</a> | <a href="admin_manage.asp?action=ShowLog">查看点击记录</a> | <a href="admin_type.asp" class="t">管理网站分类</a> | <a href="admin_manage.asp?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div>
<div class="mainbar">
<div style="float:right;text-align:left;width:400px;">
说明：<br>
1.排序数字越小排越前，但最好不要有重复。<br>
2.您可以随意修改排序数字来修改分类的排列。<br>
3.如果删除了已有站点选择的类别，系统会将这些站点的网站类别设为0，即没有选择状态。您可以在全部类别中看到这些站点。<br>
<p><b>添加网站分类：</b></p>
<%
dim maxorderid
maxorderid = Wap.execute("select max(id) from WebType")(0)+1
response.write "<form action='?action=Add' method='post'><tr>"
response.write "排序ID：<input type='text' name='Orderid' value='"&maxorderid&"' size='2' maxlength='3'>"
response.write "分类名称：<input type='text' name='TypeName' value='' size='12' maxlength='16'>"
response.write "</td><td>"
response.write "<input type='submit' value='添加'>"
response.write "</td></form></tr>"
%>
</div>
<%
Call ShowForm
sub ShowForm
response.write "<table>"
response.write "<tr>"
response.write "<td width='125'>排序 类别名称</td>"
response.write "<td width='80' align='center'>操作</td>"
response.write "</tr>"
dim rs
set rs = Wap.execute("select * from WebType Order By orderid")
do while not rs.eof
response.write "<form action='?action=Mod' method='post' name='form"&rs("id")&"'><tr><td>"
response.write "<input type='text' name='Orderid' value='" & rs("orderid") &"' size='2' maxlength='3'>"
response.write "<input type='text' name='TypeName' value='" & server.htmlencode(rs("name")) &"' size='12' maxlength='16'>"
response.write "<input type='hidden' name='id' value='" & rs("id") &"'>"
response.write "</td><td>"
response.write "<input type='submit' value='修改'> "
if rs("Recommend")=0 then
response.write "<input type='button' onclick='Recommend1(this.form)' value='设为推荐'> "
else
response.write "<input type='button' onclick='Recommend0(this.form)' value='取消推荐'> "
end if
response.write "<input type='button' onclick='del_type(this.form)' value='删除'>"
response.write "</td></tr></form>"
rs.movenext
loop
set rs = nothing
response.write "</table>"
end sub
%>
</div>
<!--#include file="under.asp"-->
<%set Wap=nothing%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -