📄 wap_view.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"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card title="网站信息">
<%
'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：网站信息
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
ID=Request("ID")
p=Cint(Request("p"))
If p="" or p<1 Then p=1
PageNo=Request("PageNo")
Find=Request("Find")
webtype=Request("webtype")
pl=Request("pl")
IsVerify=Request("IsVerify")
intt=Request("intt")
ob=Request("ob")
If Session(WapCacheName)=AdminName&AdminPass Then
OutStr = OutStr & "=管理网站=<br/>"
OutStr = OutStr & "["&WapStr("username")&"]"
OutStr = OutStr & "<a href=""Admin_WapEditlink.asp?username="&WapStr("username")&""">修改</a> "
OutStr = OutStr & "<a href=""Admin_WapManage.asp?Action=del&username="&WapStr("username")&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">删除</a><br/>"
If WapStr("IsVerify")=strTrue Then
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=edit1&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">取消审核</a> "
Else
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=edit&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">确定审核</a> "
End If
If WapStr("GuLian")=1 then
OutStr = OutStr & " <a href=""Admin_WapManage.asp?action=GuLian0&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">取消推荐</a> "
Else
OutStr = OutStr & " <a href=""Admin_WapManage.asp?action=GuLian1&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">加入推荐</a> "
End If
OutStr = OutStr & "<br/>"
If WapZhenghe=1 Then
if WapStr("ShouXian")=0 then
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShouXian1&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">还原首显</a> "
Else
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShouXian0&id="&WapStr("id")&"&PageNo="&PageNo&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">取消首显</a> "
End If
End If
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=init&username="&WapStr("username")&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">初始统计</a> "
OutStr = OutStr & "<br/>"
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShowLog&username="&WapStr("username")&"&inout=0"">点入记录</a> "
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShowLog&username="&WapStr("username")&"&inout=1"">点出记录</a> "
OutStr = OutStr & "<br/>"
Response.write "<p>"&OutStr&"</p>"
Else
Response.write ""
End if
Function WapStr(Byval str)
On Error Resume Next
WapStr=Conn.Execute("select "&str&" from Link where id="&id&"")(0)
If Err Then WapStr=""
End Function
If Conn.Execute("select ID from Link where ID="&ID&"").Eof Then
Response.write "<p>错误地址！<br/></p>"
Else
Response.write Wap.DefineContents("11")
End If
Set Wap=Nothing
%>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -