Hawkfly on 2000-11-8 17:43: Just finished, did not do optimization, specific reference to chinaasp forum TOP10 Modify
<% @ 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
%>
<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> Dragon and Tiger rankings </title>
<body class= "Detail" >
<table border= "0" width= "70%" cellpadding= "0" align= "center" >
<tr>
<TD width= "16%" bgcolor= "#FFFFFF" align= "center" ><font color= "#0000A0" > Rank </font></td>
<TD width= "16%" class= "Listline" align= "center" ><font color= "#0000A0" > Network name </font></td>
<TD width= "17%" class= "Listline" align= "center" ><font color= "#0000A0" > Posts </font></td>
<TD width= "17%" bgcolor= "#FFFFFF" align= "center" ><font color= "#0000A0" > Rank </font></td>
<TD width= "17%" class= "Listline" align= "center" ><font color= "#0000A0" > Network name </font></td>
<TD width= "17%" class= "Listline" align= "center" ><font color= "#0000A0" > Posts </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" 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" 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%>
<TD class= "listline" align= "center" style= "Cursor:hand" 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%>
<TD class= "listline" align= "center" style= "Cursor:hand" 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>
