meet_inc.asp

jsp 同学录源码

<%
'===================================================================
'= 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"
%>