UC知道asp+access小问题
来源：百度知道 编辑：UC知道 时间：2024/07/03 23:50:43
<%
On error resume next
dim constr,conn
constr="provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("\data\guest.mdb")
set conn=server.CreateObject("ADODB.connection")
if err.number>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open constr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!！"
Response.End
end if
end if
Sub CloseConn()
conn.close
set conn=nothing
End sub
%>
<%
xtitle=request.Form("title")
xname=request.Form("name")
xemail=request.Form("email")
xarea=request.Form("area")
xaddress=request.Form("address")
xtelphone=request.Form("phone")
xcomment=request.Form("comment")
sql="s
On error resume next
dim constr,conn
constr="provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("\data\guest.mdb")
set conn=server.CreateObject("ADODB.connection")
if err.number>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open constr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!！"
Response.End
end if
end if
Sub CloseConn()
conn.close
set conn=nothing
End sub
%>
<%
xtitle=request.Form("title")
xname=request.Form("name")
xemail=request.Form("email")
xarea=request.Form("area")
xaddress=request.Form("address")
xtelphone=request.Form("phone")
xcomment=request.Form("comment")
sql="s
rs.open sql,conn,1,,3
改为
rs.open sql,conn,1,3
意思是多了一个,号
如果还是不行，最好说出提示的错误是什么
还是不能写入数据库,检查一下数据库写入的信息和设定的字段是否符合:比如字段的类型,字段大小等
没有发现代码有误.
你是否给资料库写入的权限了,即everyone(完全控制)