?? 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 + -