【 tulaoshi.com - ASP 】
hawkfly 发表于2000-11-8 17:43:只是刚刚写完，未做优化，具体可参照CHINAASP论坛TOP10修改
<% @ LANGUAGE="VBSCRIPT" %
<% OPTION EXPLICIT %
<!--#include file="DataConn.asp"--
<!--#include file="FuncSet.asp"--
<% dim rs,sql,IDa,IDb,s,RegUser,a,b,c
Set rs=Server.CreateObject("ADODB.recordset")
sql="Select * from UserInfo ORDER BY iPerience DESC"
rs.Open sql,ConnStr,1,1
RegUser=rs.RecordCount
IDa=1
IDb=2
%
<html
<head
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<meta http-equiv="pragma" content="no-cache"
<link rel="stylesheet" type="text/css" href="Site.css"
<title龙虎排行</title
</head
<body class="detail"
<table border="0" width="70%" cellpadding="0" align="center"
<tr
<td width="16%" bgcolor="#FFFFFF" align="center"<font color="#0000A0"名次</font</td
<td width="16%" class="Listline" align="center"<font color="#0000A0"网名</font</td
<td width="17%" class="Listline" align="center"<font color="#0000A0"帖子数</font</td
<td width="17%" bgcolor="#FFFFFF" align="center"<font color="#0000A0"名次</font</td
<td width="17%" class="Listline" align="center"<font color="#0000A0"网名</font</td
<td width="17%" class="Listline" align="center"<font color="#0000A0"帖子数</font</td
</tr
<% if RegUser<10 then
a=RegUser/2
else
a=5
end if
for s=1 to a
%
<tr
<td width="16%" bgcolor="#FFFFFF" align="center" valign="bottom"<font size="2"
color="#0000A0"<b<%=IDa%</b</font </td
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<%=rs("UserName")%','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"<font color=#0000CC<%=rs("UserName")%</font</td
<td class="Listline" align="center"<%=rs("iPerience")%</td
</td
<%rs.movenext%
<td width="17%" bgcolor="#FFFFFF" align="center" valign="bottom"<font size="2"
color="#0000A0"<b<%=IDb%</b</font </td
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<%=rs("UserName")%','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"<font color=#0000CC<%=rs("UserName")%</font</td
<td class="Listline" align="center"<%=rs("iPerience")%</td
</tr
<%
IDa=IDa+2
IDb=IDb+2
rs.movenext
next
%
<%
