📄 reviewlist.asp
字号:
<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">
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -