?? 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 + -