?? meet_detail.asp
字號:
<%
'===================================================================
'= ASP FILENAME : /meet/meet_detail.asp
'= CREATED TIME : 2006-5-7
'= LAST MODIFIED: 2006-5-7
'= 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 = "../main_func.asp" -->
<!-- #include file = "./meet_inc.asp" -->
<!-- #include file = "../inc/logic/logic_meet.asp" -->
<%
'========================================================
'== Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE = "meet/meet_detail.asp"
'== 頁面標題/功能
Const CONST_PAGE_TITLE = "活動詳細信息"
'== 功能函數名字空間
Const CONST_ACTION_FUNC = "ShowMeetDetailCtl"
'== 相對根目錄路徑
GBL_strHomeURL = "../"
'== 頁面構造
Call ActionBuild()
'== 在模板中引用的標簽變量
Dim TAG_objDicUnit '== 單列記錄
Dim TAG_strVerifyCode '== 表單校驗
Dim TAG_strPageNav '== 翻頁導航
Dim TAG_intLastId,TAG_intNextId,TAG_intMeetId
Dim TAG_objRS
'== 請求校驗與過濾
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_detail.html.asp" -->
<%
End Function
''===================================================================
'= Function : ShowMeetDetailCtl()
'= Time : Created At 2006-5-7
'= Input : None
'= Description : show meet list
'==================================================================='
Function ShowMeetDetailCtl()
Dim intMeetId,strSql,intLastId,intNextId
'== 獲取ID參數
If Not GetPostIdValue("intMeetId","活動",intMeetId) Then Exit Function
'== 取本活動記錄
strSql = " AND MEET_ID=" & intMeetId
If Not GetMeetLogic(strSql) Then Exit Function
Set TAG_objDicUnit = GBL_objPubDB.GetRsOneRow()
If TAG_objDicUnit.Exists("Exist") Then
'== 取活動總結
If TAG_objDicUnit.Item("MEET_STATUS") = CONST_MEET_RUN Then
TAG_objDicUnit.Item("MEET_SUM") = "活動進行中,尚無總結.."
End If
'== 取上一張和下一張的ID
Call GetLastNextMeetIdLogic(intMeetId,intLastId,intNextId)
If intLastId = 0 Then
TAG_intLastId = intMeetId
Else
TAG_intLastId = intLastId
End If
If intNextId = 0 Then
TAG_intNextId = intMeetId
Else
TAG_intNextId = intNextId
End If
'== 賦ID
TAG_intMeetId = intMeetId
Dim strFileName
Dim intMaxPerPage
Dim intCurPage,intTotalPut
intMaxPerPage = GBL_intMaxPerPage
TAG_intPerPage = intMaxPerPage
strFileName = "meet_detail.asp?intMeetId=" & intMeetId
'== 取本活動評論記錄
strSql = " AND MEET_BBS_MEET_ID=" & intMeetId
If Not GetMeetBBSsLogic(strSql) Then Exit Function
Set TAG_objRS = GBL_objPubDB.objPubRS
intTotalPut = GBL_objPubDB.intRSNum
intCurPage = GetCurPage(intMaxPerPage,intTotalPut)
If intCurPage > 1 Then
If (intCurPage - 1) * intMaxPerPage < intTotalPut Then
GBL_objPubDB.objPubRS.Move (intCurPage - 1) * intMaxPerPage
Dim BookMark
BookMark = GBL_objPubDB.objPubRS.BookMark
End If
End If
TAG_strPageNav = ShowPageNav(intTotalPut,intMaxPerPage,intCurPage,strFileName)
'== 發相片評論客戶段表單校驗生成
Dim objClientChk
Set objClientChk = New classClientChk
TAG_strVerifyCode = objClientChk.ClientDataCheck("theform",arrMeetBBSDataChk)
Set objClientChk = Nothing
End If
End Function
Function ColumnLeftView()
Dim strHtmlCode,strSql
Dim intJoin,intMeetId
Dim intMemberFlag '== 0-join 2-not join
Dim blnMeetStatus : blnMeetStatus = False
intMeetId = FmtFormData(Request.QueryString("intMeetId"))
Dim intMeetStatus : intMeetStatus = 0
intMeetStatus = Cint(Trim(intMeetStatus))
intMemberFlag = 2
'== 取得活動狀態
strSql = " AND MEET_ID=" & intMeetId & " AND MEET_STATUS=" & CONST_MEET_RUN
If Not GetMeetLogic(strSql) Then Exit Function
If GBL_objPubDB.intRSNum > 0 Then blnMeetStatus = True
'== 取得報名總數
strSql = " AND MEET_JOIN_MEET_ID=" & intMeetId & " AND MEET_JOIN_STATUS=0"
If Not GetMeetJoinsLogic(strSql) Then Exit Function
intJoin = GBL_objPubDB.intRSNum
'== 取得用戶報名狀態
strSql = " AND MEET_JOIN_MEET_ID=" & intMeetId & " AND MEET_JOIN_OWNER_ID=" & GBL_intUserId
If Not GetMeetJoinsLogic(strSql) Then Exit Function
If GBL_objPubDB.intRSNum = 1 Then
intMemberFlag = GBL_objPubDB.objPubRS("MEET_JOIN_STATUS")
End If
Dim clsTable,GBL_strImgIco,strTmp,strJoinFlag
Set clsTable = New classTable
'== Set table prameters
clsTable.Border = "0"
clsTable.CellPadding = "2"
clsTable.CellSpacing = "1"
clsTable.Width = "100%"
clsTable.ClassType = ""
clsTable.Align = "center"
clsTable.MakeTable()
'== Set table header
clsTable.AddTitleTr ""
clsTable.AddTitleTd "","","0%"
clsTable.AddTitleTd "<br><br>目前有" & intJoin & "人表態參加活動","","100%"
clsTable.AddInfoTr "","BOTTOM"
strHtmlCode = "<iframe height=470 width=165 border=0 frameborder=0 src='" & GBL_strHomeURL & "meet/meet_joinlist_pop.asp?pstAddType=0&intMeetId=" & intMeetId & "' class=list_td_change></iframe>"
clsTable.AddInfoTd strHtmlCode,""
clsTable.OutPutTable()
Set clsTable = Nothing
If intMeetStatus = 1 Then
Exit Function
End If
strHtmlCode = ""
If intMeetStatus = 0 AND blnMeetStatus = True Then
If intMemberFlag <> 0 Then
strTmp = MakeImg(GBL_strImgIco & "meet_join.gif","表態參與本次活動")
strHtmlCode = MakeLinkClew("meet/meet_join.asp?strPostName=MeetJoinExec&pstActFlag=MEET_JOIN_MODE&MeetId=" & intMeetId,strTmp,""," onclick=""return confirm('您表態參與本次活動?')""")
strHtmlCode = ""
%>
<table width="164" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC" align=center>
<form name="vbform" method="post" action="meet_join.asp?pstActFlag=MEET_JOIN_MODE"><tr>
<input type="hidden" name="intMeetId" value="<%=intMeetId%>">
</tr>
<tr>
<td height="100%" background="<%=GBL_strHomeURL%>images/meet/l_box1_bg.gif"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="26" align="center"> 姓名：
<input name="iptUser" type="text" value="" size="15" maxlength=20>
</td>
</tr>
<tr>
<td align="center"> 電話：
<input name="iptTel" type="text" size="15" maxlength=40>
</td>
</tr>
<tr>
<td align="center"> <font color="red">電話號碼我們將為您保密,<br>僅管理員和發起者可見</font>
</td>
</tr>
<tr>
<td valign="bottom" align=center> <input name="image" type="submit" value="報名"></td>
</tr>
</table>
</td>
</tr>
</form></table>
<%
strJoinFlag = "[您尚未表態]"
Else
strTmp = MakeImg(GBL_strImgDir & "ico/meet_refuse.gif","退出參與本次活動")
strHtmlCode = strHtmlCode & MakeLinkClew("meet/meet_join.asp?pstActFlag=MEET_EXIT_MODE&intMeetId=" & intMeetId,strTmp,""," onclick=""return confirm('您表態將取消參與本次活動?')""")
strJoinFlag = "[你已表態參與]"
End If
Response.Write " " & strHtmlCode & " <font color=red><br> " & strJoinFlag & "</font><br>"
End If
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -