添加记录问题
我添加记录的代码是这样的:
<% option explicit%>
<!--#Include file= "ado.asp "-->
<%
Dim title,body,name,email '声明变量
title=Request.Form( "title ") '返回留言主题
body=Request.Form( "body ") '返回留言内容
name=Request.Form( "name ") '返回留言人姓名
email=Request.Form( "email ") '返回留言人email
set db
set rs=server.CreateObject( "adodb.recordeset ")
sql= "select * from guest "
rs.open sql,db,1,3
rs.addnew
rs( "email ")=email
rs( "name ")=name
rs( "body ")=body
rs( "title ")=title
rs.update
rs.close
set rs=nothing
db.close
set db=nothing
Response.Redirect "index.asp " '重定向回首页
%>
数据库ado.asp的代码是这样的:
<%
Dim db
Set db=Server.CreateObject( "ADODB.Connection ")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq= "&Server.Mappath( "database/guest.mdb ")
%>
点提交后,显示网页无法显示,不知道是什么原因阿
------解决方案--------------------email=Request.Form( "email ") '返回留言人email
set db ' ' ' ' ' ' ' ' ' ' ' ' ' '这个多余 还有ado.asp是在同一个目录下吗?
set rs=server.CreateObject( "adodb.recordeset ")
------解决方案--------------------调试一下看看吧.这样看不出来问题
------解决方案--------------------把下面这行去掉。
<% option explicit%>
------解决方案--------------------当然,也要把
set db
这行也去掉。