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