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","成员身份")
%>