📄 bookmovie.asp

📁 本程序是一款比较完善的图书租赁系统
💻 ASP
字号:
<!--#include file="CONN.ASP"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
If IsEmpty(Session("UserID"))=True Then
	Response.Write GetErr(7)
	Response.End 
End If

If IsNumeric(Request("id"))=False Or Request("id")="" Or IsNumeric(Request("DayToRent"))=False Or Request("DayToRent")="" Then
	Response.Write GetErr(11)
	Response.End
End If

'用户是否是管理员
Dim IsAdmin
strSQL="SELECT UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N="&Session("UserID")
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
IsAdmin=objRS("UI_IsAdmin_B")
objRS.Close

'判断此影片是否已租出
strSQL="SELECT VI_Status_N FROM [VideoInfo] WHERE VI_ID_N="&Request("id")&" AND VI_Status_N=3"
objRS.Open strSQL,objConn,1,3
If Not objRS.BOF Or Not objRS.EOF Then
	ResultMsg("对不起！此影片已被出租！")
	Response.End
	Set objRS=Nothing
	CloseDatabase
End If
objRS.Close

'如果用户不是管理员则判断是否有超期未还的影片
If IsAdmin<>True Then
	strSQL="SELECT TAC_ID_N FROM [Tenancy] WHERE TAC_UI_ID_FN="&Session("UserID")&" AND (TAC_TimeOut_B=True AND TAC_Return_B=False)"
	objRS.Open strSQL,objConn,1,3
	If Not objRS.BOF Or Not objRS.EOF Then
		Call ResultMsg("您有超期未还的影片！请您归还影片后再做预订！")
		Response.End
		Set objRS=Nothing
		CloseDatabase
	End If
	objRS.Close
End If

If Request("IsBook")<>"" Then
	Dim tmpTime
	tmpTime=Now()
	'将用户的预订写入数据库
	strSQL="INSERT INTO [Tenancy] (TAC_VI_ID_FN,TAC_UI_ID_FN,TAC_ReserveTime_D,TAC_TimeOut_B,TAC_MsgUser_B,TAC_Return_B,TAC_StartTime_D,TAC_Lease_N,TAC_EndTime_D,TAC_UserPayment_N,TAC_Status_N)"&_
		"VALUES("&Request("id")&","&Session("UserID")&",'"&tmpTime&"',False,False,False,NULL,"&Request("DayToRent")&",NULL,0,4)"
	objConn.Execute(strSQL)
	'读取交易号号（TAC_ID_N）
	strSQL="SELECT * FROM [Tenancy] WHERE TAC_UI_ID_FN="&Session("UserID")&" AND TAC_ReserveTime_D=#"&tmpTime&"#"
	objRS.Open strSQL,objConn,1,3
	'写入影片状态
	strSQL="UPDATE [VideoInfo] SET VI_Status_N=4 WHERE VI_ID_N="&objRS("TAC_VI_ID_FN")
	objConn.Execute(strSQL)
	Response.Write "<link href=style.css rel=stylesheet type=text/css>"
	Response.Write "<br>"
	Response.Write "<p align=center><b>您的预订已成功！</b>您的预订ID为：<b><font color=red>"&objRS("TAC_ID_N")&"</font></b><br>请您带此ID前去店铺取影片！[<a href=vbscript:window.close()>关闭</a>]</p>"
	objRS.Close
	Set objRS=Nothing
	CloseDatabase
Else
	Dim MovieTitle,MovieStatus
	strSQL="SELECT * FROM [VideoInfo] WHERE VI_ID_N="&Request("id")
	Set objRS=Server.CreateObject("ADODB.RecordSet")
	objRS.Open strSQL,objConn,1,3
	If objRS("VI_Status_N")=4 Then
		MovieStatus="<p align=center><b><font color=red>此影片已被他人预定，若再预定，可能已出租。</font></b></p>"
	End If
	MovieTitle=objRS("VI_Title_S")
	objRS.Close
	Set objRS=Nothing
	CloseDatabase
%>
<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>
<form action=BookMovie.asp>
<br>
<%=MovieStatus%>
<p align=center>您是否要预订影片<b><a href=dispmovie.asp?id=<%=Request("id")%> target=_blank>《<%=MovieTitle%>》</a></b><select name=DayToRent><option>1</option><option>2</option><option>3</option></select>天
<br><input type=submit value=是>&nbsp;<input type=button value=否 onclick=vbscript:window.close()>
</p>
<input type=hidden name=id value=<%=Request("id")%>>
<input type=hidden name=IsBook value=yes>
</form>
</body>
</html>
<%End If%>
⌨️ 快捷键说明

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