📄 turnto.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.1//EN" "http://www.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%>"> 

<%
Server.ScriptTimeout=999
  id=Request("id")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from sites Where CStr(id)='" & id &"'"
  objgbrs.open ssql,conn,1,1

  if objgbrs.eof then
      response.write "<p>ID&#x9519;&#x8BEF;</p></card></wml>"
      conn.close
      set objgbrs=nothing
      set conn=nothing
      response.end
  end if
'=====================================
  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  
'=====================================
%>

<p>
<%


Response.Write ""& objgbrs("sitename") & "<br/>"
Response.write "－－－－－"
Response.Write "<br/>简介:"""
Response.write "<br/><a href='linkto.asp?id="&id&"'>马上访问>></a>"
Response.write "<br/>－－－－－"
'Response.Write "<br/>"& objgbrs("siteurl") & ""
Response.write "<br/>您即将离开,请将本站 """&mywapname&"""设为书签！"
Response.write "<br/>回访时间:" &  month(objgbrs("fromtime"))& "-"& day(objgbrs("fromtime"))& "  "& hour(objgbrs("fromtime"))& ":"& minute(objgbrs("fromtime")) & "<br/>"
Response.Write "<br/>"
%>
<%
Response.write "－－－－－<br/>"
Response.write "<anchor><prev/>返回上级</anchor>"
Response.write "<br/><a href=""siteslist.asp"">网站排行</a>"
Response.write "<br/><a href='/you/index.asp'>返回联盟</a><br/><a href='/index.asp'>返回首页</a><br/>"
response.write "<br/><br/><br/>"
response.write "<br/></p></card></wml>"
response.end
objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing

%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -