📄 review.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

💻 ASP

字号:

<%@ Language=VBScript %>
<!--#include file="articleconn.asp"-->
<!--#include file="const.asp"-->
<%
dim sql
dim rs
title=request("title")
set rs=server.createobject("adodb.recordset")
rs.open "select * from article where newsid="&request("id"),conn,1
%>
<HTML>
<HEAD><title>您对《<%=rs("title")%>》的评论</title>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
 -->
</style>

<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</HEAD>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
    <td class="p1" align="center" height="8"> 
      <table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
        <tr> 
          <td  class="f"  >&nbsp;您的位置&gt;&gt;<a href="default.asp"><%=fly_user%></a>&gt;&gt;<A 
      href="flymore.asp?ttt=<%=rs("typeid")%>&sss=<%=rs("typename")%>"><%=rs("typename")%></a>&gt;&gt;<%=rs("title")%>的评论</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="762" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000" align="center">
  <tr> 
    <td bgcolor="#FFFFFF" class="p" height="24" align="center" background="images/image.jpg"> 
      <table width="600" border="0">

        <tr> 
          <td  class="f" ><font color=red>《<%=rs("title")%>》</font><font color="#FFFFFF">&nbsp;&nbsp;</font>的相关评论文章    
            共：<%=rs("reviewcount")%>篇</td>
        </tr>
        <TR> 
          <TD background=images/line.gif
                height=1  colspan="5" ></TD>
        </TR>
      </table>
      <table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td class="f" valign="top"> 
            <%if rs("review")<>"" then
      Response.Write  rs("review")%>
            <%else Response.Write "<br><p align=center>当前没有评论</p>"
  end if%>
          </td>
        </tr>
      </table>

    </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" class="p" height="25" align="center"><table width="700" border="0">

        <tr> 
          <td><img src="images/liuyan.gif" width="83" height="17"></td>
        </tr>
		        <TR> 
          <TD background=images/line.gif
                height=1  colspan="5" ></TD>
        </TR>
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width="700"  class="f" border=0 bgcolor="#C0C0C0">
        <TBODY> 
        <form action="savereview.asp?id=<%=request("id")%>" method="POST" name="form">
          <TR> 
            <TD width="5%">&nbsp;</TD>
            <TD><br>
              网上大名：    
              <INPUT   type="text"  name="reviewname"  style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000000; border: 1 solid #000000">
              <BR>
              <BR>
              评论主题：    
              <INPUT type="text" name="title" style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000000; border: 1 solid #000000" value="评论

:<%=rs("title")%>">
              <BR>
              <BR>
              您的评论：    
              <TEXTAREA class=font name="review" rows=8 cols=60></TEXTAREA>
            </TD>
          </TR>
          <TR> 
            <TD width="5%">&nbsp;</TD>
            <TD> 
              <DIV align=center> 
                <INPUT  type=submit value=.::发表评论::. name=Submit  style="font-family: 宋体; font-size: 9pt; color: #000000;  border: 1 solid #000000">
              </DIV>
            </TD>
          </TR>
          <tr> 
            <td height="10"></td>
          </tr>
        </FORM>
        </TBODY> 
      </TABLE>
            <br></td>
  </tr>
</table>
<!--#include file="mai.htm"-->

</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -