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