📄 savefilm.asp

📁 顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access
💻 ASP
字号:
<!--#include file="middle_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<!--#include file="char.inc"-->
<%if session("loginname")="" and Session("AdminID")="" then
response.Write("<script language='JavaScript' type='text/JavaScript'>window.location='login_admin.asp'</script>") 
response.end
end if
%>
<%
if request.form("title")="" or request.form("title")="磨鬼终结者IIII" then%>
<script language="javascript">
  alert("错误：影片名称不能为空！");
  history.go(-1);
</script>
<%response.end
end if
if request.form("dog")="" or request.form("dog")="阿诺·史瓦辛格，成龙"then%>
<script language="javascript">
  alert("错误：主要演员不能为空！");
  history.go(-1);
</script>
<%response.end
end if

if request.form("FilmStart")="1或A或…" or request.form("Filmcount")="2或20或…" then%>
<script language="javascript">
  alert("错误：影片集数填法错误，请仔细阅读添加页面底部的提示！");
  history.go(-1);
</script>
<%response.end
end if

if request.form("content")="" then%>
<script language="javascript">
  alert("错误：影片介绍不能为空！");
  history.go(-1);
</script>
<%response.end
end if
dim title,dog,directors,productor,madein,runsystem,quality,filmtime,madeBy,filmlevel,best,grade,filmFile
dim FilmType,FilmName,FilmExtent,FilmStart,Filmcount,webAddr,imgefile,imagesname,filmprice,content

title=htmlencode2(request.form("title"))
dog=htmlencode2(request.form("dog"))
directors=htmlencode2(request.form("directors"))
productor=htmlencode2(request.form("productor"))
madein=htmlencode2(request.form("madein"))
runsystem=trim(request.form("runsystem"))
quality=trim(request.form("quality"))
filmtime=trim(request.form("filmtime"))
madeBy=htmlencode2(request.form("madeBy"))
filmlevel=request.form("filmlevel")
best=request.form("best")
grade=request.form("grade")
filmFile=trim(request.form("filmFile"))
FilmType=request.form("FilmType")
FilmName=trim(request.form("FilmName"))
FilmExtent=trim(request.form("FilmExtent"))
FilmStart=trim(request.form("FilmStart"))
Filmcount=trim(request.form("Filmcount"))
webAddr=request.form("webAddr")
imgefile=trim(request.form("imgefile"))
imagesname=trim(request.form("imagesname"))
filmprice=trim(request.form("filmprice"))
content=htmlencode2(request.form("content"))
''存入film表！
dim savFilmRS
set savFilmRS=server.createobject("adodb.recordset")
savFilmRS.open "select * from film where title='"&title&"'",conn,1,3
if not (savFilmRS.bof and savFilmRS.eof) then
    response.Write("<script language='javascript'>alert('对不起，该影片已存在！');history.go(-1);</script>")
else
	savFilmRS.addnew
	savFilmRS("title")=title
	savFilmRS("mainactors")=dog
	savFilmRS("directors")=directors
	savFilmRS("productor")=productor
	savFilmRS("filmlevel")=filmlevel
	savFilmRS("madein")=madein
	savFilmRS("runsystem")=runsystem
	savFilmRS("quality")=quality
	savFilmRS("filmtime")=filmtime
	savFilmRS("madeBy")=madeBy
	savFilmRS("WebAddr")=WebAddr
	savFilmRS("imagefile")=imgefile
	savFilmRS("imagesname")=imagesname
	savFilmRS("content")=content
	if best="1" then
	 savFilmRS("recomfilm")=true
	else 
	 savFilmRS("recomfilm")=false
	end if
	savFilmRS("dateandtime")=now()
	savFilmRS("grade")=grade
	savFilmRS("filmprice")=filmprice
	savFilmRS("typeid")=FilmType
	savFilmRS("no")=Filmcount-FilmStart+1
	savFilmRS.update
	
	filmid=savFilmRS("id")
	savFilmRS.close
	set savFilmRS=nothing
	
	''存入fimlURL表
	dim furlRS,furlSQL
	set furlRS=server.createobject("adodb.recordset")
	furlSQL="select * from fimlURL"
	furlRS.open furlSQL,conn,1,3
	furlRS.addnew
	furlRS("No")=Filmcount-FilmStart+1
	furlRS("FilmType")=FilmType
	furlRS("FilmName")=FilmName
	furlRS("FilmExtent")=FilmExtent
	furlRS("FilmStart")=FilmStart
	furlRS("Filmcount")=Filmcount
	furlRS("filmid")=filmid
	furlRS("FilmTitle")=title
	furlRS("filmFile")=filmFile
	furlRS.update
	furlRS.close
	set furlRS=nothing
end if
%>
<html>
<head>
<title>顶级影视 设计维护:QQ:1243619 Email:yakai@163.net</title>
<link rel="stylesheet" type="text/css" href="../style/style.css">
</head>
<body>
<div align="center" >
<table border="1" cellspacing="0" width="450" bgcolor="#00FFFF">
    <tr bgcolor="#0099FF"> 
      <td width="100%" height="27">
        <p align="center"><font color="#FFFFFF">添加成功</font> 
      </td>
   </tr>
   <tr>
    <td width="100%">
      <p align="center"><br>
          您刚刚添加的影片名称为： 
          <%response.write title%>
      </p>
        <p align="center">是否继续添加？按否返回管理页面。<br>
          <br>
        <a href="addfilm.asp"> 是</a>&nbsp;&nbsp;
        <a href="admin.asp">否</a><br><br>
      </p>
     </td>
   </tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明

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