客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
<% @ 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 RegUser<10 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] |
请发表评论