📄 pinglun.asp
字号:
<!--#include file="include/dbopenbd.asp"-->
<%
set rs=conn.execute("select * from s_setup")
pages=clng(rs("pages1")) '每页评论数
jianju=clng(rs("book_jianju")) '间距
bad=cstr(rs("bad")) '脏话过滤
view=cstr(rs("view1")) '评论是否需要审核
mailyes=clng(rs("mailyes1")) '是否必填邮箱
prodid=trim(request("prodid"))
name=trim(request.form("name"))
mail=trim(request.form("mail"))
nr=trim(request.form("nr"))
jibie=trim(request.form("jibie"))
%>
<html><head><title>商品评论-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</head>
<center>
<!--#include file="a_top.asp"-->
<TABLE width=760 border=0 cellpadding=0 cellspacing=0 align=center bgcolor=#ffffff class="grayline">
<TR><td bgcolor="FFFBF7" align="center" valign="top" width="185">
<!--#include file="a_login.asp"-->
<!--#include file="a_tree.asp"-->
</TD>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" align="center" bgcolor="#F7FAFD">
<TABLE border=0 width="570" cellspacing="2" cellpadding="2" align=center style="table-layout:fixed;word-break:break-all">
<tr><td height=30>目前位置：<a href=main.asp>首页</a> >
<%
set rs=conn.execute("select ProdName from s_produc where prodid='"&prodid&"'")
if not (rs.eof and rs.bof) then response.write "<a href=list.asp?prodid="&prodid&">商品【"&rs("ProdName")&"】</a> > 评论浏览"
%>
</td></tr>
<tr><td width="570" align="center" height="1" background="images/small/bgline.gif"></td></tr>
<tr><td width="570">
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from s_pinglun where prodid='"&prodid&"' and status='1' order by AddDate desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<br>暂时没有用户对此商品提交评论。<br><br>"
else
rs.pageSize = pages '每页记录数
allPages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页
'if是基本的出错处理
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page '转到某页头部
do while not rs.eof and pages>0
%>
<table cellSpacing=1 cellPadding=0 width=560 bgColor=#CCCCCC border=0 style="table-layout:fixed;word-break:break-all" align="center">
<tr><td>
<table cellSpacing=3 cellPadding=3 width=100% align=center bgColor=#F7FAFD border=0 onMouseOver="bgColor='#ebebeb'" onMouseOut="bgColor='#F7FAFD'">
<%
response.write "<tr><td width=33% >姓名："&rs("name")&"<td widht=33% ><a href='mailto:"&rs("mail")&"'><img border=0 src=images/small/e-mail.gif></a></td><td width=33% align=right>"&rs("IP")&" </td></tr>"
response.write "<tr><td>时间："&rs("adddate")&"</td><td> </td><td align=right>"
for j=1 to rs("jibie")
response.write "<font color=orange>☆</font>"
next
nr=rs("nr") '内容
bad1=split(bad,"/") '过滤脏话
for t=0 to ubound(bad1)
nr=replace(nr,bad1(t),"***")
next
response.write " </td></tr><tr><td colspan=3><font color=darkgray><span style='line-height=100%'>"&replace(server.htmlencode(nr),vbCRLF,"<BR>")&"</span></font></td></tr></table></td></tr></table>"
response.write "<table border=0 height='"&jianju&"'><tr><td></td></tr></table>"
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
end if
response.write "<br>总计"&RS.RecordCount&"条评论 "
conn.close
set conn=nothing
'翻页函数
mPage "pinglun.asp?prodid="&prodid,page,allpages
%>
</td></tr>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="a_bottom.asp"-->
</center>
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -