教育系统应用

开发平台：

Delphi

bookmark.asp：源码内容

							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<% Response.Expires = 0 %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
</head>
<body background=images/zapsmbknd.gif>
<h3>我的书签</h3><hr>
<%
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	
	sql = "select a.markid,a.imgname,a.settime,a.bookid,b.name,b.Author,b.times,a.detail from bookmark a,BookDetail b where a.bookid = b.bookid and a.username = '" & session("username") & "'"
	
	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
	while not rs.EOF
%>
<nobr><a href="readbook.asp?bookid=<%=rs("bookid")%>" title="作者：<%=rs("Author")%>" target="xbody"><img SRC="images/<%=rs("imgname")%>.jpg" border="0"><%=rs("name")%>(<%=rs("times")%>)</a> &nbsp;<%=rs("Author")%> &nbsp;<a href="del_bookmark.asp?markid=<%=rs("markid")%>">删除</a></nobr>
<pre><b>设置时间：</b><%=year(rs("settime"))%>年<%=month(rs("settime"))%>月<%=day(rs("settime"))%>日
<b>描述：</b>
  <%=rs("detail")%></pre><hr>
<%
		rs.MoveNext
	wend
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>
</table>
</body>
</html>

						