?? 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="網(wǎng)站信息">
<%
'**********************************************************************
'* 程序名稱: 瑪雅自助導(dǎo)航系統(tǒng)
'* 程序功能：網(wǎng)站信息
'* 英文名稱: WapLink Ver 4.5
'* 程序開發(fā): 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 & "=管理網(wǎng)站=<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&""">初始統(tǒng)計</a> "
OutStr = OutStr & "<br/>"
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShowLog&username="&WapStr("username")&"&inout=0"">點(diǎn)入記錄</a> "
OutStr = OutStr & "<a href=""Admin_WapManage.asp?action=ShowLog&username="&WapStr("username")&"&inout=1"">點(diǎn)出記錄</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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -