📄 dispmovie.asp

📁 本程序是一款比较完善的图书租赁系统
💻 ASP
字号:
<%@ codePage="936" %>
<!--#include file="CONN.ASP"-->
<!--#include file="ChkErr.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<link href="style.css" rel="stylesheet" type="text/css">
<title>影片详细资料</title>
<script language="javascript" src="JS\inc.js"></script>
</head>
<body>
<!--插入通用的Html头模板-->
<!--#include file="head.asp"-->
<%
If IsNumeric(Request("id"))=False Then
	Response.Write GetErr(11)
	Response.End
End If

strSQL="SELECT * FROM [VideoInfo],[Payment] WHERE VI_ID_N="&Request("id")&" AND VI_PMT_ID_FN=PMT_ID_N"
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
Response.Write "<table class=tableborder1 align=center  cellspacing=1 cellpadding=3 width=97% height=80% >"
Response.Write "<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=left>浏览电影：[<a href=javascript:history.go(-1)>返回</a>]</th></tr>"
Response.Write "<tr><td class=TableBody1 width=120 rowspan=3 align=cenetr><img src="&objRS("VI_Img_S")&" height=160 width=120 border=0></td>"
Response.Write "<td class=tablebody2 width=650 height=17 align=center>"&objRS("VI_Title_S")&"（ID："&objRS("VI_ID_N")&"）</td></tr>"
Response.Write "<tr><td class=TableBody1 height=71><b>内容：</b>"&objRS("VI_Content_S")&_
					"<br><br><b>导演：</b>"&objRS("VI_Director_S")&"&nbsp;&nbsp;&nbsp;<b>演员：</b>"&objRS("VI_PlayActor_S")&_
					"<br><b>发行商：</b>"&objRS("VI_Issuer_S")&"&nbsp;&nbsp;&nbsp;<b>评价：</b>"&objRS("VI_Rank_N")&_
					"<br><b>租金：</b>"&objRS("PMT_Price_N")&"元/天&nbsp;&nbsp;&nbsp;<b>押金：</b>"&objRS("PMT_Deposit_N")&"元&nbsp;&nbsp;&nbsp;<b>滞纳金：</b>"&objRS("PMT_LateFee_N")&"元/天</td></tr>"
Response.Write "<tr><td class=TableBody1 height=17 align=right>[<a href=javascript:openWindow('BookMovie.asp?id="&objRS("VI_ID_N")&"&DayToRent=1',320,120)><b>预定</b></a>]&nbsp;状态："&_
					"浏览"&objRS("VI_Count_N")&"次/出租"&objRS("VI_RentCount_N")&"次&nbsp;"
'利用Select Case判断影片的状态
Select Case objRS("VI_Status_N")
	Case 1
		Response.Write "待租"
	Case 2
		Response.Write "<i>未发行</i>"
	Case 3
		Response.Write "<b>已出租</b>"
	Case 4
		Response.Write "<font color=red>被预定</font>"
End Select		
Response.Write "</td></tr>"
'更新影片点击数
strSQL="UPDATE [VideoInfo] SET VI_Count_N="&objRS("VI_Count_N")+1&" WHERE VI_ID_N="&objRS("VI_ID_N")
objConn.Execute(strSQL)
objRS.Close
Response.Write "</table>"
%>
<!--插入通用的Html末尾-->
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

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