pinglun.asp

是运行在asp环境下寻梦书库管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%
action=request("action")
if action<>"save" then
Response.Expires = 60 
bookid=request("bookid")
set Rs_t = conn.execute("select top 1 * from book where bookid="&bookid&"")
if Rs_t.eof then
    response.redirect"wrongurl.asp?url=1"
end if
conn.execute("update book set hit=hit+1 where bookid="&bookid&" ")
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Script LANGUAGE="javascript">
if(self!=top){top.location=self.location;}
</script>
<title>《<%=Rs_t("bookname")%>》评论-<%=WebTitle%></title>
<meta name="keywords" content="<%=WebTitle%>,<%=Rs_t("bookname")%>,书籍评论,寻梦船,寻梦船在线书库,文学,电子书下载>
<meta name="keywords" content="<%=Rs_t("bookname")%>">
<!--#include file="head.asp"-->

<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
  <tr><td valign=top width="160"  bgcolor=#F0F7FF>
<%
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
    if fso1.FileExists(Server.MapPath("/title/"&bookid&".jpg")) then
%><img src="title/<%=bookid%>.jpg" border=0 width=160 height=240><%else%>
        <table align=center width=160 height=240 cellpadding=0 cellspacing=0><tr>
        <td valign=top width=100% background="image/noimg.jpg">
        <span class="title"><%=Rs_t("bookname")%></span>
        <br><br>
        <p align=center>●<%=Rs_t("zuozhe")%>●</p>
        </td></tr></table>
<%end if
strn=Rs_t("strn")
strn=formatnumber(strn/1000,0,-1)%><table align="center" width="100%" border="0" height="2" bgcolor=#7BD676><tr><td align="center"></td></tr></table>
<table width="95%" border="0" align="center" cellpadding="8" cellspacing="0">
  <tr bgcolor=#F0F7FF><td>
总被点击 <b><%=Rs_t("hit")%></b> 人次<br>
推荐度：<%=encode1(Rs_t("tuijian"))%><br>
<a href=# onClick="window.external.addFavorite('http://www.xmsk.net/bookread.asp?bookid=<%=bookid%>','<%=Rs_t("zuozhe")%>-<%=Rs_t("bookname")%>')">收藏本书</a>
<a href="bookread.asp?bookid=<%=bookid%>" title="回目录">返回目录</a><br>

<br><br><br><span class="adder">本书编辑：<%=Rs_t("adder")%><br><%=Rs_t("addtim")%></span>
<%Rs_t.close
set Rs_t=nothing%>
    </td></tr></table>

</td><td valign="top" background="image/bg.jpg" bgcolor=#FFF8F0>
<br><p align=center class="article">网 友 评 论</p>

<%
sql="select * from pinglun where bookid="&bookid&" and shenhe=1 order by id desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=8
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page

if Rs.eof then
%>
<p align=center>
还没有关于本书的任何评论！<br>
欢迎成为本书的第一个评论者！</p>
<%end if

do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>

<table width=90% border=1 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>
<td colspan="2" style="word-break:break-all">

(<%=Rs("sj")%>)<B><%=Rs("name")%></b>：<br>
　　<%=encode(rs("text"))%>

</td></tr></table>

<%
Rs.movenext
loop
%>

<br><br>
<table width=90% border="1" cellspacing="0" align=center>
    <tr> 
      <td align=center><br><b>发 表 评 论</b><br>
<form method="post" action="pinglun.asp?action=save">
  <table width=90% border="1" cellspacing="0" cellpadding="2" align=center style="border-collapse: collapse" bordercolor="#C6E0C2">
    <tr> 
      <td width="72">
      您的大名：</td>
      <td> 
        <input name="name" maxlength="250" size="32" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="匿名网友"><input type="hidden" name="bookid" value="<%=bookid%>"> 
 </td>
</tr>
       <tr> 
        <td colspan=2 align=center> 
        <textarea name="text" cols="64" rows="8" style="border-style: groove; border-width: 1"></textarea>
    </td></tr><tr>
      <td colspan=2 align=center> 
　　　　<input type="submit" name="Submit" value="提　交">
        <input type="reset" name="Submit2" value="恢　复">
  </td></tr></table>
</form>
</td></tr></table>
 <br>　　　声明：网友所发言论与本站无关，不代表本站观点！<br><br>
</td></tr></table>

<table width=760 align=center border=0 bgcolor=#E1F8D8>
<tr><td align="center" style="line-height: 150%">
  <p>共<%=page%>/<%=Rs.pagecount%>页 跳到第
      <% for go=1 to Rs.pagecount
%>
      <a href=pinglun.asp?bookid=<%=bookid%>&page=<%=go%>><%=go%></a>
      <%next%>
      页&nbsp;
      <% if page=1 then %> 
      <%else%>
      <a href=pinglun.asp?bookid=<%=bookid%>&page=<%=page-1%>>上一页</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount-page <> 0 then %>
      <a href=pinglun.asp?bookid=<%=bookid%>&page=<%=page+1%>>下一页</a>&nbsp;
      <%else%> 
      <%end if%>
  </td></tr></table>
<%Rs.close
set conn=nothing
%>
<!--#include file="foot.asp"-->
<%else

bookid=request("bookid")
name=request("name")
text=request("text")
if len(name)=0 then response.redirect("error.asp?word=请输入您的大名！")
if len(text)=0 then response.redirect("error.asp?word=请输入的评论内容！")

ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip = ""  then
	ip=Request.ServerVariables("remote_addr")
end if
if instr(ip,"'")>0 then
	ip="0.0.0.0"
end if

set rs_s=server.createobject("adodb.recordset")
sql_s="select * from pinglun"
rs_s.open sql_s,conn,3,3
rs_s.addnew
rs_s("sj")=now()
rs_s("bookid")=server.htmlencode(bookid)
rs_s("name")=server.htmlencode(name)
rs_s("text")=server.htmlencode(text)
rs_s("ip")=server.htmlencode(ip)
rs_s.update
rs_s.close
set rs_s=nothing
Rs1.close
%>

<script>alert( '评论发表成功！\n请等待管理员审核。\n感谢您对本站的支持！' );</script>
<meta http-equiv="refresh" content="0;URL=http://xmsk.net/pinglun.asp?bookid=<%=bookid%>">
<%end if%>