📄 review_display.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("ID")
DIM mySQL
mySQL = "SELECT * FROM review"
mySQL = mySQL & " WHERE ID=" & damoviename
DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
%>
<base target="_self">
<style>
A:link { color:#6699FF; text-decoration:none }
A:visited { color:#6699FF; text-decoration:none }
A:hover { color:#FF0000; text-decoration:underline }
</style>
</HEAD>
<body bgcolor="#000000" text="#6699FF" link="#000000">
<p align="center"><b><font size="4">REVIEW OF <% response.write objRS("MovieName") %> -
<% response.write objRS("Rating") %></font></b></p>
<table border="1" width="100%" bordercolor="#0033CC" cellspacing="0" cellpadding="0" height="42">
<tr>
<td width="100%" bgcolor="#6699FF" colspan="3" height="19">
<p align="left"><b><font color="#000000">Review by: <% response.write objRS("WrittenBy")%> on the <% response.write objRS("DateWritten") %></font></b></td>
</tr>
<tr>
<td width="23%" bgcolor="#6699FF" height="19" valign="top">
<p align="center"><font color="#000000"><img src=<% response.write objRS("Image") %> alt="The Image"></img></font></td>
<td width="59%" height="19"><% response.write objRS("Review")%></td>
<td width="18%" height="19" valign="top">
<p align="center"><font size="2"><b><a href="<%response.write objRS("OfficialSite")%>" target="_blank">VISIT OFFICIAL SITE</a></b></font></p>
<p align="center"><font size="2"><b><a href="<%response.write objRS("trailer")%>">VIEW TRAILER</a></b></font></p>
</td>
</tr>
</table>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -