教育系统应用

开发平台：

Delphi

grade_submit.asp：源码内容

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

						