📄 result.asp.txt

📁 ASP 网页数据库短训教程源码

💻 TXT

字号:

<%@ Language=VBScript %> 
<%
  '定义变量，对象
  Dim Name, Score
  Dim Correct, RSCount
  Dim objConn, objRS, objRS1  
    ' 通过Session对象获取用户名
  Name = Session("User")
  Correct = 0
  RSCount = 0
  If Session("Pass") <> 1 Then
    Response.Redirect "Login.asp"
  End If
%>
<HTML> 
  <HEAD><TITLE>评分页面</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
    <TABLE align=center>
      <TR><TD>正确答案：
<%
  s=UBound(Session("shiti"))
    ' 给出正确答案并评分
  For i=1 to s
    Response.Write Session("shiti")(i,0) & "&nbsp;"
    f=Cint(Request.Form(i))
    a=Session("shiti")(i,0)
    If f = a then
      Correct = Correct + 1
    End If
  Next
    ' 输出成绩到客户端
  Response.Write "<TR><TD>你的答案： "
  Score = Int(Correct / s * 100)
  For i = 1 To Request.Form.Count
    Response.Write Cint(Request.Form(i)) & "&nbsp;"
  Next
  Response.Write "<P>你的成绩：" & score & "&nbsp;<B>"
  If Score < 60 Then Response.Write "<FONT color=red>不及格！</FONT>"
  If Score >= 60 And Score < 80 Then Response.Write "<FONT color=blue>及格</FONT>"
  If Score >= 80 And Score <= 100 Then Response.Write "<FONT color=blue>优秀！</FONT>"
  Response.Write "</B>"
    ' 记录成绩到数据库
    ' 使用Connection对象打开数据库文件
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Server.MapPath("Exercise.mdb")
  objConn.Open
  Set objRS = Server.CreateObject("ADODB.Recordset")
  strSQL = "update Student set 成绩=" & score & " where 编号='" & name &"'"
  objRS.Open strSQL, objConn, 1, 2
    ' 释放资源
  objConn.Close
  Set objRS = Nothing
  Set objConn = Nothing
  Session("Pass") = 0
%>
      <TR><TD height=40><A href="Login.asp" TARGET=_parent>返回首页</A>
    </TABLE>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -