主题:  求助:一个很简单的数据库访问[附代码]

kittyboy

职务:普通成员
等级:1
金币:0.0
发贴:53
#12002/11/17 17:34:57

【这个adovbs.inc我已经copy到我的文件夹下面了!这样应该可以include的吧!】
<%
name=request("name")
email=request("email")
subject=request("subject")
memo=request("memo")

if name="" or email="" or subject="" or memo="" then
response.redirect "fail.htm"
response.end
end if
【只要填入的name、email、subject、memo什么的为空,就会跳转到fail.htm】
【但是,如果全填上的话就会说什么“无法显示”,我想这前面肯定没有问题!】
【我用的是win200自带的iis发布网页的!】
dim conn,rs,connstr
connstr="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
【这里可能有问题啊!!】
set rs=server.createobject("adodb.recordset")
rs.open "messagedata", conn, adopendynamic, adlockpessimistic

rs.addnew
rs("姓名")=name
rs("email")=email
rs("主题")=subject
rs("留言")=memo
rs.update

conn.close
set conn=nothing

rs.close
set rs=nothing

response.redirect "success.htm"
%>

【哪里有错误呢?】

编辑历史:[这消息被kittyboy编辑过(编辑时间2002-11-17 17:39:03)]