shiti_add.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 103 行

<!--#include file="checkuser.asp"-->
<!--#include file="conn.asp"-->
<%
dim rs,sql,rs1,sql1,rs2,sql2,rs3,rs4,sql3,sql4
dim tm,km,lx,a,b,c,d,anw,sxts,dxts,dxts1,sxts2,mdb
tm=request.Form("tm")
mdb=request.form("mdb")
km=request.Form("km")
lx=request.Form("lx")
a=request.Form("a")
b=request.Form("b")
c=request.form("c")
d=request.Form("d")
anw=request.Form("anw")
if lx=1 then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from kemu where name='"&km&"'"
rs1.open sql1,conn,1,1
dxts=rs1("dxts")
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from "&mdb&" where kemu='"&km&"' and type='"&lx&"'"
rs2.open sql2,conn,1,1
dxts1=rs2.recordcount
  if dxts>dxts1 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb
rs.open sql,conn,2,3
rs.addnew
rs("kemu")=km
rs("question")=tm
rs("type")=lx
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("answer")=anw
rs.update
rs.close
set rs=nothing%>
<script language=vbscript>
msgbox("恭喜你添加试题操作成功~!")
window.location.href"shiti.asp"
</script>
<%else%>
<script language=vbscript>
msgbox("对不起你添加试题的数量超过了该科目设置的试题数量~!")
window.location.href"shiti.asp"
</script>
<%
rs1.close
rs2.close
set rs1=nothing
set rs2=nothing
set conn=nothing
end if
elseif lx=2 then
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from kemu where name='"&km&"'"
rs3.open sql3,conn,1,1
sxts=rs3("sxts")
set rs4=server.CreateObject("adodb.recordset")
sql4="select * from "&mdb&" where kemu='"&km&"' and type='"&lx&"'"
rs4.open sql4,conn,1,1
sxts1=rs4.recordcount
if sxts>sxts1 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb
rs.open sql,conn,2,3
rs.addnew
rs("kemu")=km
rs("question")=tm
rs("type")=lx
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("answer")=anw
rs.update
rs.close
set rs=nothing
%>
<script language=vbscript>
msgbox("恭喜你添加试题操作成功~!")
window.location.href"shiti.asp"
</script>
<%else%>
<script language=vbscript>
msgbox("对不起你添加试题的数量超过了该科目设置的试题数量~!")
window.location.href"shiti.asp"
</script>
<%
rs3.close
rs4.close
set rs3=nothing
set rs4=nothing
set conn=nothing
end if
else
end if

%>