家庭/个人应用

开发平台：
ASP/ASPX

savemovie.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>

						