%
'==============================================================
' 智思留言本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%>
<%
ElseIf UIMode="user" Then
UIMode="ajax"
Call Header("",LangSpacePageTitle,LangSpacePageKeywords,LangSpacePageDescription,LangSpacePageLocation,True,"")%>
<%
Footer()
Else
Call Header("",LangSpacePageTitle,LangSpacePageKeywords,LangSpacePageDescription,LangSpacePageLocation,True,"")
%>
<%
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%>../<%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
%>