📄 review.asp

📁 实现一定上传功能

💻 ASP

字号:

<!--#include file="articleconn.asp"-->
<%
dim sql
dim rs
title=request("title")
set rs=server.createobject("adodb.recordset")
rs.open "select * from article where title='" & title & "'",conn,1
%>
<HTML>
<HEAD><title>天荣现代农业—新闻系统—评论：<%=rs("title")%></title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="style.css">
</HEAD>
<body topmargin="0" leftmargin="5" bgcolor="#FFFFFF" marginwidth="0" marginheight="0">
<br>
<table width="80%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
  <tr bgcolor="#304D7C">
    <td height="2"> 
      <div align="center"><font color="#FFFFFF"> <%=rs("title")%> &nbsp;&nbsp;的相关评论文章</font></div>
  <tr bgcolor="#F7F7F7"> 
    <td> <%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 bgcolor="#F7F7F7"> 
          <td width="50%">&nbsp;</td>
          <td width="50%"> 
            <div align="right"><a href="addreview.asp?ID=<%=request("title")%>">发表评论</a> 
              - <a href="">返回首页</a> </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -