?? meet_joinlist_pop.asp
字號:
<%
'===================================================================
'= ASP FILENAME : /meet/meet_joinlist_pop.asp
'= CREATED TIME : Feb,10,2004
'= LAST MODIFIED: Feb,10,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : 活動報名表
'= Change Log:
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "./meet_inc.asp" -->
<!-- #include file = "../inc/logic/logic_meet.asp" -->
<%
'========================================================
'== Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE = "meet/meet_joinlist_pop.asp"
'== 頁面標題/功能
Const CONST_PAGE_TITLE = "活動報名表"
'== 功能函數名字空間
Const CONST_ACTION_FUNC = "ShowJoinListPopCtl"
'== 相對根目錄路徑
GBL_strHomeURL = "../"
'== 頁面構造
Call ActionBuild()
'== 在模板中引用的標簽變量
Dim TAG_strVerifyCode '== 表單校驗
Dim TAG_strPageNav '== 翻頁導航
'== 請求校驗與過濾
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'== 頁面析構
Call ActionOver()
%>
<%
''===================================================================
'= Function : LoadPageTpl()
'= Time : Created At 2006-5-7
'= Description : 加載頁面模塊
'==================================================================='
Function LoadPageTpl()
%>
<!-- #include file = "../template_c/page_meet_join_pop.html.asp" -->
<%
End Function
'===================================================================
'= Function : ShowJoinListPopCtl()
'= Time : Created At 2006-5-7
'= Input : None
'= Description : 活動報名表
'===================================================================
Function ShowJoinListPopCtl()
Dim strFileName
Dim intMaxPerPage
Dim strSql
Dim intCurPage,intTotalPut
Dim intMeetId,strAddType
strAddType = Trim(Request.QueryString("pstAddType"))
If strAddType <> "1" And strAddType <> "2" And strAddType <> "0" Then
Response.Write "<p align=center>錯誤：表態類型</p>"
Exit Function
End If
intMeetId = FmtFormData(Request.QueryString("intMeetId"))
intMaxPerPage = GBL_intMaxPerPage
intMaxPerPage = 15
strFileName = "meet_joinlist_pop.asp?pstAddType=" & strAddType & "&intMeetId=" & intMeetId
'== 取報名表
strSql = " AND MEET_JOIN_MEET_ID=" & intMeetId
If Not GetMeetJoinsLogic(strSql) Then Exit Function
If GBL_objPubDB.intRSNum > 0 Then
intTotalPut = GBL_objPubDB.intRSNum
intCurPage = GetCurPage(intMaxPerPage,intTotalPut)
If intCurPage = 1 Then
Call ShowContentJoin(GBL_objPubDB.objPubRS,intMaxPerPage,strAddType)
Call ShowPage2(intTotalPut,intMaxPerPage,intCurPage,strFileName,1)
Else
If (intCurPage - 1) * intMaxPerPage < intTotalPut Then
GBL_objPubDB.objPubRS.Move (intCurPage - 1) * intMaxPerPage
Dim BookMark
BookMark = GBL_objPubDB.objPubRS.BookMark
Call ShowContentJoin(GBL_objPubDB.objPubRS,intMaxPerPage,strAddType)
Call ShowPage2(intTotalPut,intMaxPerPage,intCurPage,strFileName,1)
Else
intCurPage = 1
Call ShowContentJoin(GBL_objPubDB.objPubRS,intMaxPerPage,strAddType)
Call ShowPage2(intTotalPut,intMaxPerPage,intCurPage,strFileName,1)
End If
End If
Else
Response.Write "<p align=center>目前沒有任何人做此表態</p>"
End If
GBL_objPubDB.Clear()
End Function
'===================================================================
'= Function : ShowContentJoin(objRSCont,intMaxPerPage)
'= Time : Created At Feb,11,2004
'= Input : objRSCont : rs
'= Description : Show per meet join people
'===================================================================
Function ShowContentJoin(objRSCont,intMaxPerPage,strShowType)
Dim i
Dim clsTable '== the object of table
Dim strHtmlCode,strTmp,strTdClass1,strTdClass2,strTdClass3
GBL_cssListTable = GBL_cssListTable
GBL_cssListTitleTr = ""
strTdClass1 = GBL_cssListTd
strTdClass2 = GBL_cssListTdChange
Set clsTable = New classTable
'== Set table prameters
clsTable.Border = "0"
clsTable.CellPadding = "2"
clsTable.CellSpacing = "1"
clsTable.Width = "156"
clsTable.ClassType = "list_table"
clsTable.Align = "center"
clsTable.MakeTable()
strTdClass1 = "list_change_td align=left "
strTdClass2 = "list_change_td align=left "
strTdClass3 = "list_td align=right "
i = 0
'== Set table header
clsTable.AddTitleTr "list_title_tr"
clsTable.AddTitleTd "姓名","list_title_td","35%"
clsTable.AddTitleTd "表態時間","list_title_td","65%"
Do While Not objRSCont.Eof
i = i + 1
clsTable.AddTr "list_td"
strHtmlCode = "<span style='cursor:hand;' onclick=window.open('" & GBL_strHomeURL & "address/address_userinfo_pop.asp?intUserId=" & objRSCont("USER_ID") & "','','left=5,top=5,width=450,height=410,scrollbars=yes,status=yes');>" & objRSCont("MEET_JOIN_OWNER") & "</span>"
clsTable.AddTd strHtmlCode,strTdClass1
clsTable.AddTd FormatDateTime(objRSCont("MEET_JOIN_TIME"),2),strTdClass2
If GBL_intUserId = Cstr(objRSCont("USER_ID")) Then
clsTable.AddTr GBL_cssListTr
clsTable.AddTd "電話",strTdClass3
clsTable.AddTd objRSCont("MEET_JOIN_CONTACT"),strTdClass2
End If
If i >= intMaxPerPage Then Exit Do
objRSCont.MoveNext
Loop
Select Case strShowType
Case "0" : Response.Write "◎ 表態參與成員列表 ◎"
Case "2" : Response.Write "◎ 表態不參與成員列表 ◎"
Case "1" : Response.Write "◎ 表態正在考慮成員列表 ◎"
End Select
clsTable.OutPutTable()
Response.Write "◎ 點擊姓名查看詳細信息"
Set clsTable = Nothing
End Function
'===================================================================
'= Function : ShowPage2(intTotalNumber,intMaxPerPage,intCurrentPage,strFileName,intShowFlag)
'= Time : Created At May,17,2003
'= Description : Form feed show
'===================================================================
Function ShowPage2(intTotalNumber,intMaxPerPage,intCurrentPage,strFileName,intShowFlag)
Dim n
Dim strAddType '== 附加傳輸值
'== 是否有變量傳遞
strAddType = Trim(Request.QueryString("pstAddType"))
strAddType = ""
If intToTalNumber Mod intMaxPerPage = 0 Then
n = intToTalNumber \ intMaxPerPage
Else
n = intToTalNumber \ intMaxPerPage + 1
End If
Response.Write "<table width=156 ><tr align=center><td align=center>"
Response.Write "<form action=" & strFileName & " name=frmGo2 id='frmGo2' >"
Response.Write "<p align=center>"
'Response.Write "共" & n & "頁 "
If intCurrentPage < 2 Then
Response.Write "上一頁 "
Else
Response.Write "<a href=" & strFileName & "&intPageNow=" & intCurrentPage - 1 & strAddType & ">上一頁</a> "
End If
If n - intCurrentPage < 1 Then
Response.Write "下一頁 "
Else
Response.Write "<a href=" & strFileName & "&intPageNow=" & (intCurrentPage + 1) & strAddType & ">"
Response.Write "下一頁</a> "
End If
If intShowFlag = 1 Then
Response.Write "<font color=red>" & intCurrentPage & "</font>/" & n & "頁"
End If
Response.Write "<br>共" & intTotalNumber & "條 " & intMaxPerPage & "條/頁 "
If intShowFlag <> 1 Then
Response.Write "<select name=strPageSelect onchange=""document.location.href='" & strFileName & "&intPageNow=" & "'+document.frmGo2.strPageSelect.options[document.frmGo2.strPageSelect.selectedIndex].value"">" & strAddType
For i = 1 To n
If i = intCurrentPage Then
Response.Write "<option value=" & i & " selected>第" & i & "頁</option>"
Else
Response.Write "<option value=" & i & ">第" & i & "頁</option>"
End If
Next
Response.Write "</select>"
End If
Response.Write "</p></form>"
Response.Write "</td></tr></table>"
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -