usertopic.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<!--#include file="function.asp" -->
javastr=""
javastr+="<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\" align=\"center\" bgcolor=\"<%=LeftBColor%>\">"
javastr+="<tr><td bgcolor=\"<%=LeftTColor%>\" height=25 align=center background=\"<%=LeftTImg%>\" class=LeftTitle>会员排行</td></tr><tr><TD BGCOLOR=\"<%=LeftBColor%>\" background=\"<%=LeftBImg%>\" HEIGHT=1></TD></tr>"
javastr+="<tr>"
javastr+="<td bgcolor=\"<%=LeftCColor%>\" background=\"<%=LeftCImg%>\">"
javastr+="<table width=\"99%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" style=\"TABLE-LAYOUT: fixed\">"
<%
dim m		
m=0
sql="SELECT * FROM Users order by userpoint desc"
rs.open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
m=m+1
%>
javastr+="<tr>"
javastr+="<td width=51% class=leftcontent style=\"WORD-WRAP: break-word\">&nbsp;<%=m%>.<a style=\"cursr:hand\" title=\"会员资料：&#13;&#10;性别：<%if rs("Sex")=1 then%>男<%else%>女<%end if%>&#13;&#10;信箱：<%=rs("Email")%>&#13;&#10;OICQ：<%=rs("oicq")%>&#13;&#10;主页名称：<%=rs("UserWebName")%>&#13;&#10;主页地址：<%=rs("UserWebUrl")%>&#13;&#10;积分：<%=rs("UserPoint")%>&#13;&#10;等级：<%=Level(rs("UserLevel"))%>&#13;&#10;评论：<%=rs("WGBooks")%>&#13;&#10;回复：<%=rs("Replay")%>&#13;&#10;登陆：<%=rs("logins")%>&#13;&#10;登陆IP：<%=rs("LoginIP")%>&#13;&#10;最后登陆：<%=rs("lastlogin")%>&#13;&#10;注册时间：<%=rs("addDate")%>&#13;&#10;个人说明：&#13;&#10;<%if rs("sign")="" or isnull(rs("sign")) then%>无<%else%><%=rs("sign")%><%end if%>\"><%=rs("username")%></a></td>"
javastr+="<td width=36%><img style=\"cursr:hand\" src=\"images/level<%=rs("UserLevel")%>.gif\" alt=\"<%=Level(rs("UserLevel"))%>\" border=0 height=10></td>"
javastr+="<td width=13% align=\"right\"><%=rs("userpoint")%></td>"
javastr+="</tr>"
<%
if m>=10 then exit do
rs.movenext
loop
else
%>
javastr+="<tr><td align=\"center\">尚无任何会员</td></tr>"
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
javastr+="</table></td></tr></table>"
document.write(javastr)