教育系统应用

开发平台：

Delphi

add_bookmark0.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 = session("bookid")	
	if len(b_bookid)=0 then
		Response.Write "您没有打开任何一本书！"		
		Response.End
	end if
	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_bmaction0.asp" method=POST id=form1 name=form1>
<h3>添加一个新书签：</h3>
<P><b>用户名：</b><%=session("username")%></P>
<P><b>书名：</b><%=b_name%></P>
<P><b>作者：</b><%=author%></P>
<p><b>选择书签图标：</b></p>
<p>
<img src="images/a08.jpg"><input type="radio" name="imgname" value="a08" checked>&nbsp;
<img src="images/a01.jpg"><input type="radio" name="imgname" value="a01">&nbsp;
<img src="images/a02.jpg"><input type="radio" name="imgname" value="a02">&nbsp;
<img src="images/a03.jpg"><input type="radio" name="imgname" value="a03">&nbsp;
<img src="images/a04.jpg"><input type="radio" name="imgname" value="a04">&nbsp;
<br>
<img src="images/a05.jpg"><input type="radio" name="imgname" value="a05">&nbsp;
<img src="images/a06.jpg"><input type="radio" name="imgname" value="a06">&nbsp;
<img src="images/a07.jpg"><input type="radio" name="imgname" value="a07">&nbsp;
<img src="images/a09.jpg"><input type="radio" name="imgname" value="a09">&nbsp;
<img src="images/a10.jpg"><input type="radio" name="imgname" value="a10">&nbsp;
<br>
<img src="images/a11.jpg"><input type="radio" name="imgname" value="a11">&nbsp;
<img src="images/a12.jpg"><input type="radio" name="imgname" value="a10">&nbsp;
<img src="images/a13.jpg"><input type="radio" name="imgname" value="a13">&nbsp;
<img src="images/a14.jpg"><input type="radio" name="imgname" value="a14">&nbsp;
</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=center><INPUT type="submit" value="添加" id=submit1 name=submit1>&nbsp;&nbsp;<INPUT type="button" value="取消" onclick="javascript:window.close();"></TD>
	</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

						