📄 main.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">
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
mobileAgent = LCase(Request.ServerVariables("Http_User_Agent"))
tmpNum = Instr(mobileAgent,"windows nt")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"nec-n820 yes")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"m3gate")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"1.7.1 simulator")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"midp-1.0 configuration")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"wapie.tav.cn")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else
tmpNum = Instr(mobileAgent,"yutoubot-mobile/1.1")
if tmpNum > 0 then
Response.Redirect "sb.asp"
else set rs=server.createobject("adodb.recordset")
sql="update wapqita set diantime=now(),hits=hits+1 where ID="&request("id")
rs.open sql,conn,1,3
end if
end if
end if
end if
end if
end if
end if
%>
<%
dim id
id=request("id")
bz="t"
if hit=0 then
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
%>
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='card' title='欢迎来到书香文学'>
<onevent type='onenterforward'>
<go href='http://wap.62book.com'/>
</onevent>
<p align='center'>
书香文学提供言情小说、玄幻小说、网游小说、校园小说、都市小说等免费小说阅读。 成人小说、情色小说、激情小说、黄色小说等成人文学和色情小说，本站不提供.本站完全免费!<br/>
<a href='http://wap.62book.com'>进入首页!</a>
<br/>
</p>
</card>
</wml> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -