📄 linkto.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

💻 ASP

字号:

<%@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.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#INCLUDE VIRTUAL="/you/data/conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
<meta http-equiv="Content-Type" content="text/vnd.wap.wml; charset=utf-8"/>
</head>
<card id="card1" title="<%=mywapname%>">
<p>
<%
	id=Request("id")
	set objgbrs=Server.CreateObject("ADODB.Recordset")
	ssql="select sitename,siteurl from sites Where CStr(id)='" & id &"'"
	objgbrs.open ssql,conn,1,1
	sitename = objgbrs("sitename")
	siteurl = objgbrs("siteurl")

	if objgbrs.eof then
		response.write "没有此网站！"
	end If
	
	objgbrs.close
	Set objgbrs=nothing
	'  dim toalltmp
	'  toalltmp=objgbrs("toall")
	'  if objgbrs("toall")>0 then
	'  if objgbrs("fromall")/objgbrs("toall")>1.05 then
	'  toalltmp=CInt(objgbrs("fromall")*1.02)
	'  end if
	'  end if  

%>
<onevent type="timer">
	<go href="<%=decodestr(siteurl)%>"/>
</onevent>
<timer value="5"/>
<%
	Response.Write sitename & "<br/>"
	Response.Write siteurl & "<br/>"
	Response.write "<br/><anchor><prev/>返回上级</anchor>"
	Response.write "<br/><a href=""/you/index.asp"">" & mywapname & "</a>"
	Response.write "<br/><b>" & mywaphost & "</b><br/>" & mywapname

	If isMobile(False) Then
		sql="update sites set tojin=tojin+13,toall=toall+13,totime=now() Where CStr(id)='" & id & "'"
		conn.Execute(sql)
	End If
	Response.redirect siteurl

	conn.close
	set conn=nothing
%>
<br/>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -