viewsend.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->

   <script language="JavaScript">
<!--
function jump(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>

<% cpbview=chktopic(trim(request("view")))
   if cpbview="fen" then
   cpbtitle="经验排行"
   elseif cpbview="money" then
   cpbtitle="财产排行"
   elseif cpbview="beauty" then
   cpbtitle="魅力排行"
   elseif cpbview="newreg" then
   cpbtitle="用户列表"
    elseif cpbview="man" then
   cpbtitle="管理团队"
   else
   cpbtitle="发帖排行"
   end if
call toptitle(l_title,cpbtitle)
call head(5,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)

if h_viewcpb=1 and cpbusername="" then response.redirect("login.asp")
if h_viewuser=1 then
if isuser=false then
errornum=1
errormsg="<li>很抱歉,客人不允许浏览发帖排行,请先<a href=reg.asp>注册</a>或者<a href=login.asp>登陆</a></li>"
end if
end if
if errornum=1 then
  call error(errormsg)
  call login()
   else%>



  <center>

        <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse">        
           <tr  align="center"> 
            <td width="15%" <%=tColor%> class=tdc1 height=23>用户名</td>
            <td width="8%" <%=tColor%> class=tdc1>发帖数</td>
            <td width="8%" <%=tColor%> class=tdc1>经验</td>
            <td width="8%" <%=tColor%> class=tdc1>财产</td>
            <td width="8%" <%=tColor%> class=tdc1>魅力</td>
            <td width="18%" <%=tColor%> class=tdc1>注册时间</td>
            <td  <%=tColor%> class=tdc1>等级</td>
<td  <%=tColor%> class=tdc1>Email</td>
<td  <%=tColor%> class=tdc1>主页</td>
<td  <%=tColor%> class=tdc1>短消息</td>
          </tr>
<%
 page=chktopic(request.querystring("page"))
  if page="" then  page=1
  pages = "20"
set rs = server.createobject("adodb.recordset") 
   if cpbview="fen" then
sql = "select top 100 grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num order by user.fen desc"
   elseif cpbview="money" then
sql = "select top 100 grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num order by user.u_money desc"
   
   elseif cpbview="beauty" then
sql = "select top 100 grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num order by user.u_beauty desc"

   elseif cpbview="newreg" then
sql = "select grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num order by user.u_id desc"

   elseif cpbview="man" then
sql = "select grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num  and int(user.grade)<3 order by user.grade,user.username asc"
      else
sql = "select top 100 grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num order by user.send desc"
   end if
rs.open sql,conn,1,1
if not rs.eof then
if cpbview="newreg" then
 set rs1=conn.execute("select n_num from total")
r=rs1(0)
else
r=rs.RecordCount
end if


	if r mod pages=0 then
     		maxpagecount= r \ pages
  	else
     		maxpagecount= r \ pages+1
  	end if
 
	RS.MoveFirst
	if int(page) > maxpagecount then page = maxpagecount
   	if int(page)<1 then page=1
	RS.Move (page-1) * pages
	rcount=0
 do while not rs.eof and rcount <int(pages)
 %> 

           <tr  align="center" height=23> 
            <td width="15%" bgcolor=<%=tColor2%> class=tdc style="Word-Break:Break-all"><a href="viewuser.asp?username=<%=rs("username")%>" target=_blank><%=rs("username")%></a>　</td>
            <td width="8%" bgcolor=<%=tColor1%> class=tdc><%=rs("send")%>　</td>
            <td width="8%" bgcolor=<%=tColor2%> class=tdc><%=rs("fen")%>　</td>
             <td width="8%" bgcolor=<%=tColor1%> class=tdc><%=rs("u_money")%>　</td>
            <td width="8%" bgcolor=<%=tColor2%> class=tdc><%=rs("u_beauty")%>　</td>
            <td width="18%" bgcolor=<%=tColor1%> class=tdc><%=rs("time")%>　</td>
            <td  bgcolor=<%=tColor2%> class=tdc><%=rs("g_title")%>　</td>
<td  bgcolor=<%=tColor1%> class=tdc>  <%if rs("u_todaytime")=0 then%> <a href=mailto:<%=rs("email")%>><img alt=按此发邮件给<%=rs("username")%> src="image/email.gif"  border=0></a>
<%else
response.write("隐藏")
end if%></td>
<td  bgcolor=<%=tColor2%> class=tdc><%if rs("home")<>""then%> <a href="<%=rs("home")%>" target=_blank> <img alt=访问<%=rs("username")%>的主页 src="image/homepage.gif"  border=0></a><%
else
response.write("无")
end if%>
</td>
<td  bgcolor=<%=tColor1%> class=tdc> <a href="pm.asp?mode=add&action=add&username=<%=rs("username")%>"><img alt=按此发论坛短信给<%=rs("username")%> src="image/pm.gif"  border=0 ></a> </td>
          </tr>
<%rs.MoveNext 
rcount=rcount+1
loop 
	
rs.close 
set rs=nothing %>
          <tr  align="left" height=23> 
            <td colspan="10" bgcolor=<%=tColor2%> class=tdc >
           
            <%
          
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?view="&cpbview&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?view="&cpbview&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?view="&cpbview&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 用户数:"&r&"  ")%> 　</td></tr>

     <% else %> 
   <tr  align="center" height=23> 
            <td bgcolor=<%=tColor2%> class=tdc colspan="5">暂无用户加入</td>
          </tr>
      <%end if%>


      </table>
    

     


             </div>
             </div>
             <%end if%><!--#include file="bq.asp" -->