www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > address/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
%>