⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_waptype.asp

📁 玛雅自助导航系统 玛雅自助导航系统 玛雅自助导航系统
💻 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 + -