📄 review.asp
字号:
<%@ Language=VBScript %>
<!--#include file="mdb.asp"-->
<%
dim sql,rs
dim temp
dim i
sql="select * from soft where soft_id="&request.querystring("soft_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML>
<HEAD><title>评论：<%=rs("soft_name")%></title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="INC/style.css">
</HEAD>
<body topmargin="0" leftmargin="5" bgcolor="#FFFFFF" marginwidth="0" marginheight="0">
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#a6d3ec">
<tr>
<td height="3"></td>
</tr>
<tr>
<td bgcolor="#58acda" align="center"><font color="#000000"> <font color="#FFFFFF"><b><%=rs("soft_name")%>
的相关评论文章共：<%=rs("reviewcount")%> 篇</b></font></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><a href="javascript:self.close()">[关闭窗口]</a></td>
<td width="50%">
<div align="right"><a href="addreview.asp?ID=<%=request("soft_id")%>">[发表评论]</a>
</div>
</td>
</tr>
</table>
<div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#fcfafe" >
<%if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)%>
<tr><td style="display:block;padding:0px 10px;LINE-HEIGHT: 180%"><%=temp(i)%><hr size=1 noshade></td></tr>
<%
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<DIV>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><a href="javascript:self.close()">[关闭窗口]</a></td>
<td width="50%">
<div align="right"><a href="addreview.asp?ID=<%=request("soft_id")%>">[发表评论]</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -