教育系统应用

开发平台：

Delphi

add_cmaction0.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")
	imgname = Request.Form("imgname")
	title = Request.Form("title")
	book_title = request.form("book_title")
	detail = Request.Form("detail")
	set conn = server.CreateObject("adodb.connection")
	conn.Open Application("dsn")
		
	sql = "insert into bookcomment (username,bookid,imgname,title,booktitle, detail) values ('" & username & "'," & bookid & ",'" & imgname & "','" & title & "','" & book_title & "','" & detail & "')"
	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>

						