re.ASP
上传用户:qyswxdl
上传日期:2013-06-01
资源大小:1373k
文件大小:2k
源码类别:

家庭/个人应用

开发平台:

ASP/ASPX

  1. <%@ Language=VBScript %>
  2. <!--#include file="articleconn.asp"-->
  3. <%
  4. dim sql
  5. dim rs
  6. dim listname
  7. dim typename
  8. typename="天空网络"
  9. set rs=server.createobject("adodb.recordset")
  10. sql="select review,title,reviewcount from learning where articleid="&clng(request("id"))
  11. rs.open sql,conn,1,1
  12. %>
  13. <html>
  14. <head>
  15. <title>评论:<%=rs("title")%></title>
  16. <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  17. <meta name="ProgId" content="FrontPage.Editor.Document">
  18. <link rel="stylesheet" type="text/css" href="css/css.css">
  19. <SCRIPT language=javascript>
  20. <!--
  21. var state=0
  22. window.resizeTo(600,570);
  23. window.moveTo((screen.width-600)/2, (screen.height-600)/2);
  24. //-->
  25. </SCRIPT>
  26. </head>
  27. <body topmargin="0" leftmargin="5" bgcolor="#ffffff">
  28. <div align="center">
  29.   <div align="center">
  30.     <center>
  31.     <table border="0" cellpadding="0" cellspacing="0" width="560">
  32.       <tr>
  33.         <td width="100%" bgcolor="#000000">
  34.         <div align="center">
  35.           <table width="100%" height="75" border="1" cellpadding="0" cellspacing="0" bordercolor="f2f2f2">
  36.             <tr>
  37.               <td bgcolor="#ffffff" height="30">
  38.               <div align="center">
  39.                 <font color=000000><b>以下是影片《<%=rs("title")%>》的评论内容</b> 
  40.               </div>
  41.               </td>
  42.             </tr>
  43.             <tr>
  44.               <td bgcolor="#fffffff" height="47">
  45.               <table width="100%" border="0" cellspacing="0" cellpadding="0" height="2">
  46.                 <tr>
  47.                   <td width="100%" bgcolor="#ffffff" height="2">
  48.                   <div align="center">
  49.                     <br><p align="center"><a href=addre.asp?ID=<%=clng(request("id"))%>><u>既然你来了就点这儿发表一下吧</u></a>
  50.                   </div>
  51.                   </td>
  52.                 </tr>
  53.               </table>
  54.               <%if rs("review")<>"" then 
  55.       Response.Write  rs("review")%>
  56.               <%else Response.Write "<br><p align=center>该片目前没有任何评论</p>" 
  57.   end if%>
  58.               <p><br>
  59.               <% 
  60. rs.close 
  61. set rs=nothing 
  62. conn.close 
  63. set conn=nothing 
  64.                   %> </td>
  65.             </tr>
  66.           </table>
  67.         </div>
  68.         </td>
  69.       </tr>
  70.     </table>
  71.     </center>
  72.   </div>
  73. </div>
  74. <div align="center">
  75. </div>
  76. </body>
  77. </html>
  78. </body>
  79. </html>