pop.asp

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

<% @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">
<wml>
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<%

  response.write "<card  title='最新人气排行' ><p>"
set objgbrs=Server.CreateObject("ADODB.Recordset")
rsstr="select top "& myuniontopsize &" * from sites  order by fromjin+fromzuo-tojin-tozuo desc" 
objgbrs.open rsstr,conn,1,1
if objgbrs.eof then
   Response.write "<br/>再等等吧,马上会就会加上了.<br/>"
   bihaocont=0
else
For i=1 to myuniontopsize
  bihaocont=bihaocont+1
Response.write bihaocont & "." & "<a href='turnto.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a> "
if Session("union") = mywaphost then
Response.write "<a href='/you/admin/site_infoedite.asp?id=" & objgbrs("id") & "'>编辑</a>" 
End if
Response.write "<br/>"
    objgbrs.Movenext
  if objgbrs.EOF then Exit for
    Next
  End if
Response.write "======== <br/><a href='/you/union/site_regagreement.asp'>&#x65B0;&#x7AD9;&#x6CE8;&#x518C;</a><br/><a href='"&mywaphost&"'>"&mywapname&"</a><br/><b>"&mywaphost&"</b><br/>"&mywapname
response.write"<br/><br/></p></card></wml>"
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>