📄 review.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 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>
<style type="text/css">
<!--
a:link    { text-decoration:none; color:#ff0099;}
a:visited { text-decoration:none; color:#ff0099;}
a:hover   { text-decoration:none; color:#0099FF;}
a:active  { text-decoration:none; color:#FF9900;}
A.a01:link {text-decoration:none; color:#000000;}
A.a01:visited {text-decoration:none; color:#000000;}
A.a01:hover {text-decoration:underline; color:#ff0099;}
A.a01:active {text-decoration:none; color:#ff9900;}
A.a03:link {text-decoration:underline; color:#ff0000;}
A.a03:visited {text-decoration:underline; color:#ff0000;}
A.a03:hover {text-decoration:none; color:#ff0099;}
A.a03:active {text-decoration:none; color:#ff9900;}
table,body {  font-family: "宋体"; font-size: 9pt;}
TD {
	FONT-SIZE: 9pt ; COLOR: #FF6699; LINE-HEIGHT: 14pt
}
-->
</style>
</HEAD>
<body topmargin="0" bgcolor="#666666">
<table width="520" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td bgcolor="#FF99CC" align="center" height="5"></td>
  </tr>
  <tr>
    <td bgcolor="#FF99CC" align="center">
      <table width="500" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
        <tr> 
          <td valign="top" height="28" background="../images/bg2.gif"><img src="../images/tl.gif" width="12" height="12"> 
          <td height="28" background="../images/bg2.gif" align="center"> <font color="#000000"> 
            <%=rs("title")%> &nbsp;&nbsp;的相关评论文章共: <font color=red><b><%=rs("reviewcount")%></b></font> 
            篇</font> 
          <td align="right" height="28" valign="top" background="../images/bg2.gif"><img src="../images/tr.gif" width="12" height="12"> 
        <tr> 
          <td colspan="3" height="1" background="../images/hline.gif"></td>
        </tr>
        <tr> 
          <td colspan="3"> 
            <table width="95%" border="0" cellspacing="4" cellpadding="0" align="center">
              <tr> 
                <td align="right"> <a href="addreview.asp?ID=<%=request("id")%>">发表评论</a> 
                  ┊ <a href="openarticle.asp?ID=<%=request("id")%>">返 回</a></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="6" cellpadding="0">
              <tr> 
                <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
%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td valign="bottom"><img src="../images/lb.gif" width="12" height="12"></td>
          <td>&nbsp;</td>
          <td valign="bottom" align="right"><img src="../images/rb.gif" width="12" height="12"></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FF99CC" align="center" height="5">&nbsp;</td>
  </tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -