📄 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 + -