?? admin_check.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../localhost.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="show_error.asp"-->
<!--#include file="../lockip.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="../check_function.asp"-->
<!--#include file="../check_email.asp"-->
<%
response.expires=now()-1
'response.buffer=true
Response.CacheControl = "no-cache"
dim action
action=lcase(trim(request.querystring("action")))
select case action
case "sys_setup"
if session("purview")<3 or isnull(session("purview")) then
call error("對(duì)不起，你無權(quán)訪問該頁！--><a href='admin_main.asp' target='_parent'>返回管理首頁</a>")
call Iserror()
response.end
end if
dim explain
explain=request.form("explain")
'進(jìn)行字符過濾
dim sys_info
sys_info=request.form("sys_info")
'數(shù)據(jù)庫(kù)默認(rèn)為選中狀態(tài)，如is_open被選中，意思為系統(tǒng)開放。
select case sys_info
case "1, 2, 3, 4"
call opendb()
conn.execute("update eric_config set Is_open=false,Is_reg=false,Is_upload=false,Is_login=false,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "2, 3, 4"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=false,Is_upload=false,Is_login=false,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "2, 3"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=false,Is_upload=false,Is_login=true,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "2, 4"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=false,Is_upload=true,Is_login=false,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "3, 4"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=true,Is_upload=false,Is_login=false,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "2"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=false,Is_upload=true,Is_login=true,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "3"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=true,Is_upload=false,Is_login=true,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case "4"
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=true,Is_upload=true,Is_login=false,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case ""
call opendb()
conn.execute("update eric_config set Is_open=true,Is_reg=true,Is_upload=true,Is_login=true,remark='" & explain & "'")
call closedb()
response.redirect "../show_success.asp?info=系統(tǒng)參數(shù)設(shè)置成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
case else
call error("當(dāng)選中關(guān)閉系統(tǒng)時(shí)必須選中其它項(xiàng)！")
call Iserror()
response.end
end select
case "add_manager"
if session("purview")<3 or isnull(session("purview")) then
call error("對(duì)不起，你無權(quán)訪問該頁！--><a href='admin_main.asp' target='_parent'>返回管理首頁</a>")
call Iserror()
response.end
end if
if check_len(request.form("username"),"[用戶名]",20,0) or _
check_len(request.form("password"),"[密碼]",20,0) or _
check_small_len(request.form("password"),"[密碼]",8) or _
check_len(request.form("passwordq"),"[密碼確認(rèn)]",20,0) or _
check_small_len(request.form("passwordq"),"[密碼確認(rèn)]",8) or _
check_len(request.form("teacher_name"),"[教師名]",10,0) or _
check_len(request.form("remark"),"[備注]",500,0) then
finderror=true
call show_error()
response.end
end if
if request.form("password")<>request.form("passwordq") then
call error("兩次輸入密碼不一致")
call Iserror()
response.end
else
dim username,password,teacher_name,remark,limit
username=request.form("username")
password=request.form("password")
teacher_name=request.form("teacher_name")
remark=request.form("remark")
limit=request.form("purview")
'md5加密
'過濾字符
'判斷用戶名,教師名是否已經(jīng)存在
call opendb()
set rs=conn.execute ("select eric_manager,teacher from eric_manager where eric_manager='" & username & "' or teacher='" & teacher_name & "'")
if not rs.eof then
call error("用戶名或者教師名已經(jīng)存在！請(qǐng)與系統(tǒng)管理員聯(lián)系--><a href='javascript:history.go(-1)'>返回</a>")
call Iserror()
call closers()
call closedb()
response.end
else
sql_10="insert into eric_manager (eric_manager,eric_password,teacher,purview,remark) values ('" & username & "','" & password & "','" & teacher_name & "','" & limit & "','" & remark & "')"
'call opendb()
conn.execute (sql_10)
'call closedb()
if limit<3 then
'向class表中插入數(shù)據(jù)
sql_11="insert into class (parentId,parentStr,className) values ('0','0','" & teacher_name & "')"
conn.execute (sql_11)
call closedb()
'生成文件夾路徑
folder_path=server.mappath("..\upload\" & teacher_name)
'建立該教師的文件夾
set fs=createobject("scripting.filesystemobject")
if not fs.folderexists(folder_path) then
fs.createfolder(folder_path)
else
set fs=nothing
call error("已經(jīng)存在該文件夾！，請(qǐng)與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯(lián)系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
if fs.folderexists(folder_path) then
set fs=nothing
response.redirect "../show_success.asp?info=添加操作成功！已建立該教師文件夾！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
response.end
end if
else
call closedb()
response.redirect "../show_success.asp?info=添加管理員操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
end if
end if
end if
case "add_class"
if session("purview")>2 then
call error("對(duì)不起，該系統(tǒng)目前該功能只對(duì)教師開放，如有需要，請(qǐng)自建一個(gè)教師帳號(hào)！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>")
call Iserror()
response.end
end if
dim add
add=request.form("class_er")
if add="" then
call error("班級(jí)名稱不能為空！")
call Iserror()
response.end
end if
'字符過濾
add=add
ad=request.form("class_er")'經(jīng)過過濾
call opendb()
'判斷是否已經(jīng)存在該文件夾
set rs=conn.execute ("select eric_manager,class_e from eric_manager where eric_manager='" & session("teacher") & "'" )
if not rs.eof then
'add=rs("class_e") & add
'instr(rs("class_e"),"|")=0
dim class_e
class_e=rs("class_e")
if class_e<>"" then
if instr(class_e,"|")=0 and class_e=add then
call error("已經(jīng)存在該班級(jí)的文件夾！請(qǐng)與系統(tǒng)管理員聯(lián)系！")
call Iserror()
response.end
elseif instr(class_e,"|")>0 then
array_class_e=split(class_e,"|")
for i=0 to ubound(array_class_e)
if array_class_e(i)=add then
call error("已經(jīng)存在該班級(jí)的文件夾！請(qǐng)與系統(tǒng)管理員聯(lián)系！")
call Iserror()
response.end
end if
next
end if
add=rs("class_e") & "|" & add'當(dāng)班級(jí)不止一個(gè)時(shí)用filter隔開班級(jí)
end if
call closers()
'更新eric_manager表中內(nèi)容
conn.execute("update eric_manager set class_e='" & add & "' where eric_manager='" & session("teacher") & "'")
'向class表中插入內(nèi)容
set rs=conn.execute("select id,className,childId from class where classname='" & session("teacher_name") & "'")
if not rs.eof then
id=rs("id")'該教師的編號(hào)
childid=rs("childid")
call closers()
conn.execute("insert into class (parentID,parentStr,className) values ('" & id & "','" & id & "','" & ad & "')")
set rs=conn.execute("select id from class where classname='" & ad & "' order by id desc")'此處order by id desc的用處是取得剛剛插入的數(shù)據(jù)庫(kù)的rs("id")
if not rs.eof then
if isnull(childid) or childid="" then '注意usnull()這個(gè)函數(shù)
conn.execute("update Class set ChildID='" & rs("id") & "' where ID=" & id)
else
Conn.execute("update Class set ChildID=ChildID+','+'" & rs("id") & "' where ID=" & id)
end if
end if
call closers()
'response.write rs("id")
call closedb()
'生成文件夾路徑
dim folder_path_02
dim path
'path="..\upload\" & teacher_name & addd '這句是錯(cuò)的，沒有定義teacher_name這個(gè)變量
path="..\upload\" & session("teacher_name") & "\" & ad
folder_path_02=server.mappath(path)
'建立該教師的班級(jí)的文件夾
set fs=createobject("scripting.filesystemobject")
if not fs.folderexists(folder_path_02) then
fs.createfolder(folder_path_02)
if fs.folderexists(folder_path_02) then
set fs=nothing
response.redirect "../show_success.asp?info=添加班級(jí)操作成功！已建立該班級(jí)的文件夾，你可以對(duì)該班級(jí)布置作業(yè)了--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
response.end
else
set fs=nothing
call error("出現(xiàn)未知錯(cuò)誤，請(qǐng)與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯(lián)系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
else
call error("已經(jīng)存在該文件夾，請(qǐng)與系統(tǒng)管理員聯(lián)系！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
else
call closers()
call closedb()
call error("出現(xiàn)未知錯(cuò)誤，請(qǐng)與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯(lián)系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
else
call error("出現(xiàn)未知錯(cuò)誤，請(qǐng)與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯(lián)系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
'+----------------------------------------------------------------------------------
'|此種方法亦可，但執(zhí)行效率較低
'|dim add
'| add=request.form("class_er")
'| add="|" & add
'| sql_04="select * from eric_manager where eric_manager='" & session("teacher") & "'"
'sql_05="insert into class (parentID,parentStr,ChildID,ClassName) values (
'| call opendb()
'| set rs1=server.createobject("adodb.recordset")
'| rs1.open sql_04,conn,3,3
'| if not rs1.eof then
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -