modifymovie.asp

本程序是一款比较完善的图书租赁系统

<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<!--#include file="ChkSQL.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
'判断输入是否合法
If IsNumeric(Request("id"))=False Or Request("id")="" Then
	Response.Write GetErr(1)
	Response.End
End If

'判断影片是否存在
Dim strSQL,objRS
strSQL="SELECT VI_ID_N FROM [VideoInfo] WHERE VI_ID_N="&Request("id")
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
If objRS.BOF Or objRS.EOF Then
	ResultMsg("对不起，您所要修改的影片不存在或已被删除！")
	objRS.Close
	Set objRS=Nothing
	CloseDatabase
	Response.End
End If
objRS.Close

If Request("IsModify")<>"" Then
	'判断输入是否合法
	If Request("MovieTitle")="" Or Request("MovieRank")="" Or Request("Provider")="" Or Request("MovieStyle")="" Or Request("MovieType")="" Or Request("Payment")="" Then
		ResultMsg("必要的信息没有填写，请返回重新填写！")
		Response.End
	End If
	Dim tmpMovieTitle
	For i=1 To Len(Request("MovieTitle"))
		tmpMovieTitle=tmpMovieTitle&" "
	Next
	If tmpMovieTitle=Request("MovieTitle") Then
		ResultMsg("请不要以空格填写必要信息，请返回重新填写！")
		Response.End
	End If
	If IsNumeric(Request("MovieRank"))=False Or IsNumeric(Request("Provider"))=False Or IsNumeric(Request("MovieStyle"))=False Or IsNumeric(Request("MovieType"))=False Or IsNumeric(Request("Payment"))=False Then
		Response.Write GetErr(1)
		Response.End
	End If
	If Len(Request("MovieTitle"))>50 Or Len(Request("Director"))>100 Or Len(Request("Playactor"))>100 Or Len(Request("Issuer"))>200 Or Len(Request("MovieImg"))>150 Then
		ResultMsg("输入的字符超过了数量限制，请返回重新填写！")
		Response.End
	End If
	If IsNumeric(Request("MovieStatus"))=False Or (Request("MovieStatus")<>1 And Request("MovieStatus")<>2 And Request("MovieStatus")<>3 And Request("MovieStatus")<>4) Then
		Response.Write GetErr(1)
		Response.End
	End If
	
	'将影片信息写入数据库
	strSQL="UPDATE [VideoInfo] SET VI_TI_ID_FN="&Request("MovieType")&",VI_VS_ID_FN="&Request("MovieStyle")&",VI_PMT_ID_FN="&Request("Payment")&",VI_PI_ID_FN="&Request("Provider")&_
		",VI_Title_S='"&Request("MovieTitle")&"',VI_Content_S='"&Request("MovieContent")&"',VI_Director_S='"&Request("Director")&"',VI_PlayActor_S='"&Request("Playactor")&"',VI_Issuer_S='"&Request("Issuer")&_
		"',VI_Rank_N="&Request("MovieRank")&",VI_Img_S='"&Request("MovieImg")&"',VI_Status_N="&Request("MovieStatus")&" WHERE VI_ID_N="&Request("id")
	objConn.Execute(strSQL)
	'输出信息
	Response.Write "<br><br><br><br><br>"
	ResultMsg("影片信息修改成功！")
	CloseDatabase
Else
	Dim MovieTitle,MovieContent
	Dim Director,Playactor,Issuer
	Dim MovieRank,MovieImg,MovieStatus
	Dim Provider,PI_ID,MovieType,TI_ID,MovieStyle,VS_ID
	Dim Payment,PMT_ID
	
	'获取影片信息
	strSQL="SELECT * FROM [VideoInfo] WHERE VI_ID_N="&Request("id")
	objRS.Open strSQL,objConn,1,3
	MovieTitle="<input type=text name='MovieTitle' maxlength=50 size=120 value="&objRS("VI_Title_S")&">"
	MovieContent="<textarea name=MovieContent cols=120 rows=5>"&objRS("VI_Content_S")&"</textarea>"
	Director="<input type=text name='Director' maxlength=100 size=120 value="&objRS("VI_Director_S")&">"
	Playactor="<input type=text name='Playactor' maxlength=100 size=120 value="&objRS("VI_PlayActor_S")&">"
	Issuer="<input type=text name='Issuer' maxlength=200 size=120 value="&objRS("VI_Issuer_S")&">"
	MovieRank="<select name=MovieRank>"
		For i=1 To 5
			If i=objRS("VI_Rank_N")Then
				MovieRank=MovieRank&"<option selected>"&i&"</option>"
			Else
				MovieRank=MovieRank&"<option>"&i&"</option>"
			End If
		Next
	MovieRank=MovieRank&"</select>"
	MovieImg="<input type=text name=MovieImg maxlength=150 size=120 value="&objRS("VI_Img_S")&">"
	MovieStatus="<select name=MovieStatus><option>1</option><option>2</option><option>3</option><option>4</option>"
	MovieStatus=MovieStatus&"<option selected>"&objRS("VI_Status_N")&"</option></select>"
	PI_ID=objRS("VI_PI_ID_FN")
	TI_ID=objRS("VI_TI_ID_FN")
	VS_ID=objRS("VI_VS_ID_FN")
	PMT_IDt=objRS("VI_PMT_ID_FN")
	objRS.Close
	'介质信息
	strSQL="SELECT * FROM [TypeInfo]"
	objRS.Open strSQL,objConn,1,3
	MovieType="<select name=MovieType>"
	For i=1 To objRS.RecordCount
		If objRS("TI_ID_N")=TI_ID Then
			MovieType=MovieType&"<option value="&objRS("TI_ID_N")&" selected>"&objRS("TI_Description_S")&"</option>"
		Else
			MovieType=MovieType&"<option value="&objRS("TI_ID_N")&">"&objRS("TI_Description_S")&"</option>"
		End If
		objRS.MoveNext
	Next
	objRS.Close
	MovieType=MovieType&"</select>"
	'供应商信息
	strSQL="SELECT * FROM [ProviderInfo]"
	objRS.Open strSQL,objConn,1,3
	Provider="<select name=Provider>"
	For i=1 To objRS.RecordCount
		If objRS("PI_ID_N")=PI_ID Then
			Provider=Provider&"<option value="&objRS("PI_ID_N")&" selected>"&objRS("PI_Name_S")&"</option>"
		Else
			Provider=Provider&"<option value="&objRS("PI_ID_N")&">"&objRS("PI_Name_S")&"</option>"
		End If
		objRS.MoveNext
	Next
	objRS.Close
	Provider=Provider&"</select>"
	'影片类型
	strSQL="SELECT * FROM [VideoStyle]"
	objRS.Open strSQL,objConn,1,3
	MovieStyle="<select name=MovieStyle>"
	For i=1 To objRS.RecordCount
		If objRS("VS_ID_N")=VS_ID Then
			MovieStyle=MovieStyle&"<option value="&objRS("VS_ID_N")&" selected>"&objRS("VS_Description_S")&"</option>"
		Else
			MovieStyle=MovieStyle&"<option value="&objRS("VS_ID_N")&">"&objRS("VS_Description_S")&"</option>"
		End If
		objRS.MoveNext
	Next
	objRS.Close
	MovieStyle=MovieStyle&"</select>"
	'租价方案
	strSQL="SELECT * FROM [Payment]"
	objRS.Open strSQL,objConn,1,3
	Payment="<select name=Payment>"
	For i=1 To objRS.RecordCount
		If objRS("PMT_ID_N")=PMT_ID Then
			Payment=Payment&"<option value="&objRS("PMT_ID_N")&" selected>"&objRS("PMT_Description_S")&"：租价"&objRS("PMT_Price_N")&"元/天；押金"&objRS("PMT_Deposit_N")&"元；滞纳金"&objRS("PMT_LateFee_N")&"元/天</option>"
		Else
			Payment=Payment&"<option value="&objRS("PMT_ID_N")&">"&objRS("PMT_Description_S")&"：租价"&objRS("PMT_Price_N")&"元/天；押金"&objRS("PMT_Deposit_N")&"元；滞纳金"&objRS("PMT_LateFee_N")&"元/天</option>"
		End If
		objRS.MoveNext
	Next
	objRS.Close
	Payment=Payment&"</select>"
%>
<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="modifyMovie.asp" method=post>
<table class=tableborder1 align=center  cellspacing=1 cellpadding=3 width=90% height=100% >
<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center>影片信息</th></tr>
<tr><td class=TableBody2 align=right width=15%>影片名称：<br>（50字以内）</td><td class=TableBody1 align=left><%=MovieTitle%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片内容：</td><td class=TableBody1 align=left><%=MovieContent%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片导演：<br>（100字以内）</td><td class=TableBody1 align=left><%=Director%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片演员：<br>（100字以内）</td><td class=TableBody1 align=left><%=Playactor%></td></tr>
<tr><td class=TableBody2 align=right width=15%>发行商：<br>（200字以内）</td><td class=TableBody1 align=left><%=Issuer%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片评级：</td><td class=TableBody1 align=left><%=MovieRank%></td></tr>
<tr><td class=TableBody2 align=right width=15%>图片地址：<br>（150字以内）</td><td class=TableBody1 align=left><%=MovieImg%></td></tr>
<tr><td class=TableBody2 align=right width=15%>供应商：</td><td class=TableBody1 align=left><%=Provider%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片类型：</td><td class=TableBody1 align=left><%=MovieStyle%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片介质：</td><td class=TableBody1 align=left><%=MovieType%></td></tr>
<tr><td class=TableBody2 align=right width=15%>租价方案：</td><td class=TableBody1 align=left><%=Payment%></td></tr>
<tr><td class=TableBody2 align=right width=15%>影片状态：</td><td class=TableBody1 align=left><%=MovieStatus%>（1正常；2进货中；3出租；4被预定）</td></tr>
<tr><td class=TableBody2 align=center colspan=2><input type=submit value=修改>&nbsp;<input type=reset value=恢复></td></tr>
</table>
<input type=hidden name=id value=<%=Request("id")%>><input type=hidden name=IsModify value=yes>
</form>
</body>
</html>
<%End If%>