ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/admin/adddatawrite.asp，行 40
全文如下 红色行是出错的地方 行40
<!--#include file="../Connections/conn.asp" -->
<% dim moviename,movietitle,moivejibie,moivetype,diqu,form_url,moviejianjie
moviename=request.form("moviename")
movietitle=request.form("movietitle")
moviejibie=request.form("moviejibie")
movietype=request.form("movietype")
moviediqu=request.form("moviediqu")
movieurl=request.form("form_url")
moviejianjie=request.form("moviejianjie")
if request.form("moviename") = "" then
response.write ("片名不能为空!!<a href=adddata.asp>返回</a>")
response.end
end if
if request.form("movietitle") = "" then
response.write ("主演不能为空!!<a href=adddata.asp>返回</a>")
response.end
end if
if request.form("moviejibie") = "" then
response.write ("请选择级别!!<a href=adddata.asp>返回</a>")
response.end
end if
if request.form("movietype") = "" then
response.write ("没有选择影片类型!!<a href=adddata.asp>返回</a>")
response.end
end if
if request.form("form_url") = "" then
response.write ("影片地址不能为空!!<a href=adddata.asp>返回</a>")
response.end
end if
if request.form("moviejianjie") = "" then
response.write ("影片简介不能为空!!<a href=adddata.asp>返回</a>")
response.end
end if
%>
<% dim rs,sql
set rs = server.CreateObject ("adodb.recordset")
sql = "SELECT * FROM movieling"
rs.open sql,conn,1,3
rs.AddNew
rs("name") = moviename
rs("title") = movietitle
rs("softlevel") = moviejibie
rs("typeid") = movietype
rs("where") = moviediqu
rs("movietype")= movietype
rs("content") = moviejianjie
rs("movieurl") = form_url
rs("date")= date()
rs.Update
rs.Close
%>
