教育系统应用

开发平台：

Delphi

add_new.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">
<% 
	b_bookid = Request.QueryString("bookid")	
	
	set conn = server.CreateObject("adodb.connection")
	conn.Open Application("dsn")
		
	sql = "select bookid,name,author,dir from BookDetail where bookid=" & b_bookid
	
	set rs = server.CreateObject("adodb.recordset")
	rs.Open sql,conn
	if rs.EOF then
		rs.Close
		set rs = nothing
		conn.Close
		set conn = nothing
		Response.Write "找不到您要的文件！"		
		Response.End
	end if
	dir = rs("dir")
	b_name = rs("name")
	author = rs("author")
	
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
	dir = replace(dir,"","/")
%>
<form action="add_newaction.asp" method="post" id="form1" name="form1">
<h3>添加到新书列表：</h3>
<p><b>书名：</b><%=b_name%></p>
<p><b>作者：</b><%=author%></p>
<p valign="top"><b>简要评价：</b><br>
<input type="hidden" name="username" value="<%=session("username")%>">
<input type="hidden" name="bookid" value="<%=b_bookid%>">
<textarea id="detail" name="detail" style="HEIGHT: 38px; WIDTH: 250px" valign="top"></textarea></p>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1">
	<tr>
		<td align="middle"><input type="submit" value="添加" id="submit1" name="submit1">&nbsp;&nbsp;<input type="button" value="取消" onclick="javascript:window.close();" id="button1" name="button1"></td>
	</tr>
</table>
</form>
</body>
</html>

						