inputsuccess.asp ASP+ACCESS在线考试系统设计(源代码+论文) - ASP源码程序

gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\input\inputsuccess.asp
    <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试题录入成功</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
</head>

<%@ Language=VBScript %>  
<%
zy=trim(request("zy"))
khdx=trim(request("khdx"))
sttx=trim(request("sttx"))
sttl=trim(request("sttl"))
stfs=trim(request("stfs"))
ctdw=trim(request("ctdw"))
ctz=trim(request("ctz"))
st=trim(request("st"))
da=trim(request("da"))
zbxh=trim(request("zbxh"))
fjcs=trim(request("fjcs"))
stny=trim(request("stny"))
dtsj=trim(request("dtsj"))
stlrz=trim(request("stlrz"))
session("fjcs")=fjcs
session("dtsj")=dtsj
session("stlrz")=stlrz
session("stny")=stny
session("zy")=zy
session("khdx")=khdx
session("zbxh")=zbxh
session("sttx")=sttx
session("sttl")=sttl
session("stfs")=stfs
session("ctdw")=ctdw
session("ctz")=ctz
session("st")=st
session("da")=da
jinid=session("ID")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn


if session("czbz")=1 then

If session("zy")= "" Then
session("zy")= "未知"
End If

If session("khdx") = "" Then
session("khdx") = "未知"
End If

If session("sttx") = "" Then
session("sttx") = "未知"
End If

If session("sttl")= "" Then
session("sttl") = "未知"
End If

If session("zbxh") = "" Then
session("zbxh")= "未知"
End If

If session("stfs") = "" Then
session("stfs")="1"
End If

If session("ctdw") = "" Then
session("ctdw")= "未知"
End If

If session("ctz") = "" Then
session("ctz")= "未知"
End If

If session("st") = "" Then
session("st")= "未知"
End If

If session("da") = "" Then
session("da")= "未知"
End If

If session("fjcs") = "" Then
session("fjcs")= "1"
End If

If session("stny") = "" Then
session("stny")= "未知"
End If

If session("dtsj") = "" Then
session("dtsj")= "1"
End If

If session("stlrz") = "" Then
session("stlrz")= "未知"
End If


 
sql="insert into 待审核试题库 (专业,考核对象,装备型号,试题题型,试题题类,试题分数,出题单位,出题者,试题,答案,单位,附加参数,试题难易,预计答题时间,试题录入者,试题ID) values ('"& session("zy") &"','"& session("khdx") &"','"& session("zbxh") &"','"& session("sttx") &"','"& session("sttl") &"','"& session("stfs") &"','"& session("ctdw") &"','"& session("ctz") &"','"& session("st") &"','"& session("da") &"','"& session("dwname") &"','"& session("fjcs") &"','"& session("stny") &"','"& session("dtsj") &"','"& session("stlrz") &"','"& allnum+1 &"')"
  r1=conn.execute(sql)

end if

if session("czbz")=2 then 
 sql="DELETE FROM 待审核试题库 where 试题ID='"& session("ID") &"'"

      r1=conn.execute(sql)
end if

if session("czbz")=3 then 
 sql="update 待审核试题库 set 考核对象='"& session("khdx") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题题型='"& session("sttx") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 专业='"& session("zy") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题='"& session("st") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 答案='"& session("da") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题题类='"& session("sttl") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题分数='"& session("stfs") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 出题单位='"& session("ctdw") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 出题者='"& session("ctz") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 装备型号='"& session("zbxh") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 附加参数='"& session("fjcs") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题难易='"& session("stny") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 预计答题时间='"& session("dtsj") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
 sql="update 待审核试题库 set 试题录入者='"& session("stlrz") &"' where 试题ID='"& jinid &"'"
 r1=conn.execute(sql)
  end if 
%>




<body background="../Images/bgcolor.gif">
<table border="0" width="100%">
  <tr>
    <td width="100%" align="center"><h4 align="center"><b>
    <font color="#FF0000" face="楷体_GB2312" size="6">试&nbsp;题&nbsp;录&nbsp;入&nbsp;成&nbsp;功</font>
    </b></h4></td>  
  </tr>  
</table>  
  
<div align="center"><center>  
<table border="1" width="80%" height="20">  
  <tr>  
    <td width="80%" height="25" align="center" checked="false"><h3><font color="#0000FF">您录入的试题已成功导入试题库，谢谢！</font></h3>  
    <h3><font color="#0000FF">是否继续录入试题？</font></h3>  
    </td>  
  </tr>  
</table>  
</center></div>  
  
  
<form method="POST" action="inputsuccess.asp" align="center">  
  <div align="center"><center><table border="0" width="60%">  
    <tr>  
      <td width="60%" align="center"></td>  
    </tr>  
    <tr>  
      <td width="60%" align="center">
      <a href="input.asp"><img border="0" src="../Images/continueinput.jpg"></img></a>&nbsp;  
      <a href="../Default.htm"><img border="0" src="../Images/back.bmp"></a>
      </td> 
    </tr> 
  </table> 
  </center></div> 
</form> 
 

</a> 
</body> 
</html>