⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 savemovie.asp

📁 千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能
💻 ASP
字号:
<!--#include file="inc/articlechar.inc"-->
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->

<html><!--#include file="../checkpost.asp"-->

<%
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("count")="需花点数" then 
response.write "错误提示:请输入电影需花点数!"
response.end
end if
if request.form("movietype")="" then 
response.write "错误提示:请输入电影类型!"
response.end
end if
if request.form("softlevel")="选择推荐度" 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")
no=request.form("no")

set rs=server.createobject("adodb.recordset")
sql="select * from learning where (articleid is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("serverip")=request.form("serverip")
rs("typeid")=Request.Form("typeid")
rs("softlevel")=Request.Form("softlevel")
rs("where")=Request.Form("where")
rs("title")=title
rs("content")=replace(request.form("content3"),vbcrlf,"<br>")
rs("onlinelook")=request.form("onlinelookb")
rs("down")=request.form("downv")
rs("canlook")=request.form("canlook")
rs("howlong")=request.form("howlong4")
rs("url")=request.form("url")
rs("best")=request.form("best")
rs("firstbest")=request.form("firstbest")
rs("domurl")=request.form("domurl3")
rs("name")=request.form("name")
rs("count")=request.form("count")
rs("movietype")=request.form("movietype")
rs.update
articleid=rs("articleid")
rs.close


set rs=server.createobject("adodb.recordset")
sql1="select * from movieurl where (id is null)"
rs.open sql1,conn,1,3
for i=1 to no
rs.addnew
url=trim(request.form("urla"&i&""))
rs("nameid")=articleid
rs("url")=url
rs.update
next

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 5.0">
<link rel="stylesheet" href="inc/Admin_STYLE.CSS" type="text/css">
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
  <!--#include file="top1.asp"-->
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
    <tr>
      <td>&nbsp;</td>
    </tr>
  </table>
  <table border="0" cellspacing="0" width="57%" class="border" bordercolorlight="#006CD9" bgcolor="#53A9FF">
    <tr class=title>
      <td width="100%" height="24"> 
        <p align="center"><b><font color="#FF0000">添加影片成功</font></b></td>
    </tr>
    <tr>
      <td width="100%" class="tdbg"">
      <p align="center"><font size="2"><br>
          </font>影片标题为: 
          <%response.write title%>
        </p>
        <p align="center">是否继续添加?<br>
          <br>
          <a href="wantsever.asp">是</a>&nbsp;&nbsp; <a href="zcmain.asp">否</a><br>
          <font size="2"><br>
          </font></td>
    </tr>
  </table>
</div>


</body>

</html>

⌨️ 快捷键说明

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