?? 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> <%=rs("Author")%> <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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -