add_introaction.asp
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:1k
源码类别:

教育系统应用

开发平台:

Delphi

  1. <%@ Language=VBScript %>
  2. <!--#include file ="identify.asp"-->
  3. <HTML>
  4. <HEAD>
  5.   <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <LINK rel="stylesheet" type="text/css" href="xcss.css">
  7. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  8. </HEAD>
  9. <BODY background=images/zapsmbknd.gif>
  10. <% 
  11. bookid = Request.Form("bookid")
  12. detail = Request.Form("detail")
  13. set conn = server.CreateObject("adodb.connection")
  14. conn.Open Application("dsn")
  15. sql = "insert into introduce(bookid,description) values ('" & bookid & "','" & detail & "')"
  16. conn.Execute sql
  17. conn.Close
  18. set conn = nothing
  19. %>
  20. <p>已经加入到推荐书目列表中了。</p>
  21. <center><INPUT type="button" value="确定" onclick="javascript:window.close();"></center>
  22. </BODY>
  23. </HTML>