数据库增加数据出错?

来源:百度知道 编辑:UC知道 时间:2024/05/10 09:50:36
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="error.asp" -->
<%if request("action")="add" then%>
<%
dim nama
dim work
dim title
dim demo
dim tima
nama=request("tj_name")
work=request("tj_work")
title=request("title")
demo=request("tj_demo")
tima=request("tj_time")
sql="select * from shmg_news"
set rs=server.CreateObject("adodb.recordset")
addnew.rs
rs("name")=nama
rs("work")=work
rs("title")=title
rs("demo")=demo
rs("time")=tima
update.rs
else
%>
<%
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>
运行说缺少对象””第20行

替换成下面这样~
sql="select * from shmg_news"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=nama
rs("work")=work
rs("title")=title
rs("demo")=demo
rs("time")=tima
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if