reviewlist.asp

来自「movie review asp code」· ASP 代码 · 共 73 行

ASP
73 行
字号 
<HEAD>
<title>Review</title>
<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("/db/moviereview.mdb") & ";"
objConn.Open
dim damoviename
damoviename = request("moviename")

DIM mySQL
mySQL = "SELECT * FROM review"

DIM objRS 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

Dim link
link="review_display.asp?ID="
%>
<base target="_self">
<style>
A:link { color:#000000; text-decoration:none }
A:visited { color:#000000; text-decoration:none }
A:hover { color:#FF0000; text-decoration:underline }
</style>
</HEAD>
<body bgcolor="#000000" text="#000000" link="#000000" vlink="#000000">
<p align="center"><b><font size="4" color="#6699FF">
FILM REVIEWS</font><br>
<font size="2" color="#00FF00">By Tyson Atkins</font></b>

<p align="center">&nbsp;

<div align="center">
  <center>
  <table border="1" width="30%" cellspacing="0" cellpadding="0" bordercolor="#0033CC">
    <tr>
      <td width="67%" align="center" bgcolor="#0033CC"><font color="#FFFFFF"><b>MOVIE
        NAME</b></font></td>
      <td width="33%" align="center" bgcolor="#0033CC"><font color="#FFFFFF"><b>RATING</b></font></td>
    </tr>
    <% DO WHILE NOT objRS.EOF %>
    <tr>
      <td width="67%" align="center" bgcolor="#6699FF"><% response.write("<a href='" & link & objRS("ID") & "'>" & objRS("Moviename") & "</a>") %></td>
      <td width="33%" align="center" bgcolor="#6699FF"><% response.write objRS("Rating") %></td>
    </tr>
    <%
objRS.MoveNext
Loop
%>
  </table>
  </center>
</div>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>

reviewlist.asp - 源码说明

本页面展示了「movie review asp code」中的 reviewlist.asp 源码文件，采用 ASP 编程语言编写，共 73 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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