viewuser.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString

if Request.QueryString("name")<>"" then
	
StrSql = "Select * from members where m_name='" & Request.QueryString("name") &"'"
set rs = my_conn.Execute(StrSql)
if rs.Bof or rs.Eof then
  Response.Write "找不到该用户!"
  Response.End
end if
%>
<br><br>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" class="sfh" colspan=2>查看用户资料</td></tr>
<TR>
<TD bgcolor=<%=CellColor1%> width="30%" align="right">用户名:</td>
<TD bgcolor=<%=CellColor1%> width="70%" ><%=rs("M_Name")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://snowman/message.asp?mode=write&toname=<%=rs("M_Name")%>">向该用户发送短消息</a></td></tr>
<TR><TD bgcolor=<%=CellColor1%> align="right">性别:</td>
<TD bgcolor=<%=CellColor1%>><%
if rs("M_Sex")=0 then
 Response.Write "美女"
else
 Response.Write "帅哥"
end if
%>
</TD></TR>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">E-Mail:</td>
<TD bgcolor=<%=CellColor1%>><a href="mailto:<%= rs("m_email") %>"><%= rs("m_email") %></a></td></tr>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">主页:</td>
<TD bgcolor=<%=CellColor1%>><a href="<%= rs("M_homepage") %>" target="_Blank"><%= rs("M_homepage") %></a></td></tr>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">来自:</td>
<TD bgcolor=<%=CellColor1%>><%= rs("M_country") %></TD></TR>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">QQ:</td>
<TD bgcolor=<%=CellColor1%>><%= rs("M_ICQ") %></TD></TR>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">MSN:</td>
<TD bgcolor=<%=CellColor1%>><%= rs("M_Msn") %></TD></TR>
<TR>
<TD bgcolor=<%=CellColor1%> align="right">发帖量:</td>
<TD bgcolor=<%=CellColor1%>><%= rs("M_Posts") %></TD></TR>
<TD bgcolor=<%=CellColor1%> align="right">最后发表:</td>
<TD bgcolor=<%=CellColor1%>><%= rs("M_LastTime")%>发表了《<%=rs("M_LastPost")%>》</TD></TR>
</TABLE>
<%
' 无参数时查看所有用户信息
else
%>
<table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td><a href="index.asp">论坛首页</a> > 用户列表</td></tr></table>
<%
StrSql = "Select * from members order by member_id DESC"
set rs = server.CreateObject("ADODB.RecordSet")
rs.Open strSql, my_conn, 1, 1

Response.Write "<center>论坛当前共有"& rs.RecordCount &"名注册用户</center>"
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
  <tr>
    <td align="center" bgcolor="<% =HeadColor %>" width="20%" class="sfh">用户名</td>
    <td align="center" bgcolor="<% =HeadColor %>" width="20%" class="sfh">E-Mail</td>
    <td align="center" bgcolor="<% =HeadColor %>" width="20%" class="sfh">来自</td>
    <td align="center" bgcolor="<% =HeadColor %>" width="10%" class="sfh">发帖量</td>
    <td align="center" bgcolor="<% =HeadColor %>" width="30%" class="sfh">最后发表</td>
  </tr>
<%
If rs.Eof or rs.Bof then
	Response.Write "<tr><td bgcolor=" &CellColor1&" colspan=6 >无任何用户</td></tr>"
Else
		
		rs.PageSize = ForumRow
		PageSize = rs.PageSize
		TotalPages=rs.PageCount
		page=Request.QueryString("page")
		if not IsNumeric(page) then page=1
		if page>1 then
		  page = cint(page)
		else
		  page = 1
		end if
		if page>TotalPages then page=TotalPages
		rs.AbsolutePage=page
		do until rs.Eof or RowCount>= PageSize
		  Response.Write "<tr>"
		  Response.Write "<td bgcolor='" & CellColor1 & "' valign='top' align='center'>" &  rs("M_Name") & "</td>"
		  Response.Write "<td bgcolor='" & CellColor1 & "' valign='top' align='center'>" &  rs("M_Email") & "</td>"
		  Response.Write "<td bgcolor='" & CellColor1 & "' valign='top' align='center'>" &  rs("M_Country") & "</td>"
		  Response.Write "<td bgcolor='" & CellColor1 & "' valign='top' align='center'>" &  rs("M_Posts") & "</td>"
		  Response.Write "<td bgcolor='" & CellColor1 & "' valign='top' align='center'>" &  rs("M_LastTime")& "  "& rs("M_LastPost") & "</td>"
	      Response.Write "</tr>"
	    rs.MoveNext
	    RowCount= RowCount+ 1
	    loop
End If
%>
</table>
<table align="center" border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td align="center">
<%
Response.Write "共" & TotalPages & "页<b>"
beginpage=1
endpage=Totalpages
if TotalPages>=5 then
  if page>=3 then
    beginpage=page-2
    if page<=(TotalPages-2) then
      endpage=page+2
    else
      endpage=TotalPages
      beginpage=TotalPages-4
    end if
  else
    beginpage=1
    endpage=5
  end if
end if
if beginpage>1 then response.write " <a href='viewuser.asp?page=1'>&lt&lt</a>"
for i=beginpage to endpage
  if i=page then
    response.write " <font color=#cc0066>"&i&"</font>"
  else
    response.write " <a href='viewuser.asp?page="&i&"'>"&i&"</a>"
  end if
next
if endpage<TotalPages then response.write " <a href='viewuser.asp?page="&TotalPages&"'>&gt&gt</a>"
%>           
</b></td></tr></table>
<%
end if
%>
<!--#INCLUDE FILE="copyright.asp" -->
</body></html>
<%
my_conn.Close
set my_conn = nothing
set rs = nothing
%>