?? adminpapereditsave.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
paperno=trim(request("paperno"))
kcid=trim(request("kcid"))
info=trim(request("info"))
schap=cint(request("schap"))
echap=cint(request("echap"))
paperdatetime=request("paperdatetime")
stime=request("stime")
etime=request("etime")
schap1=cint(request("schap1"))
echap1=cint(request("echap1"))
sqladmin="select * from tbadmin where username='"&session("adminname")&"'"
set rsadmin=server.createobject("adodb.recordset")
rsadmin.open sqladmin,conn,3,2
sql="select * from tbpaper where paperno="&paperno
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs("ischoose")=0 then
if schap<=echap then
sql1="select * from tbpaper where kcid="&kcid&" and schap="&schap&" and echap="&echap
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if rs1.eof then
rs("kcid")=kcid
rs("info")=info
rs("schap")=schap
rs("echap")=echap
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("adminname")=rsadmin("tname")
rs("username")=session("adminname")
rs.update
response.redirect "adminpaperedit.asp?err=(修改試卷成功)&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
else
rs("info")=info
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("adminname")=rsadmin("tname")
rs("username")=session("adminname")
rs.update
response.redirect "adminpaperedit.asp?err=(已經存在相同試卷)&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
end if
else
response.redirect "adminpaperedit.asp?err=(章節范圍錯誤)&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
end if
else
sql1="select * from tbpaper where kcid="&kcid&" and schap="&schap1&" and echap="&echap1
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if not rs1.eof then
rs("info")=info
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("adminname")=rsadmin("tname")
rs("username")=session("adminname")
rs.update
end if
response.redirect "adminpaperedit.asp?err=(修改試卷成功)&kcid="&kcid&"&schap="&schap1&"&echap="&echap1&"&paperno="&paperno
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -