www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > meet/meet_inc.asp

    <%
'===================================================================
'= ASP FILENAME	: /meet/meet_inc.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  : meet pub func
'= Change Log:
'===================================================================
%>
<%
'== 聚会报名数据校验
Dim arrMeetJoinDataChk(1)
arrMeetJoinDataChk(0) = Array("DT_FIX_LENGTH","iptUser","姓名",2,20)
arrMeetJoinDataChk(1) = Array("DT_FIX_LENGTH","iptTel","姓名",3,40)
'== 聚会报名表单名
Dim strMeetJoinFormName : strMeetJoinFormName = "iptUser|iptTel"

'== 发起新聚会数据校验设置
Dim arrMeetAddDataChk(9)
arrMeetAddDataChk(0) = Array("DT_FIX_LENGTH"	,"iptTitle"	,"聚会主题"	,2	,100)
arrMeetAddDataChk(1) = Array("DT_ENUM"	,"selType",	"聚会类型","户外聚会,室内聚会,网站聚会,闲聊小聚,体育聚会,公益聚会,旅游度假,其他聚会")
arrMeetAddDataChk(2) = Array("DT_FIX_LENGTH"	,"iptTime"	,"聚会时间"	,2	,255)
arrMeetAddDataChk(3) = Array("DT_FIX_LENGTH"	,"iptArea"	,"所在地区"	,2	,255)
arrMeetAddDataChk(4) = Array("DT_FIX_LENGTH"	,"iptSpot"	,"聚会地点"	,2	,255)
arrMeetAddDataChk(5) = Array("DT_FIX_LENGTH"	,"iptPeopleNum"	,"邀请人数"	,2	,100)
arrMeetAddDataChk(6) = Array("DT_FIX_LENGTH"	,"iptContact"	,"联系方式"	,2	,255)
arrMeetAddDataChk(7) = Array("DT_FIX_LENGTH"	,"iptSpend"	,"聚会费用"	,2	,255)
arrMeetAddDataChk(8) = Array("DT_CONTENT"	,"txtContent"	,"聚会内容"	,2	,1000)
arrMeetAddDataChk(9) = Array("DT_CONTENT"	,"txtOther"	,"聚会备注"	,0	,1000)
'== 发起新聚会表单名
Dim strMeetAddFormName : strMeetAddFormName = "iptTitle|selType|iptTime|iptArea|iptSpot|iptPeopleNum|iptContact|iptSpend|txtContent|txtOther"

'== 修改聚会数据校验设置
Dim arrMeetMdyDataChk(12)
arrMeetMdyDataChk(0) = Array("DT_FIX_LENGTH"	,"iptTitle"	,	"聚会主题"	,2	,100)
arrMeetMdyDataChk(1) = Array("DT_ENUM"			,"selStatus"	,"聚会状态"	,"0,1")
arrMeetMdyDataChk(2) = Array("DT_ENUM"	,"selType",	"聚会类型","户外聚会,室内聚会,网站聚会,闲聊小聚,体育聚会,公益聚会,旅游度假,其他聚会")
arrMeetMdyDataChk(3) = Array("DT_FIX_LENGTH"	,"iptTime"	,	"聚会时间"	,2	,255)
arrMeetMdyDataChk(4) = Array("DT_FIX_LENGTH"	,"iptArea"	,	"所在地区"	,2	,255)
arrMeetMdyDataChk(5) = Array("DT_FIX_LENGTH"	,"iptSpot"	,	"聚会地点"	,2	,255)
arrMeetMdyDataChk(6) = Array("DT_FIX_LENGTH"	,"iptPeopleNum","邀请人数"	,2	,100)
arrMeetMdyDataChk(7) = Array("DT_FIX_LENGTH"	,"iptContact"	,"联系方式"	,2	,255)
arrMeetMdyDataChk(8) = Array("DT_FIX_LENGTH"	,"iptSpend"		,"聚会费用"	,2	,255)
arrMeetMdyDataChk(9) = Array("DT_CONTENT"	,"txtContent"	,"聚会内容"	,2	,1000)
arrMeetMdyDataChk(10) = Array("DT_CONTENT"	,"txtOther"	,	"聚会备注"	,0	,1000)
arrMeetMdyDataChk(11) = Array("DT_ID"			,"intMeetId"	,"聚会ID"	)
arrMeetMdyDataChk(12) = Array("DT_CONTENT"	,"txtSum"	,"聚会总结"	,0	,1000)
'== 修改聚会表单名
Dim strMeetMdyFormName : strMeetMdyFormName = "iptTitle|selType|selStatus|iptTime|iptArea|iptSpot|iptPeopleNum|iptContact|iptSpend|txtContent|txtOther|txtSum|intMeetId"

'== 聚会留言数据校验设置
Dim arrMeetBBSDataChk(0)
arrMeetBBSDataChk(0) = Array("DT_CONTENT"	,"txtContent"	,	"交流留言内容"	,1	,255)
'== 聚会留言表单名
Dim strMeetBBSFormName : strMeetBBSFormName = "txtContent"
%>