info.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<!--#include file="../Inc/Cl_Function_Article.asp"-->
<!--#include file="../Inc/Cl_Function_Soft.asp"-->
<!--#include file="../Inc/Cl_Function_Photo.asp"-->
<!--#include file="../Inc/Cl_Function_Movie.asp"-->
<!--#include file="../Inc/Cl_Function_Product.asp"-->
<%
Const ChannelID=0
Dim UserID,UserName
Dim sFaceUrl,FaceWidth,FaceHeight,UserIM
UserID = Cl.GetClng(request("UserID"))
UserName = Trim(request("UserName"))
if UserID>0 then
	FileName="Info.asp?UserID=" & UserID
	sql="select * from " & Db.UserTable & " where UserID=" & UserID
Elseif UserName<>"" then
	UserName=Cl.ReplaceBadChar(UserName)
	FileName="Info.asp?UserName=" & UserName
	sql="select * from " & Db.UserTable & " where " & Db.UserName & "='" & UserName &"'"
Else
	Call Cl.OutErr(0,"<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(0,"<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)
Call Template.Load(-2,13)
TempStr		= Template.Html
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,"{$useremail}",rs(Db.UserEmail))
TempStr = Replace(TempStr,"{$userqq}",UserIM(1))
TempStr = Replace(TempStr,"{$usermsn}",UserIM(3))
TempStr = Replace(TempStr,"{$userhomepage}",UserIM(0))
If InStr(TempStr,"{$usersex}") >0 Then TempStr = Replace(TempStr,"{$usersex}",Cl.GetUsersex(rs(Db.UserSex)))
If InStr(TempStr,"{$userjoindate}") >0 Then TempStr = Replace(TempStr,"{$userjoindate}",Cl.Format_Time(rs(Db.UserJoinDate),1))
If InStr(TempStr,"{$usergroupname}") >0 Then TempStr = Replace(TempStr,"{$usergroupname}",Cl.GetUserGroupName(rs(Db.UserGroupID)))
'If InStr(TempStr,"{$showarticle(") >0 Then TempStr = Template.ReplaceFlag(TempStr,"showarticle","")
'If InStr(TempStr,"{$showsoft(") >0 Then TempStr = Template.ReplaceFlag(TempStr,"showsoft","")
TempStr = Template.ReplaceFlag(TempStr,"showarticle|showphoto|showsoft|showmovie|showproduct|showarticlelist|showphotolist|showsoftlist|showmovielist|showpicarticle|showpicphoto|showpicsoft|showpicmovie","")
rs.close:set rs=Nothing

Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; 用户信息：" & UserName
Cl.Title= Cl.Web_info(1) & " &gt;&gt; 用户信息：" & UserName

Response.write Template.ReplaceAllFlag(TempStr)
CloseAllObj
'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: [e-mail], [e-mail]
' Q  Q: 3315263, 596197794
' Msn : [e-mail], [e-mail]
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>