教育系统应用

开发平台：

Delphi

add_bmaction0.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")
	detail = Request.Form("detail")
	imgname = Request.Form("imgname")
	
	set conn = server.CreateObject("adodb.connection")
	conn.Open Application("dsn")
		
	sql = "insert into bookmark (username,bookid,detail,imgname) values ('" & username & "'," & bookid & ",'" & detail & "','" & imgname & "')"
	conn.Execute sql
	
	conn.Close
	set conn = nothing
%>
<p>您的新书签已经设置。</p>
<center><INPUT type="button" value="确定" onclick="javascript:window.close();"></center>
</BODY>
</HTML>

						