?? bookcomment.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">
<script LANGUAGE="javascript">
<!--
function show_cm(commentid)
{
window.open("show_comment.asp?commentid=" + commentid,"_blank","height=450,width=350,status=no,toolbar=no,menubar=no,location=no,scrollbars=yes,top=0,left=0");
}
//-->
</script>
</head>
<body background="images/zapsmbknd.gif">
<h3>書評:</h3>
<%
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 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
b_name = rs("name")
author = rs("author")
rs.Close
set rs = nothing
%>
<p><b>書名:</b><%=b_name%></p>
<p><b>作者:</b><%=author%></p>
<%
sql = "select count(*) from grade where bookid=" & b_bookid
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
grade_count = rs(0)
rs.Close
set rs = nothing
%>
<p><b>共<font color="red"><%=grade_count%></font>人對本書打了分。</b></p>
<%
if grade_count>0 then
sql = "select avg(grade) from grade where bookid=" & b_bookid
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
grade_avg = rs(0)
rs.Close
set rs = nothing
%>
<p><b>本書的評分為<font color="red"><%=formatnumber(grade_avg,3)%></font></b></p>
<%
end if
%>
<hr>
<%
sql = "select commentid,username,imgname,title,settime from bookcomment 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
while not rs.EOF
%>
<nobr><img SRC="images/<%=rs("imgname")%>.gif" border="0"> <a href="#" onclick="show_cm(<%=rs("commentid")%>);"><%=rs("title")%> (作者:<%=rs("username")%>,發表于<%=rs("settime")%>)</a><br></nobr>
<%
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 + -