📄 review.asp

📁 这是一个文章管理的网页源程序

💻 ASP

字号:

<!--#include file="ie586top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
dim sql
dim rs
dim listname
dim typename
typename="120医学经典"
set rs=server.createobject("adodb.recordset")
sql="select review,title,reviewcount from article 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" href="Style.css" type="text/css">
</HEAD>
<body leftmargin="5" topmargin="5" marginwidth="5" marginheight="5" >
<br>
<table cellspacing="0" cellpadding="2" border="1" width="100%" bordercolorlight="#999999" bordercolordark="#FFFFFF" align="center">
  <tr bgcolor="#ecf0ef" align="center"> 
    <td colspan="2"><b><font color="#000080">文 章 评 论</font></b></td>
  </tr>
  <tr> 
    <td width="80%">评论：<%=rs("title")%> </td>
    <td align="center"><a href="addreview.asp?ID=<%=request("id")%>">发表评论</a></td>
  <tr> 
    <td colspan="2">相关评论文章共：<font face="arial"><%=rs("reviewcount")%></font> 篇</td>
  
</table>
<%if rs("review")<>"" then
      Response.Write  rs("review")%>
<%else Response.Write "<br><p align=center>当前没有评论</p>"
  end if%>



<table width="100%" align="center" cellpadding="2" border="1" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF">
  <tr bgcolor="#ecf0ef"> 
    <td width="80%" > <a href="list.asp?ID=<%=request("id")%>">返 
      回</a>　</td>
    <td align="center"><a href="addreview.asp?ID=<%=request("id")%>">发表评论</a> 
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -