?? admin_check.asp
字號:
'| rs1("class_e")=rs1("class_e") & add
'| rs1.update
'| rs1.close
'| set rs1=nothing
'|else
'| call closedb()
'| call error("出現未知錯誤，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
'| call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
'| call Iserror()
'| response.end
'| end if
'+----------------------------------------------------------------------------------
case "add_homework"
'response.write "dd"
if session("purview")>2 then
response.clear
call error("對不起該功能目前只對普通開放，系統管理員如有需要，請另建一教師賬號，使用該功能！")
call Iserror()
response.end
end if
call opendb()
set rs=conn.execute("select class_e,eric_manager from eric_manager where teacher='" & session("teacher_name") & "' and class_e<>''")'檢測數據庫中是不有符合上述條件的記錄
if rs.eof then
call closers()
call closedb()
call error("當前該您（教師）沒有創建班級，不能布置作業！請先添加授課班級或與系統管理員聯系！")
call Iserror()
response.end
else
call closers()
call closedb()
homework_name=request.form("homework_name")
'字符過濾
object_e=trim(request.form("object_e"))'面向對象
content=request.form("content")
if object_e="" then
call error("請選作業面向的對象！")
call Iserror()
response.end
end if
if check_len(homework_name,"[作業名稱]",20,0) or _
check_len(content,"[內容]",500,0) then
finderror=true
call Iserror()
response.end
end if
'獲得選中的是否允許上傳的狀態
is_upload_e=request.form("is_upload")
if is_upload_e="1" then
is_upload_e=true
elseif is_upload_e="-1" then
is_upload_e=false
end if
'response.write is_upload_e
'response.end
if instr(object_e,",")>0 then'在給多個班級布置作業的情況
array_object_e=split(object_e,",")
call opendb()
for i=0 to ubound(array_object_e)
set rs=conn.execute("select * from homework where teacher_name='" & session("teacher_name") & "' and object_class='" & trim(array_object_e(i)) & "' and homework_name='" & homework_name & "'")
if not rs.eof then
call error("你已經對" & array_object_e(i) & "該班級布置過該作業了！")
call closers()
call Iserror()
response.end
else
dim sql_70
'向homework插入內容
sql_70="insert into homework (teacher_name,homework_name,teacher,object_class,content,Is_upload) values ('" & session("teacher_name") & "','" & homework_name & "','" & session("teacher") & "','" & trim(array_object_e(i)) & "','" & content & "'," & is_upload_e & ")"
conn.execute(sql_70)
'向class表中提交內容
set rs=conn.execute("select id from class where classname='" & session("teacher_name") & "'")
teacher_id=rs(0)'取得該教師的id
call closers()
set rs=conn.execute("select id,childID,classname from class where parentid='" & teacher_id & "' and classname='" & trim(array_object_e(i)) & "'")
class_id=rs(0)'取得該教師班級的id
childid=rs(1)
call closers()
parentStr=teacher_id & "," & class_id
conn.execute("insert into class (parentID,parentStr,classname) values ('" & class_id & "','" & parentStr & "','" & homework_name & "')")
set rs=conn.execute("select id from class where classname='" & homework_name & "' order by id desc")'order by id desc用處是獲得剛插入的自動編號
homework_id=rs(0)
call closers()
'插入homework中的classid
conn.execute("update homework set classid=" & homework_id & " where teacher_name='" & session("teacher_name") & "' and object_class='" & trim(array_object_e(i)) & "' and homework_name='" & homework_name & "'")
if isnull(childid) or childid="" then '注意usnull()這個函數
conn.execute("update Class set ChildID='" & homework_id & "' where ID=" & class_id)
else
Conn.execute("update Class set ChildID=ChildID+','+'" & homework_id & "' where ID=" & class_id)
end if
'建立該次某班級作業文件夾
'生成該次某班級作業文件夾路徑
folder_path_03=server.mappath("..\upload\" & session("teacher_name") & "\" & trim(array_object_e(i)) & "\" & homework_name)
set fs=createobject("scripting.filesystemobject")
if not fs.folderexists(folder_path_03) then
fs.createfolder(folder_path_03)
else
set fs=nothing
call error("已經存在該文件夾！，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
if fs.folderexists(folder_path_03) then
set fs=nothing
else
set fs=nothing
call error("已經存在該文件夾！，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
end if
next
call closedb()
response.redirect "../show_success.asp?info=添加作業操作成功！已建立該次作業相關文件夾！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
else'當布置的作業為單個班級時
call opendb()
set rs=conn.execute ("select * from homework where teacher_name='" & session("teacher_name") & "' and object_class='" & object_e & "' and homework_name='" & homework_name & "'")
if not rs.eof then
call error("你已經對" & object_e & "該班級布置過該作業了！")
call closers()
call closedb()
call Iserror()
response.end
else
call closers()
conn.execute("insert into homework (homework_name,Is_upload,teacher_name,object_class,teacher,content) values ('" & homework_name & "'," & is_upload_e & ",'" & session("teacher_name") & "','" & object_e & "','" & session("teacher") & "','" & content & "')" )
'''''
'向class表中提交內容
set rs=conn.execute("select id from class where classname='" & session("teacher_name") & "'")
teacher_id=rs(0)'取得該教師的id
call closers()
set rs=conn.execute("select id,childID,classname from class where parentid='" & teacher_id & "' and classname='" & object_e & "'")
class_id=rs(0)'取得該教師班級的id
childid=rs(1)
call closers()
parentStr=teacher_id & "," & class_id
conn.execute("insert into class (parentID,parentStr,classname) values ('" & class_id & "','" & parentStr & "','" & homework_name & "')")
set rs=conn.execute("select id from class where classname='" & homework_name & "' order by id desc")'order by id desc用處是獲得剛插入的自動編號
homework_id=rs(0)
call closers()
'插入homework中的classid
conn.execute("update homework set classid=" & homework_id & " where teacher_name='" & session("teacher_name") & "' and object_class='" & object_e & "' and homework_name='" & homework_name & "'")
if isnull(childid) or childid="" then '注意usnull()這個函數
conn.execute("update Class set ChildID='" & homework_id & "' where ID=" & class_id)
else
Conn.execute("update Class set ChildID=ChildID+','+'" & homework_id & "' where ID=" & class_id)
end if
'建立該次某班級作業文件夾
'生成該次某班級作業文件夾路徑
folder_path_03=server.mappath("..\upload\" & session("teacher_name") & "\" & object_e & "\" & homework_name)
set fs=createobject("scripting.filesystemobject")
if not fs.folderexists(folder_path_03) then
fs.createfolder(folder_path_03)
else
set fs=nothing
call error("已經存在該文件夾！，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
if fs.folderexists(folder_path_03) then
set fs=nothing
else
set fs=nothing
call error("已經存在該文件夾！，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end if
'end if
'''''''''
call closedb()
response.redirect "../show_success.asp?info=添加作業操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
end if
end if
end if
case "admin_manager" '更新管理級成員
'username=request.form("username")
remark=request.form("remark")
'limit=request.form("purview")
if check_num(request.querystring("target"),"非法參數！") then
finderror=true
call Iserror()
response.end
end if
if check_len(remark,"[備注]",500,1) then '1為允許為空
finderror=true
call Iserror()
response.end
end if
'字符過濾
'sql_52="update eric_manager set eric_manager='" & username & "',remark='" & remark & "',purview='" & limit & "' where id=" & request("target")
sql_52="update eric_manager set remark='" & remark & "' where id=" & request("target")
call opendb()
conn.execute (sql_52)
call closedb()
response.redirect "../show_success.asp?info=修改操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
response.end
case "login"
dim user,pwd,confirm
user=trim(request.form("user"))
pwd=trim(request.form("pwd"))
confirm=request.form("confirm")
if user="" or confirm="" or pwd="" then
call error("用戶名、密碼、驗證碼均不能為空！")
call Iserror()
response.end
elseif cstr(session("confirmcode"))<>cstr(trim(request.form("confirm"))) then
session.abandon
call error("驗證碼出錯！")
call Iserror()
response.end
else
'非法字符過濾
dim sql_05
sql_05="select eric_manager,eric_password,teacher,purview from eric_manager where eric_manager='" & user & "' and eric_password='" & pwd & "'"
call opendb()
set rs_sql_05=conn.execute (sql_05)
if not rs_sql_05.eof then
session("teacher_name")=rs_sql_05("teacher")'真名
session("teacher")=user'教師的用戶名
session("purview")=rs_sql_05("purview")'設置權限
rs_sql_05.close
set rs_sql_05=nothing
call closedb()
response.redirect "admin_main.asp"
response.end
else
rs_sql_05.close
set rs_sql_05=nothing
call closedb()
call error("用戶名，密碼出錯！如果忘記密碼請與授課教師聯系。")
call Iserror()
response.end
end if
end if
'end if
case "modify_pwd"
dim old_pwd,chg_pwd,chg_pwdq
old_pwd=request.form("old_pwd")
chg_pwd=request.form("chg_pwd")
chg_pwdq=request.form("chg_pwdq")
if check_len(old_pwd,"[舊密碼]",20,0) or _
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -