📄 pop.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">
<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'>新站注册</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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -