📄 createtest3.asp
字号:
<!--#include file="Check.asp"-->
<!--#include file = "Conn.asp"-->
<html>
<%
Dim TeachingSujectID
TeachingSujectID = Session("TestTeachingSujectID")
Session("TestTeachingSujectID") = TeachingSujectID
If Session("TestTeachingSujectID") = "" Then
Response.Write("参数错误！")
Response.End
End If
%>
<head>
<meta http-equiv = "Content-Language" content = "zh-cn">
<meta http-equiv = "Content-Type" content = "text/html; charset=gb2312">
<title></title>
<link rel = "stylesheet" type = "text/css" href = "css.css">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style></head>
<body>
<%
DataID=Trim(Request("List2"))
If Request("Types")=3 And DataID="" Then
Response.Write "<script>alert('请选择题目！');history.go(-1);</script>"
Response.End
End IF
sql = "select * from TestName"
set oRs=server.createobject("adodb.recordset")
oRs.open sql,conn,3,2
oRs.addnew
oRs("TestName")=Trim(Request("TestName"))'自测标题
oRs("Subject")=trim(Request("Subject"))'科目名
oRs("TotalResult")=Request("TotalResult")
oRs("CountA")=Request("CountA")
oRs("CountB")=Request("CountB")
oRs("CountC")=Request("CountC")
oRs("ResultA")=Request("ResultA")
oRs("ResultB")=Request("ResultB")
oRs("ResultC")=Request("ResultC")
oRs("TestCount")=1
oRs("CheckFlag")=1
oRs("settime")=date()
oRs("Types")=Request("Types")
oRs("DataID")=DataID
oRs("Intro")=Trim(Request.Form("Intro"))'考卷说明
oRs("TeachingSujectID") = TeachingSujectID
oRs.update
oRs.close
Set oRs=Nothing
%>
<p> </p>
<p> </p>
<div align = "center">
<center>
<table cellspacing = "0" bordercolor = "#336699" width = "480" cellpadding = "0" border = "0">
<tr>
<td width = "100%" height = "18" background="../images/Down_bg.gif" bgcolor = "#6699CC"><b> <font color = "#FFFFFF">操作成功</font></b></td>
</tr>
<tr>
<td width = "100%" height = "160" bgcolor = "#66C06D">
<p align = "center"><font size = "2">祝贺您，已经成功生成自测！按下返回按钮返回系统首页！</font></p>
</td>
</tr>
<tr>
<td width = "100%" height = "18" background="../images/Top_bg.gif" bgcolor = "#6699CC">
<p align = "center">
<input type = "button" value = " 返 回 " name = "B3" onclick = "window.location = 'SelectSubject.asp'"></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -