📄 edsavfilm.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=vbscript>
   msgbox "错误：影片名称不能为空"
   location.href="javascript:history.go(-1)"
</script>
<%response.end
end if
if request.form("dog")="" or request.form("dog")="阿诺·史瓦辛格，成龙"then%>
<script language=vbscript>
  msgbox "错误：主要演员不能为空"
  location.href="javascript:history.go(-1)"
</script>
<%response.end
end if

if request.form("FilmStart")="1或A或…" or request.form("Filmcount")="2或20或…" then%>
  <script language=vbscript>
   msgbox "错误：影片集数不能为空"
   location.href="javascript:history.go(-1)"
</script>
<%response.end
end if

if request.form("content")="" then%>
<script language=vbscript>
  msgbox "错误：影片介绍不能为空"
  location.href="javascript:history.go(-1)"
</script>
<%response.end
end if
dim id,title,dog,directors,productor,madein,runsystem,quality,filmtime,madeBy,filmlevel,best,grade,filmFile
dim FilmType,FilmName,FilmExtent,FilmStart,Filmcount,webAddr,imgefile,imagesname,filmprice,content
id=trim(request.form("id"))
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=request.form("imgefile")
imagesname=trim(request.form("imagesname"))
filmprice=trim(request.form("filmprice"))
content=htmlencode2(request.form("content"))
''打开数据库！
dim savFilmRS,savFilmSQL
set savFilmRS=server.createobject("adodb.recordset")
savFilmSQL="select * from film where id="&id&""
savFilmRS.open savFilmSQL,conn,1,3

dim furlRS,furlSQL
set furlRS=server.createobject("adodb.recordset")
furlSQL="select * from fimlURL where filmid="&id&""
furlRS.open furlSQL,conn,1,3

if savFilmRS.eof or furlRS.eof then
  response.Write("<script language='JavaScript' type='text/JavaScript'>alert('对不起，数据库出错或您的输入有误！');history.go(-1);</script>")
  response.End()
end if

''存入film表！
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("grade")=grade
savFilmRS("filmprice")=filmprice
savFilmRS("typeid")=FilmType
savFilmRS("no")=Filmcount-FilmStart+1
savFilmRS.update

filmid=savFilmRS("id")
savFilmRS.close
set savFilmRS=nothing

''存入fimlURL表
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

%>
<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="managefilm.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 + -