<% '============================================================== ' 智思留言本4.0 (ZSLYB 4.0) ' ' 版权所有:智思网 www.zhisi.net 或 www.zslyb.com ' 程序版本:4.0 ' 发布日期:2011-06-20 ' 作者邮箱:zhisi@126.com ' ' 拷贝、使用、二次开发和分发等,必须保留以上的版权信息,侵权必究 '============================================================== %> <% If Not IsLogined Then Response.Redirect("signin.asp?mode="&UIMode) RelatePath="../" DBPath=RelatePath&DBPath Dim usid,usname usid=Trim(Request.QueryString("id")&"") If Not (Len(usid)>0 And IsNumeric(usid)) Then usname=Trim(Request.QueryString("name")&"") If Len(usname)=0 Then ShowAndGoto "非法操作!","./" End If End If OpenConn() If UIMode="ajax" Then%>
<%UserInfo usid,usname%>
<% ElseIf UIMode="user" Then UIMode="ajax" Call Header("",LangSpacePageTitle,LangSpacePageKeywords,LangSpacePageDescription,LangSpacePageLocation,True,"")%>
<%UserInfo usid,usname%>
<% Footer() Else Call Header("",LangSpacePageTitle,LangSpacePageKeywords,LangSpacePageDescription,LangSpacePageLocation,True,"") %>
<%UserInfo usid,usname%>
<% Footer() End If CloseConn() Sub UserInfo(id,usname) Dim sql,rsinfo,uname,ugender,uemail,uphone,umobile,ufax,uzip,uaddress,website,qq,avatar,sign,joindt sql="SELECT * FROM [User] WHERE" If Len(id)>0 Then sql=sql&" [ID]="&id Else sql=sql&" [UserName]='"&usname&"'" Set rsinfo=server.CreateObject("ADODB.RecordSet") rsinfo.Open sql, Conn, 0, 1 If Not (rsinfo.BOF And rsinfo.EOF) Then usname=rsinfo("UserName") uname=rsinfo("Name") ugender=CInt(rsinfo("Gender")) uemail=rsinfo("Email") uphone=rsinfo("Phone") umobile=rsinfo("Mobile") ufax=rsinfo("Fax") uzip=rsinfo("Zip") uaddress=rsinfo("Address") website=rsinfo("Website") qq=rsinfo("QQ") avatar=rsinfo("Avatar")&"" sign=rsinfo("Signature") joindt=rsinfo("AddDate") Else rsinfo.Close:Set rsinfo=Nothing CloseConn() ShowAndGoto "用户不存在!","./" End If rsinfo.Close:Set rsinfo=Nothing If avatar="" Then avatar="noavatar" %>

<%=usname%>

<%=LangAvatar%>../<%End If%>images/<%=AvatarPath%><%=avatar%>.gif" border="0" />
<%=LangNickName%><%=usname%>
<%=LangTrueName%><%=uname%>
<%=LangEmail%><%=uemail%>
<%=LangWebSite%><%=website%>
<%=LangQQ%><%=qq%>
<%=LangJoinDateTime%><%=joindt%>
<%=LangGender%><% If ugender=1 Then Response.Write(LangGenderMale) ElseIf ugender=0 Then Response.Write(LangGenderFemale) Else Response.Write(LangSecret) End If %>
<%=LangTelphone%><%=umobile%>
<%=LangMobile%><%=umobile%>
<%=LangAddress%><%=uaddress%>
<%=LangPostCode%><%=uzip%>
<%=LangSignature%><%=sign%>
<% End Sub %>