grade_submit.asp
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:1k
源码类别:

教育系统应用

开发平台:

Delphi

  1. <%@ Language=VBScript %>
  2. <!--#include file ="identify.asp"-->
  3. <HTML>
  4. <HEAD>
  5.   <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <LINK rel="stylesheet" type="text/css" href="xcss.css">
  7. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  8. </HEAD>
  9. <BODY background=images/zapsmbknd.gif>
  10. <% 
  11. bookid = Request.Form("bookid")
  12. username = Request.Form("username")
  13. grade = Request.Form("grade")
  14. set conn = server.CreateObject("adodb.connection")
  15. conn.Open Application("dsn")
  16. sql = "insert into grade (username,bookid,grade) values ('" & username & "'," & bookid & "," & grade & ")"
  17. conn.Execute sql
  18. conn.Close
  19. set conn = nothing
  20. %>
  21. <p>您的评分已经提交。</p>
  22. <center><INPUT type="button" value="确定" onclick="javascript:window.close();" id=button1 name=button1></center>
  23. </BODY>
  24. </HTML>