📄 review.asp

📁 教育管理系统

💻 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="#555555" marginwidth="0" marginheight="0">
<br>
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
  <tr bgcolor="#333333"> 
    <td> 
      <div align="center"><font color="#000000"> <%=rs("title")%> &nbsp;&nbsp;</font>的相关评论文章共：<%=rs("reviewcount")%> 
        篇</div>
<tr>
    <td>
      <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("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="javascript:self.close()">『关闭窗口』</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>&nbsp;</td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -