<%
'===================================================================
'= ASP FILENAME	: /admin/admin_user_detail.asp
'= CREATED TIME : 2006-4-30
'= LAST MODIFIED: 2006-4-30
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用戶詳細信息
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/admin/include_admin_action_view.asp" -->
<!-- #include file = "./admin_inc.asp" -->
<!-- #include file = "../inc/logic/logic_user.asp" -->
<!-- #include file = "../inc/inc_ubb.asp" -->

<%
'========================================================
'==   Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE	= "admin/admin_user_detail.asp"

'== 頁面標題/功能
Const CONST_PAGE_TITLE	= "用戶詳細信息"

'== 功能函數名字空間
Const CONST_ACTION_FUNC	= "UserDetailCtl"

'== 相對根目錄路徑 
GBL_strHomeURL			= "../"

'== 頁面構造
Call ActionBuild()

'== 在模板中引用的標簽變量
Dim TAG_objDicUnit

'== 請求校驗與過濾
Call ActionViewFilterAdmin(CONST_PAGE_FILE,CONST_ACTION_FUNC)


'== 頁面析構
Call ActionOver()
%>

<%
'===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加載頁面模塊
'===================================================================
Function LoadPageTpl()
%>
	<!-- #include file = "../template_a/page_admin_user_detail.html.asp" -->
<%
End Function

'===================================================================
'= Function	   : UserDetailCtl()
'= Time		   : Created At 2006-5-2
'= Input       : None

'= Description : 用戶詳細信息
'===================================================================
Function UserDetailCtl()
	Dim intUserId,intSms,intNewSms,strTmp,arrTmp

	'== 服務器端數據校驗
	If Not ServerDataCheck(arrGetUserDetailChk) Then Exit Function

	'== 獲取ID參數
	If Not GetPostIdValue("intUserId","用戶",intUserId) Then Exit Function

	'== 取短信數
	If Not GetUserSmsNumLogic(intUserId,intSms) Or Not GetUserNewSmsNumLogic(intUserId,intNewSms) Then Exit Function

	If Not GetUserLogic(" AND USER_ID=" & intUserId) Then Exit Function

	If Not ResultExecute(GBL_objPubDB.intRSNum,"該用戶","ES_DB_NO") Then
		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)

		'== 身份
		TAG_objDicUnit.Item("USER_AUTH") = GetUserAuthLogic(GBL_objPubDB.objPubRS("USER_AUTHEN"))

		'== 簽名檔
		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
	End If
End Function
%>