📄 reviews.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<%Dim filmID,reviewRS,pagestart,yeshu_all,i
filmID=Trim(Request("id"))
pagestart=Trim(Request("qsy"))
set reviewRS=server.createobject("adodb.recordset")
reviewRS.open "select * from filmReview where movieID="&filmID&" ORDER BY reviewAddDay DESC",conn,1,1
if reviewRS.bof and reviewRS.eof then
reviewRS.close
set reviewRS=nothing
response.End
end if
yeshu_all=(reviewRS.recordcount+2)/4
yeshu_all=cint(yeshu_all)
zjls=reviewRS.recordcount%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>--网友评论</title>
<LINK href="style/style.css" rel=stylesheet type=text/css>
</head>
<body oncontextmenu=self.event.returnValue=false onselectstart="return false">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td colspan="2" align="CENTER"> <%reviewRS.absoluteposition=pagestart*4-3
i=pagestart*4-3
do while (not reviewRS.eof) And i<=pagestart*4
response.write "<table width=100% cellpadding=3 cellspacing=0><tr><td colspan='2' bgcolor='#F2F2F2'> <img src=style/paihang.gif align='absmiddle'> 主题：<a href='####' "&_
"onClick=javascript:window.open('xx_pinglun.asp?id="&trim(reviewRS("ID"))&"','rewiews','width=500,height=310,scrollbars');return false;"
response.write" ><font color=0000FF>"
response.write trim(reviewRS("reviewName"))&"</font></a> 作者："&trim(reviewRS("userName"))&" （"
response.write trim(reviewRS("reviewAddDay"))&"）</td></tr><tr><td colspan='2' align='center' height='2' background='images/bgline.gif' width='80%'></td></tr>"
response.write"<tr><td width=6% bgcolor=FFFFFF> </td><td width='94%'>评论内容： "
response.write left(trim(reviewRS("reviewCont")),150)&"</td></tr></table><hr align='center' size='2' noshade width='100%'>"
i=i+1
reviewRS.movenext
loop
reviewRS.close
set reviewRS=nothing%> </td>
</tr>
<tr>
<td colspan="2" align="center"> <table width="100%" height="10" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr><form action=reviews.asp? method="post" name="tiaozhuan" target="_self">
<td align="center"><%=pagestart%>/<font color="#FF0000"><%=yeshu_all%></font>页 共有<font color="#FF0000"><%=zjls%></font>条评论 <%
if pagestart>1 then
pagestart=pagestart-1
response.write "<a href=reviews.asp?id="&filmID&"&qsy=1 target=_self>首页</a> <a href=reviews.asp?id="&filmID&"&qsy="&pagestart&" target=_self>上一页</a>"
else
pagestart=pagestart-1
response.write "首页 上一页"
end if%>
<%pagestart=pagestart+1
if pagestart<yeshu_all then
pagestart=pagestart+1
response.write "<a href=reviews.asp?id="&filmID&"&qsy="&pagestart&" target=_self>下一页</a> <a href=reviews.asp?id="&filmID&"&qsy="&yeshu_all&" target=_self>尾页</a>"
else
response.write "下一页 尾页"
end if%>
<input name="id" type=hidden class=text value=<%=filmID%>>
<input style="font-size:11px" value="页码" type=text name="qsy" size=3 class=yema onFocus="this.value=''">
<input style="font-size:11px" name="submit" type=submit class=button value="确定" >
</td>
</form>
<script language="VBScript" type="text/VBScript">
function tiaozhuan_onSubmit()
dim shuru
shuru=document.tiaozhuan.qsy.value
if isNumeric(shuru) then
if shuru><%=yeshu_all%> OR shuru<0 then
alert"对不起，您的输入页码不存在！"
tiaozhuan_onSubmit=false
document.tiaozhuan.qsy.focus()
end if
else
alert"对不起，您的输入有误！"
tiaozhuan_onSubmit=false
document.tiaozhuan.qsy.focus()
end if
end function
</script>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -