?? result.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=“GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.unnamed1 { font-size: 10pt; color: #0000CC; text-decoration: none}
a:hover { color: #CC0000; text-decoration: underline}
-->
</style>
</HEAD>
<BODY>
<P> </P>
<br>
<table width="494" border="1" align="center" bordercolor="#0000FF">
<tr>
<td>
<div align="center"><a href="test.asp" class="unnamed1">返回考試題庫</a></div>
</td>
</tr>
<tr>
<td><%
name=session("user")
dim score
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
sql="select ans from test order by id"
Set rs = conn.Execute( sql )
ycorrect=0
rsCount=0
'給出正確答案并評分
Response.Write "正確答案:"
Do while not rs.eof
Response.Write rs("ans")
rsCount=rsCount + 1
if Request.Form(rsCount)=rs("ans") then
ycorrect=ycorrect + 1
end if
rs.movenext
loop
Response.Write "<br> 你的答案:"
score=int(ycorrect/rscount*100)
for i=1 to Request.Form.Count - 1
Response.Write Request.Form(i)
next
Response.Write "<br> "
Response.Write "你的成績:"&score
sql="update [user] set score="&score&" where id="&session("userid")
conn.Execute( sql )
if score <= 60 then Response.Write "你不及格!"&"<br>"
if score >= 60 and score <= 80 then Response.Write "及格"&"<br>"
if score >= 80 and score <= 100 then Response.Write "優(yōu)秀!"
%>
<div align="center"></center><br>
<br>
</div>
</td>
</tr>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -