📄 savemovie.asp

📁 《Web数据库技术》-高晗-vod点播系统程序源代码
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>
<%
if request.form("title3")="" then 
response.write "错误提示:请输入电影名称!"
response.end
end if

if request.form("typeid")="影片类型" then 
response.write "错误提示:请输入电影类型!"
response.end
end if

if request.form("where")="出产地区" then 
response.write "错误提示:请输入电影出产地区!"
response.end
end if

if request.form("movietype")="" then 
response.write "错误提示:请输入电影类型!"
response.end
end if
if request.form("Level")="选择推荐度" then 
response.write "错误提示:请输入电影推荐度!"
response.end
end if
if request.form("name")="" then 
response.write "错误提示:请输入电影领衔主演!"
response.end
end if
if request.form("content3")="" then 
response.write "错误提示:请输入电影简介!"
response.end
end if
%>
<%
title=request.form("title3")
set rs=server.createobject("adodb.recordset")
sql="select * from Playbill where (pro_id is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("typeid")=Request.Form("typeid")
rs("Level")=Request.Form("Level")
rs("where")=Request.Form("where")
rs("title")=title
rs("content")=replace(request.form("content3"),vbcrlf,"<br>")
rs("howlong")=request.form("howlong4")
rs("Path")=request.form("Path")
rs("name")=request.form("name")
rs("movietype")=request.form("movietype")
rs.update
pro_id=rs("pro_id")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>
<title></title>
</head>
<div align="center">
<TABLE class=tableBorder height=1 cellSpacing=1 cellPadding=5 width="100%" 
align=center border=0>
  <TBODY>
<TR>
    <TH height=25 style="background-image: url('images/admin_bg_1.gif')">&nbsp;&nbsp;<b><font style="font-size: 9pt">添　加　电　影</font></span></b></TH></TR></tbody></table>
  <table border="0" cellspacing="0" width="57%" bordercolorlight="#006CD9" bgcolor="#53A9FF">
    <tr bgcolor="#006cd9">
      <td width="100%" height="20" bgcolor="#53A9FF">
      <p align="center"><b><font size="2" color="#000000">添加影片成功</font></b></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
      <p align="left"><font size="2"><br>
      文件标题为：<%response.write title%></font></p>
      <p align="center"><font size="2">是否继续添加？<br>
      <br>
      <a href="addmovie.asp">是</a>&nbsp;&nbsp; <a href="admin.asp">否</a><br>
      <br>
      </font></td>
    </tr>
  </table>
 </div>
</body>
</html>
⌨️ 快捷键说明

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