www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > admin/admin_inc.asp
<% '=================================================================== '= ASP FILENAME : /admin/admin_inc.asp '= CREATED TIME : 2006-5-6 '= LAST MODIFIED: 2006-5-6 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : admin包含文件 '= Change Log: '=================================================================== %> <% '== 用户删除数据校验设置 Dim arrUserDelDataChk(0) arrUserDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择用户" ,1 ,100) '== 管理员删除数据校验设置 Dim arrAdminDelDataChk(0) arrAdminDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择管理员" ,1 ,100) '== 留言删除数据校验设置 Dim arrBoardDelDataChk(0) arrBoardDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择留言" ,1 ,100) '== 管理员添加数据校验设置 Dim arrAdminAddDataChk(5) arrAdminAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptAccount","管理员帐号" ,2 ,20) arrAdminAddDataChk(1) = Array("DT_ASC" ,"iptAccount","管理员帐号") arrAdminAddDataChk(2) = Array("DT_ENUM" ,"selLevel","操作级别" ,"1,2") arrAdminAddDataChk(3) = Array("DT_FIX_LENGTH" ,"iptPassword","密码" ,6 ,20) arrAdminAddDataChk(4) = Array("DT_FIX_LENGTH" ,"iptPassword2","确认密码" ,6 ,20) arrAdminAddDataChk(5) = Array("DT_ENUM" ,"selStatus","使用状态" ,"0,1") '== 管理员添加表单名 Dim strAdminAddFormName strAdminAddFormName = "iptAccount|selLevel|iptPassword|iptPassword2|selStatus" '== 友情链接添加数据校验设置 Dim arrLinkAddDataChk(3) arrLinkAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptName","链接名称" ,2 ,20) arrLinkAddDataChk(1) = Array("DT_FIX_LENGTH" ,"iptDesc","链接描述" ,2 ,240) arrLinkAddDataChk(2) = Array("DT_FIX_LENGTH" ,"iptLinkUrl","链接地址" ,8 ,240) arrLinkAddDataChk(3) = Array("DT_FIX_LENGTH" ,"iptLogoLink","Logo地址" ,8 ,240) '== 友情链接添加表单名 Dim strLinkAddFormName strLinkAddFormName = "iptName|iptDesc|iptLinkUrl|iptLogoLink|rdoLogoSet" '== 友情链接删除数据校验设置 Dim arrLinkDelDataChk(0) arrLinkDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择友情链接" ,1 ,100) '== 用户密码修改数据校验设置 Dim arrUserPassMdyDataChk(1) arrUserPassMdyDataChk(0) = Array("DT_FIX_LENGTH" ,"iptPassword","密码" ,6 ,20) arrUserPassMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptPassword2","确认密码" ,6 ,20) '== 管理员修改数据校验设置 Dim arrAdminMdyDataChk(4) arrAdminMdyDataChk(0) = Array("DT_FIX_LENGTH" ,"iptAccount","管理员帐号" ,2 ,20) arrAdminMdyDataChk(1) = Array("DT_ASC" ,"iptAccount","管理员帐号") arrAdminMdyDataChk(2) = Array("DT_ENUM" ,"selLevel","操作级别" ,"1,2") arrAdminMdyDataChk(3) = Array("DT_ENUM" ,"selStatus","使用状态" ,"0,1") arrAdminMdyDataChk(4) = Array("DT_ID" ,"intAdminId","管理员") '== 管理员修改密码数据校验设置 Dim arrAdminMdyPwdDataChk(1) arrAdminMdyPwdDataChk(0) = Array("DT_FIX_LENGTH" ,"iptPassword","密码" ,6 ,20) arrAdminMdyPwdDataChk(1) = Array("DT_FIX_LENGTH" ,"iptPassword2","确认密码" ,6 ,20) '== 管理员修改自身密码数据校验设置 Dim arrAdminSelfMdyPwdDataChk(2) arrAdminSelfMdyPwdDataChk(0) = Array("DT_FIX_LENGTH" ,"iptOldPassword","老密码" ,6 ,20) arrAdminSelfMdyPwdDataChk(1) = Array("DT_FIX_LENGTH" ,"iptPassword","新密码" ,6 ,20) arrAdminSelfMdyPwdDataChk(2) = Array("DT_FIX_LENGTH" ,"iptPassword2","确认密码" ,6 ,20) '== 管理员修改自身密码表单名 Dim strAdminSelfMdyPwdFormName strAdminSelfMdyPwdFormName = "iptOldPassword|iptPassword|iptPassword2" '== 管理员登陆数据校验设置 Dim arrAdminLoginDataChk(3) arrAdminLoginDataChk(0) = Array("DT_FIX_LENGTH" ,"iptAccount","管理员名" ,2 ,20) arrAdminLoginDataChk(1) = Array("DT_ASC" ,"iptAccount","管理员名") arrAdminLoginDataChk(2) = Array("DT_FIX_LENGTH" ,"iptPassword","管理员密码" ,6 ,20) arrAdminLoginDataChk(3) = Array("DT_FIX_LENGTH" ,"iptVerifyCode","校验码" ,4 ,4) '== 管理员登陆表单名 Dim strAdminLoginFormName strAdminLoginFormName = "iptAccount|iptPassword|iptVerifyCode" '== 查看某一相片的评论数据校验设置 Dim arrAlbumReviewDataChk(0) arrAlbumReviewDataChk(0) = Array("DT_ID" ,"intAlbumId", "管理员") '== 查看某一用户详细信息数据校验设置 Dim arrGetUserDetailChk(0) arrGetUserDetailChk(0) = Array("DT_ID" ,"intUserId", "所要查看用户") '== 修改某一贴吧板块详细设置数据校验设置 Dim arrForumMdyDataChk(8) arrForumMdyDataChk(0) = Array("DT_ID" ,"intForumId", "所要设置的贴吧板块") arrForumMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptName", "贴吧板块名称",1,20) arrForumMdyDataChk(2) = Array("DT_FIX_LENGTH" ,"iptDes", "板块简要描述",1,40) arrForumMdyDataChk(3) = Array("DT_INT_BETWEEN" ,"iptOrder", "显示序号",1,999) arrForumMdyDataChk(4) = Array("DT_PLUS_INT" ,"selCate", "所属分类") arrForumMdyDataChk(5) = Array("DT_FIX_LENGTH" ,"iptIco", "贴吧图标",0,255) arrForumMdyDataChk(6) = Array("DT_FIX_LENGTH" ,"iptMaster", "贴吧版主",0,255) arrForumMdyDataChk(7) = Array("DT_FIX_ENUM" ,"selHomeShow", "是否首页推荐","0,1") arrForumMdyDataChk(8) = Array("DT_FIX_ENUM" ,"selReadOnly", "允许回复","0,1") '== 修改某一贴吧板块详细设置表单名 Dim strForumMdyFormName strForumMdyFormName = "intForumId|iptName|selCateId|iptDes|iptOrder|selCate|iptIco|iptMaster|selHomeShow|selReadOnly" '== 添加贴吧板块数据校验设置 Dim arrForumAddDataChk(2) arrForumAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptName", "贴吧板块名称",1,20) arrForumAddDataChk(1) = Array("DT_FIX_LENGTH" ,"iptDes", "板块简要描述",1,40) arrForumAddDataChk(2) = Array("DT_PLUS_INT" ,"selCateId","所属分类") '== 修改贴吧分类数据校验设置 Dim arrCateMdyDataChk(2) arrCateMdyDataChk(0) = Array("DT_ID" ,"intCateId", "所要修改的贴吧分类") arrCateMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptName", "贴吧板块名称",1,20) arrCateMdyDataChk(2) = Array("DT_INT_BETWEEN" ,"iptOrder", "显示序号",1,999) '== 添加贴吧分类数据校验设置 Dim arrCateAddDataChk(1) arrCateAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptName", "贴吧板块名称",1,20) arrCateAddDataChk(1) = Array("DT_INT_BETWEEN" ,"iptOrder", "排序号",1,999) '== 添加贴吧分类表单名 Dim strCataAddFormName strCataAddFormName = "iptName|iptOrder" '== 删除贴吧板块数据校验设置 Dim arrForumDelDataChk(0) arrForumDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择贴吧板块" ,1 ,100) '== 删除贴吧分类数据校验设置 Dim arrCateDelDataChk(0) arrCateDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择贴吧分类" ,1 ,100) '== 添加用户权限数据校验设置 Dim arrUserRoleAddDataChk(1) arrUserRoleAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptName", "用户权限名称",1,20) arrUserRoleAddDataChk(1) = Array("DT_FIX_LENGTH" ,"iptDesc", "用户权限描述",1,50) '== 添加用户权限表单名 Dim strUserRoleAddFormName strUserRoleAddFormName = "iptName|iptDesc" '== 添加信息分类数据校验设置 Dim arrSortAddDataChk(3) arrSortAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptName", "信息分类名称",1,20) arrSortAddDataChk(1) = Array("DT_FIX_LENGTH" ,"iptDesc", "信息分类描述",1,50) arrSortAddDataChk(2) = Array("DT_INT_BETWEEN" ,"iptOrder", "信息分类排序号",1,999) arrSortAddDataChk(3) = Array("DT_ENUM" ,"selIsOpen", "信息分类状态","0,1") '== 添加信息分类表单名 Dim strSortAddFormName strSortAddFormName = "iptName|iptDesc|iptOrder|selIsOpen" '== 添加文章数据校验设置 Dim arrArticleAddDataChk(4) arrArticleAddDataChk(0) = Array("DT_FIX_LENGTH" ,"iptTitle", "文章标题",1,50) arrArticleAddDataChk(1) = Array("DT_FIX_LENGTH" ,"iptKey", "文章搜索关键字",1,20) arrArticleAddDataChk(2) = Array("DT_PLUS_INT" ,"iptOrder", "文章排序号") arrArticleAddDataChk(3) = Array("DT_PLUS_INT" ,"selSortId", "信息分类") arrArticleAddDataChk(4) = Array("DT_CONTENT" ,"txtContent", "文章内容",1,60000) '== 添加文章表单名 Dim strArticleAddFormName strArticleAddFormName = "txtContent|iptTitle|iptOrder|iptKey|selSortId" '== 添加介绍数据校验设置 Dim arrAboutDataChk(0) arrAboutDataChk(0) = Array("DT_CONTENT" ,"txtContent", "内容",1,60000) Dim strAboutFormName strAboutFormName = "txtContent" '== 修改文章数据校验设置 Dim arrArticleMdyDataChk(4) arrArticleMdyDataChk(0) = Array("DT_FIX_LENGTH" ,"iptTitle", "文章标题",1,50) arrArticleMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptKey", "文章搜索关键字",1,20) arrArticleMdyDataChk(2) = Array("DT_PLUS_INT" ,"iptOrder", "文章排序号") arrArticleMdyDataChk(3) = Array("DT_PLUS_INT" ,"selSortId", "信息分类") arrArticleMdyDataChk(4) = Array("DT_CONTENT" ,"txtContent", "文章内容",1,60000) '== 修改文章表单名 Dim strArticleMdyFormName strArticleMdyFormName = "txtContent|iptTitle|iptOrder|iptKey|selSortId" '== 删除信息分类数据校验设置 Dim arrSortDelDataChk(0) arrSortDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择信息分类" ,1 ,100) '== 删除信息分类表单名 Dim strSortDelFormName strSortDelFormName = "selId" '== 删除文章数据校验设置 Dim arrArticleDelDataChk(0) arrArticleDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择文章" ,1 ,100) '== 删除文章表单名 Dim strArticleDelFormName strArticleDelFormName = "selId" '== 删除论用户权限数据校验设置 Dim arrUserRoleDelDataChk(0) arrUserRoleDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择用户权限" ,1 ,100) '== 修改某一用户权限数据校验设置 Dim arrUserActionSaveDataChk(1) arrUserActionSaveDataChk(0) = Array("DT_ID" ,"intRoleId" , "用户权限") arrUserActionSaveDataChk(1) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择用户权限" ,1 ,100) '== 查看某一聚会留言数据校验设置 Dim arrMeetBBSDataChk(0) arrMeetBBSDataChk(0) = Array("DT_ID" ,"intMeetId", "所要查看聚会留言") '== 查看某一聚会报名表数据校验设置 Dim arrMeetJoinDataChk(0) arrMeetJoinDataChk(0) = Array("DT_ID" ,"intMeetId", "所要查看聚会留言") '== 修改某聚会详细设置数据校验设置 Dim arrMeetMdyDataChk(12) arrMeetMdyDataChk(0) = Array("DT_ID" ,"intMeetId", "所要修改聚会") arrMeetMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptTitle", "聚会主题",2,20) arrMeetMdyDataChk(2) = Array("DT_ENUM" ,"selStatus", "聚会状态","0,1") arrMeetMdyDataChk(3) = Array("DT_ENUM" ,"selType", "聚会类型","户外聚会,室内聚会,网站聚会,闲聊小聚,体育聚会,公益聚会,旅游度假,其他聚会") arrMeetMdyDataChk(4) = Array("DT_FIX_LENGTH" ,"iptArea", "所在地区",2,255) arrMeetMdyDataChk(5) = Array("DT_FIX_LENGTH" ,"iptSpot", "聚会地点",2,255) arrMeetMdyDataChk(6) = Array("DT_FIX_LENGTH" ,"iptTime", "聚会时间",2,255) arrMeetMdyDataChk(7) = Array("DT_FIX_LENGTH" ,"iptPeopleNum", "邀请人数",2,100) arrMeetMdyDataChk(8) = Array("DT_FIX_LENGTH" ,"iptContact", "联系方式",2,255) arrMeetMdyDataChk(9) = Array("DT_FIX_LENGTH" ,"iptSpend", "聚会费用",2,255) arrMeetMdyDataChk(10) = Array("DT_CONTENT" ,"txtContent", "聚会内容",2,10000) arrMeetMdyDataChk(11) = Array("DT_CONTENT" ,"txtOther", "聚会备注",0,10000) arrMeetMdyDataChk(12) = Array("DT_CONTENT" ,"txtSum", "聚会总结",0,10000) '== 所要修改聚会表单名 Dim strMeetMdyFormName : strMeetMdyFormName = "intMeetId|iptTitle|selStatus|selType|iptArea|iptSpot|iptTime|iptPeopleNum|iptContact|iptSpend|txtContent|txtOther|txtSum" '== 删除聚会数据校验设置 Dim arrMeetDelDataChk(0) arrMeetDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择聚会" ,1 ,100) '== 删除聚会留言数据校验设置 Dim arrMeetBBSDelDataChk(1) arrMeetBBSDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择聚会" ,1 ,100) arrMeetBBSDelDataChk(1) = Array("DT_ID" ,"intMeetId", "所属聚会") '== 删除聚会报名数据校验设置 Dim arrMeetJoinDelDataChk(1) arrMeetJoinDelDataChk(0) = Array("DT_FIX_LENGTH" ,"selId" ,"所选择聚会" ,1 ,100) arrMeetBBSDelDataChk(1) = Array("DT_ID" ,"intMeetId", "所属聚会") '== 网站信息设置数据校验设置 Dim arrConfigDataChk(8) arrConfigDataChk(0) = Array("DT_FIX_LENGTH" ,"iptSiteName","网站名称" ,2 ,30) arrConfigDataChk(1) = Array("DT_FIX_LENGTH" ,"iptSiteUrl","访问地址" ,2 ,50) arrConfigDataChk(2) = Array("DT_FIX_LENGTH" ,"iptHomeUrl","首页地址" ,2 ,50) arrConfigDataChk(3) = Array("DT_FIX_LENGTH" ,"iptCreater","创建者" ,0 ,30) arrConfigDataChk(4) = Array("DT_FIX_LENGTH" ,"iptCreateTime","创建时间" ,10 ,10) arrConfigDataChk(5) = Array("DT_EMAIL" ,"iptEmail","联系邮箱") arrConfigDataChk(6) = Array("DT_FIX_LENGTH" ,"iptContact","联系方式" ,0 ,30) arrConfigDataChk(7) = Array("DT_FIX_LENGTH" ,"iptCopyRight","版权信息" ,0 ,30) arrConfigDataChk(8) = Array("DT_FIX_LENGTH" ,"iptRecord","备案信息" ,0 ,30) '== 网站信息设置表单名 Dim strConfigFormName strConfigFormName = "iptSiteName|iptSiteUrl|iptHomeUrl|iptCreater|iptCreateTime|iptEmail|iptContact|iptCopyRight|iptRecord" '== 网站参数设置数据校验设置 Dim arrSetupDataChk(5) arrSetupDataChk(0) = Array("DT_INT_BETWEEN" ,"iptUserPerPage","用户系统每页显示记录数" ,5 ,30) arrSetupDataChk(1) = Array("DT_INT_BETWEEN" ,"iptAdminPerPage","后台系统每页显示记录数" ,10 ,40) arrSetupDataChk(2) = Array("DT_INT_BETWEEN" ,"iptAlbumSize","相册可上传图片大小" ,10 ,1000) arrSetupDataChk(3) = Array("DT_FIX_LENGTH" ,"iptCCID","您在CC视频联盟的数字ID" ,0 ,100) arrSetupDataChk(4) = Array("DT_FIX_LENGTH" ,"iptListID","展区listid" ,0 ,100) arrSetupDataChk(5) = Array("DT_FIX_LENGTH" ,"iptCCButton","按钮样式" ,0 ,10) '== 网站参数设置表单名 Dim strSetupFormName strSetupFormName = "iptUserPerPage|iptAdminPerPage|iptAlbumSize|iptCCID|iptListID|iptCCButton|chkOpenList" '== 校友搜索表单查询条件设置 Dim arrUserSearch(10) arrUserSearch(0) = Array("FS_STR_ALL","iptAccount","CLASS_USER.USER_ACCOUNT","注册名") arrUserSearch(1) = Array("FS_STR_ALL","iptRealName","CLASS_USER.USER_REALNAME","真实姓名") arrUserSearch(2) = Array("FS_STR_ALL","iptClass","CLASS_USER.USER_CLASS","班级") arrUserSearch(3) = Array("FS_STR_ALL","iptQQ","CLASS_USER.USER_QQ","QQ") arrUserSearch(4) = Array("FS_STR_ALL","iptEmail","CLASS_USER.USER_EMAIL","邮箱") arrUserSearch(5) = Array("FS_STR_ALL","iptTele","CLASS_USER.USER_TELE","电话") arrUserSearch(6) = Array("FS_STR_ALL","iptWork","CLASS_USER.USER_WORK","工作行业") arrUserSearch(7) = Array("FS_STR_ALL","iptWorkShop","CLASS_USER.USER_WORKSHOP","工作单位") arrUserSearch(8) = Array("FS_STR_ALL","selSex","CLASS_USER.USER_SEX","性别") arrUserSearch(9) = Array("FS_INT","iptWorkShop","CLASS_USER.USER_ENROLL","入学年份") arrUserSearch(10) = Array("FS_INT","selAuthen","CLASS_USER.USER_AUTHEN","成员身份") %>