📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -