www.gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\input\input.asp
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>试 题 录 入 界 面</title> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <%@ Language=VBScript %> <%Session.TimeOut=200 Dim CurPage 'tab1=request.querystring("papername") 'name=trim(request("name")) dwname=session("dwname") czbz=request.querystring("czbz") session("czbz")=czbz 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")) 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 if czbz<>3 then nownum=request.querystring("nownum") session("xgbj")=nownum xgbj=session("xgbj") end if nownum=request.querystring("nownum") 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 sql="select * from 待审核试题库 where 单位='"& dwname &"'" set base=conn.execute(sql) if not base.eof then base.movefirst 'sql="update 成绩登记表 set 总分='"& base("总分") &"' where 试卷名称='"& session("user") & session("tab") &"'" 'conn.execute(sql) allnum=0 do while not base.eof allnum=allnum+1 base.movenext loop base.movefirst if nownum>allnum then nownum1=allnum end if if nownum<1 then nownum=1 end if base.movefirst if czbz<>2 then base.move nownum-1 if not base.eof then session("ID")=base("ID") jinid=session("ID") else nownum=1 base.movefirst end if else jinid=session("ID") jjj=base("试题ID") sql="DELETE FROM 待审核试题库 where 试题ID='"& session("ID") &"'" r1=conn.execute(sql) allnum=allnum-1 end if if base.bof then base.movefirst end if if base.eof then nownum=1 base.movefirst end if if czbz=1 then base.move allnum-1 end if if czbz=3 then base.move session("xgbj")-1 session("ID")=base("ID") jinid=session("ID") end if %> <body background="../Images/bgcolor.gif"> <form action="inputsuccess.asp" id="FORM1" method="POST" name="frmADO"> <table border="0" width="100%"> <tr> <td width="100%" align="center"><b><font face="楷体_GB2312" color="#FF0000" size="6"><%=dwname%>试题库维护界面</font></b></td> </tr> </table> <table border="0" width="100%"> <tr> <td width="100%" align="center"> <a href="input.asp?nownum=<%=1%>">第一题 </a> <a href="input.asp?nownum=<%=allnum%>">最后一题 </a> <a href="input.asp?nownum=<%=nownum+1%>">下一题</a> <a href="input.asp?nownum=<%=nownum-1%>">上一题</a> <%if czbz<>3 then %> 第<font color="#FF0000"><b><%=nownum%>/<%=allnum%></b></font>条记录</td> <%else%> 第<font color="#FF0000"><b><%=session("xgbj")%>/<%=allnum%></b></font>条记录 <%end if%> </td> </tr> </table> <div align="center"><center> <% if czbz<>1 and czbz<>2 then %> <table border="5" width="80%" height="60%"> <tr> <td width="25%" height="20">考核专业</td> <td width="25%" height="20">考核对象</td> <td width="25%" height="20">装备型号</td> <td width="25%" height="20">试题题型</td> </tr> <tr> <td width="25%" height="23%"><input type="text" value="<%=base("专业")%>" name="zy" size="17"></td> <td width="25%" height="23%"><input type="text" value="<%=base("考核对象")%>" name="khdx" size="17"></td> <td width="25%" height="23%"><input type="text" value="<%=base("装备型号")%>" name="zbxh" size="17"></td> <td width="25%" height="23"><select name="sttx" size="1"> <option value="填空">填空</option> <option value="选择">选择</option> <option value="判断">判断</option> <option value="简答">简答</option> <option value="论述">论述</option> <option value="简答(简述)">简答(简述)</option> <option value="论述(分析)">论述(分析)</option> <option selected value="<%=base("试题题型")%> "><%=base("试题题型")%> </option> </select> </td> </tr> <tr> <td width="25%" height="20">试题题类</td> <td width="25%" height="20">试题分数</td> <td width="25%" height="20">出题单位</td> <td width="25%" height="20">出题者</td> </tr> <tr> <td width="25%" height="25%"><input type="text" value="<%=base("试题题类")%>" name="sttl" size="17"></td> <td width="25%" height="25%"><input type="text" value="<%=base("试题分数")%>" name="stfs" size="17"></td> <td width="25%" height="25%"><input type="text" value="<%=base("出题单位")%>" name="ctdw" size="17"></td> <td width="25%" height="25%"><input type="text" value="<%=base("出题者")%>" name="ctz" size="18"></td> </tr> <tr> <td width="25%" height="20">附加参数</td> <td width="25%" height="20">试题难易数值</td> <td width="25%" height="20">预计答题时间</td> <td width="25%" height="20">试题录入者</td> </tr> <tr> <td width="25%" height="23%"><input type="text" value="<%=base("附加参数")%>" name="fjcs" size="17"></td> <td width="25%" height="23%"><input type="text" value="<%=base("试题难易数值")%>" name="stny" size="17"></td> <td width="25%" height="23%"><input type="text" value="<%=base("预计答题时间")%>" name="dtsj" size="17"></td> <td width="25%" height="23%"><input type="text" value="<%=base("试题录入者")%>" name="stlrz" size="18"></td> </tr> <tr> <td width="50%" colspan="2" height="20">试题</td> <td width="50%" colspan="2" height="20">答案</td> </tr> <tr> <td width="50%" colspan="2" height="111"><textarea rows="6" name="st" cols="38"><%=base("试题")%></textarea> </td> <td width="50%" colspan="2" height="111"><textarea rows="6" name="da" cols="38"><%=base("答案")%></textarea> </td> </tr> </table> <% else %> <table background="../Images/bgcolor.gif" border="5" width="80%" height="60%"> <tr> <td width="25%" height="20">考核专业222</td> <td width="25%" height="20">考核对象</td> <td width="25%" height="20">装备型号</td> <td width="25%" height="20">试题题型</td> </tr> <tr> <td width="25%" height="23%"><input type="text" name="zy" size="17"></td> <td width="25%" height="23%"><input type="text" name="khdx" size="17"></td> <td width="25%" height="23%"><input type="text" name="zbxh" size="17"></td> <td width="25%" height="23"><select name="sttx" size="1"> <option value="填空">填空</option> <option value="选择">选择</option> <option value="判断">判断</option> <option value="简答">简答</option> <option value="论述">论述</option> <option value="简答(简述)">简答(简述)</option> <option value="论述(分析)">论述(分析)</option> </select> </td> </tr> <tr> <td width="25%" height="20">试题题类</td> <td width="25%" height="20">试题分数</td> <td width="25%" height="20">出题单位</td> <td width="25%" height="20">出题者</td> </tr> <tr> <td width="25%" height="25%"><input type="text" name="sttl" size="17"></td> <td width="25%" height="25%"><input type="text" name="stfs" size="17"></td> <td width="25%" height="25%"><input type="text" name="ctdw" size="17"></td> <td width="25%" height="25%"><input type="text" name="ctz" size="18"></td> </tr> <tr> <td width="25%" height="20">附加参数</td> <td width="25%" height="20">试题难易数值</td> <td width="25%" height="20">预计答题时间</td> <td width="25%" height="20">试题录入者</td> </tr> <tr> <td width="25%" height="23%"><input type="text" name="fjcs" size="17"></td> <td width="25%" height="23%"><input type="text" name="stny" size="17"></td> <td width="25%" height="23%"><input type="text" name="dtsj" size="17"></td> <td width="25%" height="23%"><input type="text" name="stlrz" size="18"></td> </tr> <tr> <td width="50%" colspan="2" height="20">试题</td> <td width="50%" colspan="2" height="20">答案</td> </tr> <tr> <td width="50%" colspan="2" height="111"><textarea rows="6" name="st" cols="38"></textarea> </td> <td width="50%" colspan="2" height="111"><textarea rows="6" name="da" cols="38"></textarea> </td> </tr> </table> </div> </center> </form> <%end if else%> <background="../Images/bgcolor.gif"> <form action="inputsuccess.asp" id="FORM1" method="POST" name="frmADO"> <table border="0" background="../Images/bgcolor.gif" width="100%"> <tr><td width="100%" align="center"><b><font face="楷体_GB2312" color="#FF0000" size="6"><%=dwname%>试题库维护界面</font></b></td></tr> </table> <table border="0" width="100%"> <tr> <td width="100%" background="../Images/bgcolor.gif" align="center"> <a href="input.asp?nownum=<%=1%>">第一题 </a> <a href="input.asp?nownum=<%=allnum%>">最后一题 </a> <a href="input.asp?nownum=<%=nownum+1%>">下一题 </a> <a href="input.asp?nownum=<%=nownum-1%>">上一题 </a> <%if czbz<>3 then %> 第<font color="#FF0000"><b><%=nownum%>/<%=allnum%></b></font>条记录</td> <%else%> 第<font color="#FF0000"><b><%=session("xgbj")%>/<%=allnum%></b></font>条记录 <%end if%> </tr> <tr> <td width="100%" background="../Images/bgcolor.gif" align="center"> </td> </tr> </table> <div align="center"><center> <table border="5" background="../Images/bgcolor.gif" width="80%" height="60%"> <tr> <td width="50%" height="20">考核专业</td> <td width="50%" height="20">试题题型</td> </tr> <tr> <td width="50%" height="23%"><input type="text" name="zy" size="17"></td> <td width="50%" height="23"><select name="sttx" size="1"> <option value="单项选择">单项选择</option> <option value="多项选择">多项选择</option> <option value="判断">判断</option> <option value="排序">排序</option> </select> </td> </tr> <tr> <td width="50%" height="20">试题分数</td> <td width="50%" height="20">附加参数</td> </tr> <tr> <td width="50%" height="25%"><input type="text" name="stfs" size="17"></td> <td width="50%" height="23%"><input type="text" name="fjcs" size="17"></td> </tr> <tr> <td width="50%" colspan="2" height="20">试题</td> <td width="50%" colspan="2" height="20">答案</td> </tr> <tr> <td width="50%" colspan="2" height="111"><textarea rows="6" name="st" cols="38"></textarea> </td> <td width="50%" colspan="2" height="111"><textarea rows="6" name="da" cols="38"></textarea> </td> </tr> </table> <%end if%> <br><br> <table border="0" width="100%" height="28"> <tr> <td width="100%" align="center" height="24"> <a href="input.asp?czbz=<%=1%>">添 加</a> <%=nownum%> <a href="input.asp?czbz=<%=2%>">删 除</a> <%=jinid%> <a href="input.asp?czbz=<%=3%>">修 改</a> <%=jjj%> <a href="../mainselect.asp">退出</a> <%=session("ID")%></td> </tr> </table> <% if czbz=1 or czbz=3 then %> <div align="center"><center><p> <input type="submit" value="提 交" name="B1" style="background-color: rgb(0,255,255)"> <input type="reset" value="清 除" name="B2" style="background-color: rgb(0,255,255)"> </p></center></div> <% end if %> </form> </body> </html>