📄 edittestok.asp
字号:
<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<html>
<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
TestID=trim(request("TestID"))
sql="select * from TestName where TestID="&TestID
set oRs=server.createobject("adodb.recordset")
oRs.open sql,Conn,3,2
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("TestName")=Trim(Request.form("TestName"))
oRs("Types")=Trim(Request.form("Types"))
oRs("DataID")=DataID
oRs("Intro")=Trim(Request.Form("Intro"))'说明
oRs.update
oRs.close
Set oRs=Nothing
%>
<p> </p>
<p> </p>
<div align="center">
<center>
<table cellspacing="0" style="border-collapse: collapse" bordercolor="#336699" width="480" id="AutoNumber2" 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 + -