ASP中怎样实现向access数据库中添加记录为空值

来源:百度知道 编辑:UC知道 时间:2024/06/21 07:32:50
这个是conn.asp页面的内容
<%
dim conn,db
dim connstr
db="../Databases/asp99cms.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
这个是添加数据的页面
<!--#include file="../include/Conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
txttype=request.Form("type")
txttitle=request.form("txttitle")
txtauthor=request.form("txtauthor")
txtadreess=request.form("txtadreess")
txttel=request.form("txttel")
txtemail=request.form("txtemail")
txtcontent=request.form("txtcont

if(code=Session("SystemRocCode")) then
sql="insert into Feedback(type,letitle,user,Add,tel,E-mail,lecontent) values('"&txttype&"','"&txttitle&"','"&txtauthor&"','"&txtadreess&"','"&txttel&"','"&txtemail&"','"&txtcontent&"')"
response.write sql

conn.execute(sql)
call CloseConn()

'下面这句换个位置
response.end

else
response.Write "<script language='javascript'> alert('验证码输入有误!'); document.location.href='guestbook.asp'; </script>"
end if
%>