address_list_func.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'===================================================================
'= ASP FILENAME	: /address/address_list_func.asp
'= CREATED TIME : Feb,08,2004
'= LAST MODIFIED: Feb,08,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : class base list pub func
'= Change Log:
'===================================================================

'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub         : ShowContentAddress(objRSCont,intMaxPerPage) 
'= Time		   : Created At May,17,2003
'= Input       : objRSCont	   : 记录集
'=				 intMaxPerPage : 每页记录条数
 
'= Called by   :
'= Calls       :
'= Table	   : Qurey CLASS_USER,
'= Description : 显示本页记录内容
'===================================================================
Sub ShowContentAddress(objRSCont,intMaxPerPage)

	Dim i,k
	Dim clsTable			'== the object of table
	Dim strTdClass			'== td's css
	Dim strHtmlCode,strTmp

	strTmp = ""
	strHtmlCode = ""

	Do While Not objRSCont.Eof

		i = i + 1
						
		If (i Mod 2) = 0 Then 
			strTdClass = GBL_cssListTd1
		Else
			strTdClass = GBL_cssListTd2
		End If	
		Set clsTable = New classTable

		'== Set table prameters
		clsTable.Border = "0"
		clsTable.CellPadding = "2"
		clsTable.CellSpacing = "1"
		clsTable.Width = "96%"
		clsTable.ClassType = "CSS_TR4"
		clsTable.Align = "center"

		strQuery = Trim(Request("pstAddType"))
		clsTable.PostFile = GBL_strHomeURL & "address_list.asp?action=ShowAddress&pstAddType="
		clsTable.MakeTable()

		clsTable.AddTitleTr ""
		Select Case objRSCont("USER_AUTHEN") 
			Case	 0	:	strHtmlCode = "普通用户"
			Case	 1	:	
							If objRSCont("USER_ACCOUNT") = GBL_strAdminAccount Then
								strHtmlCode = "管理员"
							Else
								strHtmlCode= "副管理员"
							End If
			Case	8	:	strHtmlCode = "尚未批准"
		End Select
		clsTable.AddTitleTd "身份：","CSS_TD_CENTER2","15%"
		clsTable.AddTitleTd strHtmlCode,"CSS_TD_LEFT1","35%"

		clsTable.AddTitleTd "邮件：","CSS_TD_CENTER2","15%"
		strHtmlCode = MakeLink("mailto:" & clsPubDB.objPubRS("USER_EMAIL"),clsPubDB.objPubRS("USER_EMAIL"),"给" & clsPubDB.objPubRS("USER_REALNAME") & "发邮件")
		clsTable.AddTitleTd strHtmlCode,"CSS_TD_LEFT1","35%"

		clsTable.AddTr ""
		clsTable.AddTd "班级：","CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_CLASS") ,"CSS_TD_LEFT1"
		clsTable.AddTd "登陆：","CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_LOGIN_COUNT") & "次","CSS_TD_LEFT1"

		clsTable.AddTr ""
		clsTable.AddTd "注册：","CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_ADD_DATE"),"CSS_TD_LEFT1"
		clsTable.AddTd "最近：","CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_LAST_TIME"),"CSS_TD_LEFT1"

		If objRSCont("USER_WORKSHOP") <> "" Then
			clsTable.AddTr ""
			clsTable.AddTd "工作：","CSS_TD_CENTER2"
			clsTable.AddTd objRSCont("USER_WORKSHOP"),"CSS_TD_LEFT1 colspan=3"
		End If
		
		If objRSCont("USER_ADDRESS") <> "" Then
			clsTable.AddTr ""
			clsTable.AddTd "地址：","CSS_TD_CENTER2"
			clsTable.AddTd objRSCont("USER_ADDRESS"),"CSS_TD_LEFT1 colspan=3"
		End If

		If objRSCont("USER_TELE") <> "" Then
			clsTable.AddTr ""
			clsTable.AddTd "电话：","CSS_TD_CENTER2"
			clsTable.AddTd objRSCont("USER_TELE"),"CSS_TD_LEFT1 colspan=3"
		End If

		clsTable.AddInfoTr "","TOP"
		clsTable.AddInfoTd "&nbsp;&nbsp;姓名：" & objRSCont("USER_REALNAME") & " ::::::::::::::::::::::::::::::::::::::::::::::","CSS_TD_LEFT2"

		clsTable.AddInfoTr "","BOTTOM"
		strHtmlCode = "<img src=" & GBL_strHomeURL & "images/plus_ico.gif style='CURSOR: hand'  onclick=ShowUsrInfoFrame(trFollow" & i & ",'tdFollow" & i &"','imgFollow" & i & "','" & objRSCont("USER_ID") & "',strFollow" & i & ") name=imgFollow" & i & " id=imgFollow" & i & " loaded=no align=absmiddle>"

		strTmp = MakeImg(GBL_strImgIco & "User_sms.gif","给" & objRSCont("USER_REALNAME") & "发站内短信")
		strTmp = MakeLinkClew("sms/sms_add_form.asp?action=FormNewSms&pstIncepterId=" & objRSCont("USER_ID") & "&pstIncepter=" & objRSCont("USER_REALNAME"),strTmp,"给其发短信","")

		clsTable.AddInfoTd strHtmlCode & "&nbsp;[<span id=strFollow" & i & " style='CURSOR: hand'  onclick=ShowUsrInfoFrame(trFollow" & i & ",'tdFollow" & i &"','imgFollow" & i & "','" & objRSCont("USER_ID") & "',strFollow" & i & ") name=imgFollow" & i & " id=imgFollow" & i & ">查看</span>详细]&nbsp;&nbsp;" & strTmp,"CSS_TD_LEFT2"

		clsTable.AddInfoTrHidden "","trFollow" & i,"BOTTOM"
		clsTable.AddInfoTdHidden "正在下载中......","tdFollow" & i,"CSS_TD_LEFT1"

		Response.Write "<br>"
		clsTable.OutPutTable()
		Set clsTable = Nothing

		If i >= intMaxPerPage Then Exit Do
			objRSCont.MoveNext
		
	Loop

	Response.Write "<br><IFRAME name=hiddenframe  frameborder=0 height=0 width=0 ></IFRAME>"
	
End Sub
'=============== End of Sub ShowContentAddress() ====================
'=============== FUNCTION BODY END ==================================
%>
<script language=javascript>
//===================================================================
//= Sub         : ShowUsrInfoFrame(objTr,objTd,objImg,UsrId)
//= Time		: Created At Feb,19,2004
//= Input       : 
//= Output      : 
//= Called by   :
//= Calls       :
//= Description : show user info by frame mode
//===================================================================
function ShowUsrInfoFrame(objTr,objTd,objImg,UsrId,objClew)
{
	if (EndFlag == 0)
	{
		alert("网页未下载完成,请稍候...");
		return;
	}
	if (objTr.style.display != 'block')
	{
		objTr.style.display = "block";
		document.images[objImg].src = "<%=GBL_strHomeURL%>images/minus_ico.gif";
		//strFollow1.innerHTML = "xx"；
		if (document.images[objImg].loaded == "no")
		{
			document.frames["hiddenframe"].location.replace("<%=GBL_strHomeURL%>address/address_userinfo_frame.asp?pstUserId=" + UsrId + "&objTd=" + objTd + "&objImg=" + objImg);
		}
	}
	else
	{
		objTr.style.display = "none";
		document.images[objImg].src = "<%=GBL_strHomeURL%>images/plus_ico.gif";
		//strFollow1.innerHTML = "xxsd"；
	}
}
//================ End of func ShowUsrInfoFrame() ==================
</script>