教育系统应用

开发平台：

Delphi

del_introduce.asp：源码内容

							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<% Response.Expires = 0 %>
<%
	bookid = Request.QueryString("bookid")
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	
	sql = "delete from introduce where bookid = " & bookid
	conn.Execute sql
	conn.Close
	set conn = nothing	
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META HTTP-EQUIV="Refresh" CONTENT="0;URL=xmain.asp">
<link rel="stylesheet" type="text/css" href="xcss.css">
</head>
<body>
</body>
</html>

						