www.gusucode.com > 书生图片管理Asp源码程序 > code/review.asp
<%@ Language=VBScript %>
<!--#include file="articleconn.asp"-->
<%
dim sql
dim rs
dim listname
dim typename
typename="书生图吧"
set rs=server.createobject("adodb.recordset")
sql="select review,title,reviewcount from learning where articleid="&request("id")
rs.open sql,conn,1,1
%>
<HTML>
<HEAD><title>评论：<%=rs("title")%></title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="css/style.css">
</HEAD>
<body topmargin="0" leftmargin="5" bgcolor="#FFFFFF">
<div align="center"><!--#include file="guang.asp"--><br>
</div>
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
<td bgcolor="#CCCCCC" background="IMAGES/mmto.gif"><div align="center"><font color="#000000"> <%=rs("title")%> 的相关评论文章共：<%=rs("reviewcount")%>
篇</font></div>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><a href="openarticle.asp?ID=<%=request("id")%>">返 回</a></td>
<td width="50%">
<div align="right"><a href="addreview.asp?ID=<%=request("id")%>">发表评论</a>
</div>
</td>
</tr>
</table>
<%if rs("review")<>"" then
Response.Write rs("review")%> <%else Response.Write "<br><p align=center>当前没有评论</p>"
end if%> <br>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><a href="openarticle.asp?ID=<%=request("id")%>">返 回</a></td>
<td width="50%">
<div align="right"><a href="addreview.asp?ID=<%=request("id")%>">发表评论</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="IMAGES/bian.gif" width="500" height="13"></td>
</tr>
</table>
<div align="center"><!--#include file="guangs.asp" -->
</div>
</BODY>
</HTML>