www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > address/address_list_func.asp
<% '=================================================================== '= 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 " 姓名:" & 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 & " [<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>详细] " & 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>