www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > user/user_info_show.asp

    <%
''===================================================================
'= ASP FILENAME	: /user/user_info_show.asp
'= CREATED TIME : 2006-5-6
'= LAST MODIFIED: 2006-5-6
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用户个人信息
'= Change Log:
'==================================================================='
%>

<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "../inc/inc_ubb.asp" -->
<!-- #include file = "./user_inc.asp" -->
<!-- #include file = "../inc/logic/logic_user.asp" -->
<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "user/user_info_show.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "用户个人信息"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "ShowUserAllInfoCtl"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'== 页面构造
Call ActionBuild()

'== 在模板中引用的标签变量
Dim TAG_objDicUnit		'== 单列记录


'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()
%>

<%
''===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加载页面模块
'==================================================================='
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/page_user_info_show.html.asp" --> 
<%
End Function

''===================================================================
'= Function    : ShowUserAllInfoCtl()
'= Time		   : Created At 2006-5-6
'= Input       : None
'= Description : 用户个人信息
'==================================================================='
Function ShowUserAllInfoCtl()
	Dim intSms,intNewSms,strTmp,arrTmp

	'== 短信数
	If Not GetUserSmsNumLogic(GBL_intUserId,intSms) Or Not GetUserNewSmsNumLogic(GBL_intUserId,intNewSms) Then
		Exit Function
	End If

	'== 取记录
	If Not GetUserLogic(" AND USER_ID=" & GBL_intUserId) Then Exit Function

	Set TAG_objDicUnit = GBL_objPubDB.GetRsOneRow() 

	'== 签名图
	If GBL_objPubDB.objPubRS("USER_FACE_SELECT") = "QQ秀" Then
		TAG_objDicUnit.Item("USER_QQ_SHOW") = "<img src='" & MakeQQShow(GBL_objPubDB.objPubRS("USER_QQ")) & "'  title='" & GBL_objPubDB.objPubRS("USER_REALNAME") & "的签名图'>"
	Else
		TAG_objDicUnit.Item("USER_QQ_SHOW") = MakeImg( GBL_objPubDB.objPubRS("USER_NOW_FACE")& " onload='javascript:DrawImage(this," & GBL_strUserFaceWidth & "," & GBL_strUserFaceHeight & ",1);'",GBL_objPubDB.objPubRS("USER_REALNAME") & "的签名图")
	End If

	'== 短信
	TAG_objDicUnit.Item("USER_SMS") = intSms
	TAG_objDicUnit.Item("USER_NEW_SMS") = intNewSms

	'== 生肖/星座
	TAG_objDicUnit.Item("USER_ANIMAL") = DisplayBirthAnimal(GBL_objPubDB.objPubRS("USER_BIRTH"),strTmp)
	TAG_objDicUnit.Item("USER_CON") = Constellation(GBL_objPubDB.objPubRS("USER_BIRTH"),strTmp)

	'== 身份
	Select Case GBL_objPubDB.objPubRS("USER_AUTHEN")
		Case	0	: strTmp = "普通成员"
		Case	1	: strTmp = "管理员"
		Case	2	: strTmp = "副管理员"
		Case	3	: strTmp = "未通过认证的新用户"
		Case	4	: strTmp = "锁定用户"
		Case	Else : strTmp = "不明用户"
	End Select
	TAG_objDicUnit.Item("USER_AUTH") = strTmp

	'== 签名档
	strTmp = ""
	If GBL_objPubDB.objPubRS("USER_INFO") <> "" And GBL_objPubDB.objPubRS("USER_INFO") <> CONST_DIVIDER Then
		arrTmp = Split(GBL_objPubDB.objPubRS("USER_INFO"),CONST_DIVIDER)
		If Isarray(arrTmp) Then
			strTmp = UbbCode(arrTmp(0))
		Else
			strTmp = "未填"
		End If
	Else
		strTmp = "未填"
	End If
	TAG_objDicUnit.Item("USER_SIGN") = strTmp

	'== 生日祝福提示
	Call PopBirthCelebrate(GBL_objPubDB.objPubRS("USER_BIRTH"),GBL_objPubDB.objPubRS("USER_REALNAME"))

End Function
''===================================================================
'= Function     : PopBirthCelebrate(dateBirth,strUserName)
'= Time		    : Created At Nov,26,2003
'= Input        : dateBirth : user birth
'= Description  : your birth
'==================================================================='
Function PopBirthCelebrate(dateBirth,strUserName)

	Exit Function
	Dim strPopFile,strPopFile1

	strPopFile = "user_pop_birth.asp?pstName=" & strUserName

	if DAY(dateBirth) = Day(Now()) AND MONTH(dateBirth)= Month(Now()) Then
		Response.Write "<script language='JavaScript'>window.open('" & strPopFile & "','热烈祝贺生日快乐','top=0,left=0,width=319,height=282,scrollbars=no,menubar=no,toolbar=no,resizable=no');window.title='生日快乐'</script>"
	End If 

End Function
%>