教育系统应用

开发平台：

Delphi

add_newaction.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")	
	detail = Request.Form("detail")
	
	set conn = server.CreateObject("adodb.connection")
	conn.Open Application("dsn")
		
	sql = "insert into newbook(bookid,description) values ('" & bookid & "','" & detail & "')"
	conn.Execute sql
	
	conn.Close
	set conn = nothing
%>
<p>已经加入到新书列表中了。</p>
<center><INPUT type="button" value="确定" onclick="javascript:window.close();"></center>
</BODY>
</HTML>

						