<% Dim ID,UserName ID=LaoYRequest(request("id")) UserName1=CheckStr(Trim(request("UserName"))) set rs=server.createobject("adodb.recordset") If ID<>"" then sql="select * from "&tbname&"_User where id="&ID&"" Else sql="select * from "&tbname&"_User where UserName='"&UserName1&"'" End if rs.open sql,conn,1,1 if rs.eof and rs.bof then Call Alert("不正确的用户",""&SitePath&"Index.asp") else %> <%=rs("UserName")%>的资料-<%=SiteTitle%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> 会员列表 >> 会员详细资料
<% UserID=Request.Cookies("Yao")("ID") If UserID="" then Response.Write("
") else %>
用户名: <%=rs("UserName")%> "" then Response.Write(""&laoyface(rs("UserFace"))&"") else Response.Write(""&SitePath&"images/noface.gif") end if%>" width=100 height=100/>
<%=moneyname%>: <%=rs("UserMoney")%>
等级: <%=UserGroupInfo(rs("UserGroupID"),0)%>
性别: <%=IIf(rs("sex")=0,"女","男")%>
Email地址: <%=rs("Email")%>
籍贯(省/市): <%=rs("province")%><%=rs("city")%>
出生日期: <%=rs("Birthday")%>
QQ号码: <%=rs("UserQQ")%>
最近登录时间: <%=rs("LastTime")%>
最后登陆IP: " target="_blank"><%=iparray(rs("LastIP"))%> ←点击IP查询位置
<%End if%>
<%If laoyvip then%>
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top 10 id,title,AddTime from "&tbname&"_Guestbook where yn = 1 and yaoid = 0 and userid = "&rs("id")&" order by ID desc" rs1.open sql1,conn,1,3 NoI=0 If Not rs1.Eof Then do while not (rs1.eof or err) NoI=NoI+1 %>
  • <%=FormatDate(rs1(2),5,0)%><%=NoI%>.<%=rs1(1)%>
  • <% rs1.movenext loop else Response.Write("
  • "&rs("UserName")&"还没有帖子!
  • ") end if rs1.close set rs1=nothing %>
  • ">查看更多<%=rs("UserName")%>的帖子...
<%End If%>
<%Echo ShowAD(3)%>
    <%Call ShowArticle(0,10,5,"·",100,"no","DateAndTime desc,ID desc",0,1,0)%>
<% rs.close set rs=nothing end if %> <%=Copy%>