tongcl.asp

来自「一个WAP导航程序！动态友链！好东西！而且后台安全性很强」· ASP 代码 · 共 28 行

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% 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">
<!--#INCLUDE file="conn.asp"-->
<wml>

<%
Server.ScriptTimeout=999
if Session("admin")="" then
response.write "<card id='card1' title='权限'><p>你没有这个权限，请离开."
Response.write "<br/><a href='index.asp'>摩指网址之家首页</a></p></card></wml>"
else
dim id
id=request("id")	
bz="t"
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="update wapqita set bz='"& bz &"' where  CStr(id)='" & id & "'"
conn.execute(sql)
conn.close
set objgbrs=nothing
set conn=nothing
end if
%>
<card id='card1' title='联盟' ontimer='index.asp'><timer value='5'/>
<p>&#x64CD;&#x4F5C;&#x6210;&#x529F;&#xFF01;&#x6B63;&#x5728;&#x8FD4;&#x56DE;...</p>
</card>
</wml>