📄 admin_waptype.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理网站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
dim action
action = request("action")
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "请重新<a href=""Admin_WapLogin.asp"">登录！</a><br/>"
Else
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
response.write "分类ID有误！<br/>"
else
dim Orderid,TypeName
Wap.execute("Update WebType Set Recommend='0' where id=" & id)
end if
response.write "修改取消推荐成功！<br/>"
end sub
sub Recommend1
id = request("id")
if id="" or not isnumeric(id) then
response.write "分类ID有误！<br/>"
else
dim Orderid,TypeName
Wap.execute("Update WebType Set Recommend='1' where id=" & id)
end if
response.write "修改设为推荐成功！<br/>"
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 & "')")
response.write "添加分类成功！<br/>"
end if
end sub
sub Del
dim id
id = request("id")
if id="" or not isnumeric(id) then
response.write "分类ID有误！<br/>"
else
Wap.execute("delete from WebType where id=" & id)
Wap.execute("update Link set webtype=0 where webtype="&id)
end if
response.write "删除成功！<br/>"
end sub
sub Modify
dim id
id = request("id")
if id="" or not isnumeric(id) then
response.write "分类ID有误！<br/>"
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
response.write "修改分类名称成功！<br/>"
end sub
%>
说明：<br/>
1.排序数字越小排越前，但最好不要有重复。<br/>
2.您可以随意修改排序数字来修改分类的排列。<br/>
3.如果删除了已有站点选择的类别，系统会将这些站点的网站类别设为0，即没有选择状态。您可以在全部类别中看到这些站点。<br/>
添加网站分类<br/>
<%
dim maxorderid
maxorderid = Wap.execute("select max(id) from WebType")(0)+1
%>
排序ID<input type='text' name='Orderid<%=minute(now)%><%=second(now)%>' value='<%=maxorderid%>' size='2' maxlength='3'/>
分类名称<input type='text' name='TypeName<%=minute(now)%><%=second(now)%>' value='' size='12' maxlength='16'/>
<anchor>添加<go href="Admin_WapType.asp?action=Add" method="post">
<postfield name="Orderid" value="$(Orderid<%=minute(now)%><%=second(now)%>)"/>
<postfield name="TypeName" value="$(TypeName<%=minute(now)%><%=second(now)%>)"/>
</go></anchor><br/><br/>
-----------<br/>
<%
Call ShowForm
sub ShowForm
dim rs
set rs = Wap.execute("select * from WebType Order By orderid")
M=1
do while not rs.eof
%>
排序ID<input type='text' name='Orderid<%=M%><%=minute(now)%><%=second(now)%>' value='<%=rs("orderid")%>' size='2' maxlength='3'/>
<br/>
分类名称<input type='text' name='TypeName<%=M%><%=minute(now)%><%=second(now)%>' value='<%=rs("name")%>' size='12' maxlength='16'/>
<br/>
<anchor>修改<go href="Admin_WapType.asp?action=Mod" method="post">
<postfield name="Orderid" value="$(Orderid<%=M%><%=minute(now)%><%=second(now)%>)"/>
<postfield name="TypeName" value="$(TypeName<%=M%><%=minute(now)%><%=second(now)%>)"/>
<postfield name="id" value="<%=rs("id")%>"/>
</go></anchor>
<%
if rs("Recommend")=0 then
%>
<anchor>设为推荐<go href="Admin_WapType.asp?action=Recommend1" method="post">
<postfield name="id" value="<%=rs("id")%>"/>
</go></anchor>
<%
else
%>
<anchor>取消推荐<go href="Admin_WapType.asp?action=Recommend0" method="post">
<postfield name="id" value="<%=rs("id")%>"/>
</go></anchor>
<%
end if
%>
<anchor>删除<go href="Admin_WapType.asp?action=Del" method="post">
<postfield name="id" value="<%=rs("id")%>"/>
</go></anchor><br/>
-----------<br/>
<%
rs.movenext
M=M+1
loop
set rs = nothing
end sub
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a>"
End If
%>
<%set Wap=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -