% @ 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%" 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%" 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 RegUser10 then
a=RegUser/2
else
a=5
end if
for s=1 to a
%>
tr>
td width="16%" 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%" 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
%>
% if RegUser>20 then
for b=11 to 15 %>
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>
% rs.movenext%>
%
next
end if %>
% if RegUser>20 then
for c=16 to 20 %>
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>
% rs.movenext%>
%
next
end if %>
/table>
/body>/html>
[1]