<% '请勿改动下面这三行代码 const ChannelID=2 Const ShowRunTime="Yes" SkinID=0 MaxPerPage=20 dim UserID UserID=trim(request("UserID")) if UserID="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定UserID
    • " call WriteErrMsg() response.end else UserID=Clng(UserID) end if strFileName="UserInfo.asp?UserID=" & UserID sql="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID set rs=server.createobject("adodb.recordset") rs.open sql,Conn_User,1,1 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到指定的用户
  • " else UserName=rs(db_User_Name) PageTitle="用户信息：" & UserName %> <%=strPageTitle & "----用户信息：" & UserName%> <%call MenuJS()%> onmousemove='HideMenu()'>
    个 人 信 息
    <% if Instr(rs(db_user_face),"ttp://")>1 then response.write "" else response.write "" end if %>
    呢称：
    		 <%= UserName %>
    性别：
    		 <% if rs(db_User_Sex)=1 then response.write "男" else response.write "女" end if %>
    信箱：
    		 <%response.write "" & rs(db_User_Email) & ""%>
    QQ号：
    		 <% if rs(db_User_QQ)<>"" then response.write rs(db_User_QQ) else response.write "未填" end if %>
    MSN ：
    		 <% if rs(db_User_Msn)<>"" then response.write rs(db_User_Msn) else response.write "未填" end if%>
    主页：
    		 <%if rs(db_User_Homepage)<>"" then response.write rs(db_User_Homepage) else response.write "未填" end if%>
    注册：
    		 <%=FormatDateTime(rs(db_User_RegDate),2)%>
    文 章 搜 索
    <% call ShowSearchForm("Article_Search.asp",1) %>

     
    <%= UserName %>个人文集
    <%call ShowUserArticle(54)%>
    <% if totalput>0 then call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章") end if %>
    <% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% end if rs.close set rs=nothing call CloseConn() %>