?? address_inc.asp
字號:
<%
'===================================================================
'= ASP FILENAME : /address/address_inc.asp
'= CREATED TIME : MAY,4,2003
'= LAST MODIFIED: AUG,10,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : class infomation public functions
'= Change Log :
'===================================================================
%>
<%
'== 校友搜索表單數據校驗設置
Dim arrAddressSearchDataChk(2)
arrAddressSearchDataChk(0) = Array("DT_FIX_LENGTH" ,"iptAccount" ,"注冊名" ,0 ,20)
arrAddressSearchDataChk(1) = Array("DT_FIX_LENGTH" ,"iptRealName" ,"真實姓名" ,0 ,20)
arrAddressSearchDataChk(2) = Array("DT_FIX_LENGTH" ,"iptClass" ,"在校班級" ,0 ,20)
'== 查看用戶信息數據校驗設置
Dim arrShowUserPopDataChk(0)
arrShowUserPopDataChk(0) = Array("DT_ID" ,"intUserId" ,"用戶")
'== 校友搜索表單查詢條件設置
Dim arrAddressSearch(4)
arrAddressSearch(0) = Array("FS_STR_ALL","iptAccount","CLASS_USER.USER_ACCOUNT","注冊名")
arrAddressSearch(1) = Array("FS_STR_ALL","iptRealName","CLASS_USER.USER_REALNAME","真實姓名")
arrAddressSearch(2) = Array("FS_STR_ALL","iptClass","CLASS_USER.USER_CLASS","在校班級")
arrAddressSearch(3) = Array("FS_INT","iptEnroll","CLASS_USER.USER_ENROLL","入學年份")
arrAddressSearch(4) = Array("FS_INT","iptGrad","CLASS_USER.USER_GRAD","畢業年份")
''===================================================================
'= Function : ShowPerAddress()
'= Time : Created At OCT,28,2003
'= Input : None
'= Table : Qurey CLASS_USER,
'= Description : show someone's information
'==================================================================='
Function ShowPerAddress()
Dim clsTable '== the object of table
Dim GetRSId
Dim strHtmlCode,strTmp
Dim strTdClassRight,strTdClassLeft
strTdClassRight = "CSS_TD_LEFT1"
strTdClassLeft = "CSS_TD_LEFT2"
GetRSId = Trim(Request.QueryString("pstUserId"))
If Not IsNumeric(GetRSId) Then
Response.Write "<p align=center>對不起，找不到該用戶<br>ID：" & GetRSId & "</p>"
Exit Function
End If
clsPubDB.Clear()
clsPubDB.TableName = "CLASS_USER"
clsPubDB.SQLType = "SELECT"
clsPubDB.AddField "*",""
clsPubDB.Where = "USER_ID=" & GetRSId
clsPubDB.SQLRSExecute()
Call ResultExecute(clsPubDB.intErrNum,"","ES_ERR")
If Not ResultExecute(clsPubDB.intRSNum,"該用戶","ES_DB_NO") Then
Set clsTable = New classTable
'== Set table prameters
clsTable.Border = "0"
clsTable.CellPadding = "2"
clsTable.CellSpacing = "1"
clsTable.Width = "90%"
clsTable.ClassType = "CSS_TB1"
clsTable.Align = "center"
clsTable.MakeTable()
clsTable.AddTitleTr ""
strHtmlCode = " [帳號] " & clsPubDB.objPubRS("USER_ACCOUNT")
strHtmlCode = strHtmlCode & "<br>" & " [姓名] " & clsPubDB.objPubRS("USER_REALNAME") & "<br>" & " [積分] " & clsPubDB.objPubRS("USER_LEVEL") & "分"
strHtmlCode = strHtmlCode & "<br>" & " <a href=javascript:OpwCollection(0," & GetRSId & ",'" & clsPubDB.objPubRS("USER_REALNAME") & "');><img src=" & GBL_strHomeURL & "images/user/collect.GIF border=0 title='加為好友' align=absmiddle width=16 height=16>[加為好友]</a>"
clsTable.AddTitleTd strHtmlCode,strTdClassLeft,"45%"
If clsPubDB.objPubRS("USER_FACE_SELECT") = "QQ秀" Then
strHtmlCode = "<img src='" & MakeQQShow(clsPubDB.objPubRS("USER_QQ")) & "' title='" & clsPubDB.objPubRS("USER_REALNAME") & "的簽名圖'>"
Else
strHtmlCode = MakeImg( clsPubDB.objPubRS("USER_NOW_FACE")& " onload='javascript:DrawImage(this," & GBL_strUserFaceWidth & "," & GBL_strUserFaceHeight & ",1);'",clsPubDB.objPubRS("USER_REALNAME") & "的簽名圖")
End If
clsTable.AddTitleTd strHtmlCode,"CSS_TD_CENTER1","55%"
clsTable.AddTr ""
clsTable.AddTd " 班級：" & clsPubDB.objPubRS("USER_CLASS"),strTdClassLeft
clsTable.AddTd " 登陸：" & clsPubDB.objPubRS("USER_LOGIN_COUNT") & "次" ,strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " 性別：" & clsPubDB.objPubRS("USER_SEX"),strTdClassLeft
clsTable.AddTd " 職業：" & clsPubDB.objPubRS("USER_WORK") ,strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " QQ號：" & clsPubDB.objPubRS("USER_QQ"),strTdClassLeft
clsTable.AddTd " 相片：" & clsPubDB.objPubRS("USER_PHOTO") & "張, 相片評論：" & clsPubDB.objPubRS("USER_REVIEW") & "條",strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " 留言：" & clsPubDB.objPubRS("USER_BOARD") & "條",strTdClassLeft
clsTable.AddTd " 發貼：" & clsPubDB.objPubRS("USER_TOPICS") & "條, 回貼：" & clsPubDB.objPubRS("USER_REPLY") & "條",strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " 生日：" & clsPubDB.objPubRS("USER_BIRTH"),strTdClassLeft
clsTable.AddTd " 入學年份：" & clsPubDB.objPubRS("USER_ENROLL")& "年" ,strTdClassRight
clsTable.AddTr ""
strHtmlCode = "<a href='mailto:" & clsPubDB.objPubRS("USER_EMAIL") & "' title='給" & clsPubDB.objPubRS("USER_REALNAME") & "發郵件'>" & clsPubDB.objPubRS("USER_EMAIL") & "</a>"
clsTable.AddTd " 郵箱：" & strHtmlCode,strTdClassLeft
clsTable.AddTd " 畢業年份：" & clsPubDB.objPubRS("USER_GRAD") & "年",strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " 電話：" & clsPubDB.objPubRS("USER_TELE"),strTdClassLeft
strHtmlCode = clsPubDB.objPubRS("USER_ADD_DATE")
strHtmlCode = Right(strHtmlCode,Len(strHtmlCode)-2)
clsTable.AddTd " 注冊：" & strHtmlCode ,strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " ID號：" & clsPubDB.objPubRS("USER_ID"),strTdClassLeft
strHtmlCode = clsPubDB.objPubRS("USER_LAST_TIME")
strHtmlCode = Right(strHtmlCode,Len(strHtmlCode)-2)
clsTable.AddTd " 最近登陸：" & strHtmlCode,strTdClassRight
clsTable.AddTr ""
clsTable.AddTd " 星座：" & Constellation(clsPubDB.objPubRS("USER_BIRTH"),strTmp) & " " & strTmp,strTdClassLeft
clsTable.AddTd " 生肖：" & DisplayBirthAnimal(clsPubDB.objPubRS("USER_BIRTH"),strTmp) & " " & strTmp,strTdClassRight
clsTable.AddInfoTr "","TOP"
clsTable.AddInfoTd " <img src=" & GBL_strHomeURL & "images/new/card.gif border=0> " ,GBL_cssFormTitleTd
clsTable.AddInfoTr "","BOTTOM"
clsTable.AddInfoTd " 通信地址：" & clsPubDB.objPubRS("USER_ADDRESS"),strTdClassLeft
clsTable.AddInfoTr "","BOTTOM"
clsTable.AddInfoTd " 工作單位：" & clsPubDB.objPubRS("USER_WORKSHOP"),strTdClassLeft
Select Case clsPubDB.objPubRS("USER_AUTHEN")
Case 0 : strTmp = "普通用戶"
Case 1 :
If clsPubDB.objPubRS("USER_ACCOUNT") = GBL_strAdminAccount Then
strTmp = "管理員"
Else
strTmp = "副管理員"
End If
Case 3 : strTmp = "未通過認證的新用戶"
Case 4 : strTmp = "鎖定用戶"
Case 8 : strTmp = "尚未批準加入的成員"
Case Else : strTmp = "不明用戶"
End Select
clsTable.AddInfoTr "","BOTTOM"
clsTable.AddInfoTd " 校友身份：" & strTmp ,strTdClassLeft
strTmp = MakeImg(GBL_strImgIco & "User_sms.gif","給" & clsPubDB.objPubRS("USER_REALNAME") & "發站內短信")
strTmp = "<a href='" & GBL_strHomeURL & "sms/sms_add_form.asp?action=FormNewSms&pstIncepterId=" & clsPubDB.objPubRS("USER_ID") & "&pstIncepter=" & clsPubDB.objPubRS("USER_REALNAME") & "' target=_blank>" & strTmp & "[發送短信]" & "</a>"
clsTable.AddInfoTr "","BOTTOM"
clsTable.AddInfoTd strTmp ,strTdClassLeft
If clsPubDB.objPubRS("USER_INFO") <> "" And clsPubDB.objPubRS("USER_INFO") <> CONST_DIVIDER Then
arrTmp = Split(clsPubDB.objPubRS("USER_INFO"),CONST_DIVIDER)
If Isarray(arrTmp) Then
strTmp = UbbCode(arrTmp(0))
clsTable.AddInfoTr "","BOTTOM"
clsTable.AddInfoTd " 用戶簽名檔：<br>" & strTmp ,strTdClassLeft
End If
End If
'If CONST_PAGE_FILE <> "address/address_userinfo_pop.asp" Then
'clsTable.AddInfoTr "","BOTTOM"
'strTmp = ""
'strTmp = GetNextRS("USER_ID","CLASS_USER","USER_ID>" & GetRSId,"USER_ID DESC")
'If strTmp = -1 Then
' strTmp = ""
'Else
' strTmp = MakeLink("address/address_person.asp?action=ShowPerAddress&pstUserId=" & strTmp,"【下翻】","查看下一位校友信息")
'End If
'strHtmlCode = ""
'strHtmlCode = GetNextRS("USER_ID","CLASS_USER","USER_ID<" & GetRSId,"USER_ID DESC")
'If strHtmlCode = -1 Then
'strHtmlCode = ""
'Else
' strHtmlCode = MakeLink("address/address_person.asp?action=ShowPerAddress&pstUserId=" & strHtmlCode,"【上翻】","查看上一位校友信息")
'End If
'clsTable.AddInfoTd strTmp & strHtmlCode ,strTdClassRight
'End If
Response.Write "<br>"
clsTable.OutFlag = 2
ShowPerAddress = ""
ShowPerAddress = clsTable.OutPutTable()
Set clsTable = Nothing
End If
clsPubDB.Clear()
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -