main.asp.bak

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

BAK

86 行


<%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='/index.asp'/>
</onevent>
<p align='center'>



欢迎来到动点巴士,本站完全免费!<br/>
<a href='/index.asp'>进入首页!</a>
<br/>

</p>
</card>
</wml>

main.asp.bak - 源码说明

本页面展示了「一个WAP导航程序！动态友链！好东西！而且后台安全性很强」中的 main.asp.bak 源码文件，采用 BAK 编程语言编写，共 86 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?