📄 comefrom.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.buffer=true%>
<% 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://wapforum.org/DTD/wml_1.1.xml">
<!--#INCLUDE VIRTUAL="/you/data/conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="card1" title="<%=mywapname%>" ontimer="jdsklfxjewoitjid.asp">
<timer value="1"/>
<p align="center">
<br/>
<%=mywapcatchword%>
<br/>
<a href="/index.asp"><%=mywapname%></a>
<br/>
UCWSP2008
<br/>
<br/>
<br/>
<%
If isMobile(True) Then
dim id,fromtoday
id = request.querystring("id")
if id="" then
response.redirect"index.asp"
end if
if Time < #10:00:00# Then
sql="select max(fromtime) from sites"
set updaters=conn.execute(sql)
fromtoday=updaters(0)
updaters.close
set updaters=nothing
else
fromtoday=999
end if
if DATEDIFF("d", fromtoday, now())=1 and Application("IsCounted")<>day(date()) then
sql="update sites set fromqian=fromzuo,fromzuo=fromjin,fromjin=0,toqian=tozuo,tozuo=tojin,tojin=0"
conn.execute(sql)
Application("IsCounted")=day(date())
end if
session("onid")=id
session("starttime")=now
End If
conn.close
set conn=nothing
%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -