<% Function ChkString(string) ChkString = server.htmlencode(Replace(string, "'", "''")) End Function set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString if Request.QueryString("name")<>"" then StrSql = "Select * from members where m_name='" & ChkString(Request.QueryString("name")) &"'" set rs = my_conn.Execute(StrSql) if rs.Bof or rs.Eof then Response.Write "找不到该用户!" Response.End end if %>

border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">

align="center" class="sfh" colspan=2>查看用户<%=rs("M_Name")%>的资料
width="30%" align="right">	width="70%" >" %>
width="30%" align="right">用户名:	width="70%" ><%=rs("M_Name")%> ">向该用户发送短消息
align="right">性别:	><% if rs("M_Sex")=0 then Response.Write "美女" else Response.Write "帅哥" end if %>
align="right">注册日期	><% Response.Write year(rs("M_Reg_Day"))&"年"&month(rs("M_Reg_Day"))&"月" %>
align="right">E-Mail:	>"><%= rs("m_email") %>
align="right">主页:	>" target="_Blank"><%= rs("M_homepage") %>
align="right">来自:	><%= rs("M_country") %>
align="right">QQ:	><%= rs("M_ICQ") %>
align="right">MSN:	><%= rs("M_Msn") %>
align="right">发帖量:	><%= rs("M_Posts") %>
align="right">积分:	><%= rs("M_Num") %>
align="right">最后发表:	><%= rs("M_LastTime")%>发表了- <%=rs("M_LastPost")%>

<% else %> border =0 align="center" class="sft">

论坛首页 > 用户列表

<% StrSql = "Select * from members order by member_id DESC" if Request.QueryString("type")="post" then StrSql = "Select * from members order by M_Posts DESC" if Request.QueryString("type")="num" then StrSql = "Select * from members order by M_Num DESC" set rs = server.CreateObject("ADODB.RecordSet") rs.Open strSql, my_conn, 1, 1 Response.Write "

论坛当前共有"& rs.RecordCount &"名注册用户

" strtype = "" if Request.QueryString("type")="post" then strtype = "&type=post" if Request.QueryString("type")="num" then strtype = "&type=num" %> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft"> <% If rs.Eof or rs.Bof then Response.Write "" 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext RowCount= RowCount+ 1 loop End If %>

用户名	E-Mail	来自	发帖量	积分	最后发帖时间
无任何用户
" & rs("M_Name") & "	" & rs("M_Email") & "	" & rs("M_Country") & "	" & rs("M_Posts") & "	" & rs("M_Num") & "	" & year(rs("M_LastTime")) &"-"&month(rs("M_LastTime"))&"-"&day(rs("M_LastTime")) & "

cellspacing="1" cellpadding="3" class="sft">

<% Response.Write "共" & TotalPages & "页" 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 " <<" for i=beginpage to endpage if i=page then response.write " "&i&"" else response.write " "&i&"" end if next if endpage>>" %>

<% end if %> <% my_conn.Close set my_conn = nothing set rs = nothing %>