📄 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","成员身份")
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -