📄 adminpaperset.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
paperno=trim(request("paperno"))
sql1="select * from tbpaper where paperno="&paperno&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sqlchap="select * from tbkcconfig where paperno="&paperno&" order by category"
set rschap=server.createobject("adodb.recordset")
rschap.open sqlchap,conn,3,2
sqlkc="select * from tbkc where kcid="&rs1("kcid")&""
set rskc=server.createobject("adodb.recordset")
rskc.open sqlkc,conn,3,2
ischoose=rs1("ischoose")
kcid=rs1("kcid")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 科目管理 | 试卷管理 | 题型控制</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<div align="center">
<center> <form method="POST" action="adminpaperset.asp?paperno=<%=paperno%>" name="chapter">
<table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber2" border="1" height="33">
<tr class="trh">
<td width="100%" height="26" >
<p align="center"><b><font color="#FFFFFF"><%=rs1("info")%>（<%=rskc("kcm")%>）题型控制</font> <font color="#FF0000"><%=request("err")%></font></b></td>
</tr>
<tr class="trh1">
<td width="100%" height="1" >
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="101%" height="67">
<tr>
<td width="10%" height="12" align="center" bordercolor="#799AE1"><b>
序号</b></td>
<td width="18%" height="12" align="center" bordercolor="#799AE1"><b>题
型 </b>
</td>
<td width="31%" height="12" align="center" bordercolor="#799AE1"><b>题
量</b></td>
<td width="27%" height="12" align="center" bordercolor="#799AE1"><b>分
值</b></td>
<td width="12%" height="12" align="center" bordercolor="#799AE1"><b>总
计</b></td>
</tr>
<%
i=1
total=0
total1=0
do while not rschap.eof
textmc1="textmc"&rschap("category")
textmc3="textmc3"&rschap("category")
if Request.ServerVariables("http_method")="POST" then
sqlmc2="SELECT * FROM tbkcconfig where kcid="&kcid&" and category="&rschap("category")&" and paperno="&rschap("paperno")
set rsmc2=server.createobject("adodb.recordset")
rsmc2.open sqlmc2,conn,3,2
textmc2=request(""&textmc1&"")
textmc4=request(""&textmc3&"")
rsmc2("datavalue")=textmc4
rsmc2("datano")=textmc2
rsmc2.update
'----------------------删除用户已有试题
sql4="select * from userdata where paperno="& rschap("paperno")
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
do while not rs4.eof
rs4.delete
rs4.update
rs4.movenext
loop
sql41="select * from userdataread where paperno="& rschap("paperno")
set rs41=server.createobject("adodb.recordset")
rs41.open sql41,conn,3,2
do while not rs41.eof
rs41.delete
rs41.update
rs41.movenext
loop
'--------------------删除用户考试信息
sql5="select * from tbscore where paperno="& rschap("paperno")
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
do while not rs5.eof
rs5.delete
rs5.update
rs5.movenext
loop
end if
sqlmc3="SELECT * FROM tbkcconfig where kcid="&kcid&" and category="&rschap("category")&" and paperno="&rschap("paperno")
set rsmc3=server.createobject("adodb.recordset")
rsmc3.open sqlmc3,conn,3,2
if rschap("category")<>8 then
total=rsmc3("datano")*rsmc3("datavalue")
end if
%>
<tr>
<td width="10%" height="15" align="center" bordercolor="#799AE1"><%=i%></td>
<td width="18%" height="15" align="center" bordercolor="#799AE1"><%
if rschap("category")=1 then
response.write "名词解释"
end if
if rschap("category")=2 then
response.write "填空题"
end if
if rschap("category")=3 then
response.write "判断题"
end if
if rschap("category")=4 then
response.write "单项选择题"
end if
if rschap("category")=5 then
response.write "多项选择题"
end if
if rschap("category")=6 then
response.write "简答题"
end if
if rschap("category")=7 then
response.write "论述题"
end if
if rschap("category")=8 then
response.write "<font color=#FF0000>阅读理解</font>"
end if
%></td>
<td width="31%" height="15" align="center" bordercolor="#799AE1">
<input type="text" name="<%=textmc1%>" size="12" value="<%=rsmc3("datano")%>" <%if ischoose=1 then %> readonly <%end if%> onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal">
<%if rschap("category")=8 then%>大题<%end if%>
</td>
<td width="27%" height="15" align="center" bordercolor="#799AE1">
<input type="text" name="<%=textmc3%>" size="9" value="<%=rsmc3("datavalue")%>" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal">
分<%if rschap("category")=8 then%>/小题<%end if%></td>
<td width="12%" height="15" align="center" bordercolor="#799AE1"><%if rschap("category")=8 then%><font color="#FF0000">N</font><%else%><%=total%><%end if%></td>
</tr>
<%rschap.movenext
total1=total1+total
i=i+1
loop%>
</table> <h5 align="center">
总分：<%=total1%>+<font color="#FF0000">N</font><br><br>
<font color="#FF0000">请慎重修改，一旦按下将会清空已经考过用户的数据</font></h5>
</td>
</tr>
<tr>
<td width="100%" height="34" bgcolor="#FFFDE8" bordercolor="#799AE1">
<p align="center">
<input name="paperno" type="hidden" size="40" value="<%=paperno%>">
<input type="submit" value="修 改" name="B1" class="s02"><span lang="en-us">
</span>
<input type="button" value="关闭窗口" name="B2" onclick="self.close()" class="s02"></td>
</tr><br>
</table>
</center>
</div></form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -