<!--#include file="../Index_Setting.asp"-->
<%
MaxPerPage=20
dim UserID,UserName
Dim sFaceUrl,FaceWidth,FaceHeight,UserIM
UserID=Cl.ChkClng(request("UserID"))
UserName=Trim(request("UserName"))
if UserID>0 then
	strFileName="Info.Asp?UserID=" & UserID
	sql="select * from " & Db.UserTable & " where UserID=" & UserID
Elseif UserName<>"" then
	UserName=Cl.Checkstr(UserName)
	strFileName="Info.Asp?UserName=" & UserName
	sql="select * from " & Db.UserTable & " where " & Db.UserName & "='" & UserName &"'"
Else
	Call Cl.OutErr("<br><li>请指定用户ID或者用户名！</li>")
	response.end
End if
Set rs=Cl.Execute_U(Sql)
if rs.bof and rs.eof then
	rs.close:set rs=Nothing
	Call Cl.OutErr("<br><li>找不到指定的用户</li>")
End if
UserIM=split(rs(Db.UserIM),"|||")
for i=0 to 6
	if Trim(UserIM(i))="" then UserIM(i)="未填"
next
sFaceUrl	= rs(Db.UserFace)
FaceWidth	= rs(Db.UserFaceWidth)
FaceHeight	= rs(Db.UserFaceHeight)
UserName	= rs(Db.UserName)
TempStr		= Template.html(5)
TempStr		= Replace(TempStr,"{%username%}",UserName)
if sFaceUrl="" or sFaceUrl="http://" or IsNull(sFaceUrl) then
	sFaceUrl="Images/Guestbook/03.gif"
	FaceWidth="80"
	FaceHeight="90"
else
	if Instr(sFaceUrl,"|")>0 and UserTableType = "Dvbbs" then
		Dim strFace
		strFace = Split(sFaceUrl,"|")
		If Ubound(strFace)>0 Then
			sFaceUrl=strFace(1)
		else
			sFaceUrl=strFace(0)
		end if
	end if
end if
if FaceWidth="" or IsNull(FaceWidth) or Not IsNumeric(FaceWidth) then FaceWidth="80"
if FaceHeight="" or IsNull(FaceHeight) or Not IsNumeric(FaceHeight) then FaceHeight="90"
if LCase(Left(sFaceUrl,7))="http://" then
	TempStr=Replace(TempStr,"{%faceurl%}",sFaceUrl)
else
	if UserTableType = "Dvbbs" then
		TempStr=Replace(TempStr,"{%faceurl%}",Replace(Cl.WebDir&BbsDir&sFaceUrl,"//","/"))
	else
		TempStr=Replace(TempStr,"{%faceurl%}",Cl.WebDir&sFaceUrl)
	end if
end if
TempStr=Replace(TempStr,"{%facewidth%}",FaceWidth)
TempStr=Replace(TempStr,"{%faceheight%}",FaceHeight)
TempStr=Replace(TempStr,"{%usersex%}",Cl.GetUsersex(rs(Db.UserSex)))
TempStr=Replace(TempStr,"{%useremail%}",rs(Db.UserEmail))
TempStr=Replace(TempStr,"{%userqq%}",UserIM(1))
TempStr=Replace(TempStr,"{%usermsn%}",UserIM(3))
TempStr=Replace(TempStr,"{%userhomepage%}",UserIM(0))
TempStr=Replace(TempStr,"{%userjoindate%}",Cl.Format_Time(rs(Db.UserJoinDate),5))
TempStr=Cl.ReplaceFlag(TempStr,"showarticle","")
if TotalPut>0 then
	TempStr=Replace(TempStr,"{%showpage%}",Cl.ShowPage(strFileName,TotalPut,MaxPerPage,"篇","文章"))
else
	TempStr=Replace(TempStr,"{%showpage%}","")
end if
rs.close:set rs=Nothing
Cl.Path = Cl.lanstr(1) & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a>&nbsp;&gt;&gt;&nbsp;用户信息：" & UserName
Cl.Title= Cl.Web_info(1) & " >> 用户信息：" & UserName
Response.write Cl.ReplaceAllFlag(TempStr)

'===================================================
' CreateLive CMS Version 3.1
'							Powered by Aspoo.CoM
'===================================================
' Mail: aspoo@126.com, Info@aspoo.cn
' Q  Q: 3315263, 596197794
' Msn : aspoo@126.com, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005 Aspoo.CoM All Rights Reserved.
'===================================================
%>