服务基础关注顾客需求:asp的简单问题....asp高手请进
来源:百度文库 编辑:高考问答 时间:2024/05/11 18:35:17
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/denglu/zhuce.asp,行15
全部程序如下:
<!--#include file="adovbs.inc" -->
<%
pd = Request("pd")
Name = Request("Name")
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")
Set rs = server.createobject("ADODB.recordset") rs.open "user1",conn,adOpenDynamic,adLockPessimistic
rs.AddNew
rs("userid")=name
rs("userpd")=pd
rs.Update
rs.movefirst
%>
<html>
<head>
<title></title>
</head>
<body bgcolor=beige>
<h1 align="center">用户注册</h1>
<hr>
<form action="zhuce.asp" method=post>
<p>姓名:<input type="text" size="20" name="Name" ></p>
<p>密码:<input type="password" size="20" name="pd" ></p>
<p><input type="submit" Name="Send" value=" 提交">
</form>
</body>
</html>
程序没错,是没有把文件设成可写入的.
具体做法:找到数据库所在的文件.属性--->安全--->所有人--->权限--->全部允许就行了
同时非常感激曾经回过贴的人.
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/denglu/zhuce.asp,行15
全部程序如下:
<!--#include file="adovbs.inc" -->
<%
pd = Request("pd")
Name = Request("Name")
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")
Set rs = server.createobject("ADODB.recordset") rs.open "user1",conn,adOpenDynamic,adLockPessimistic
rs.AddNew
rs("userid")=name
rs("userpd")=pd
rs.Update
rs.movefirst
%>
<html>
<head>
<title></title>
</head>
<body bgcolor=beige>
<h1 align="center">用户注册</h1>
<hr>
<form action="zhuce.asp" method=post>
<p>姓名:<input type="text" size="20" name="Name" ></p>
<p>密码:<input type="password" size="20" name="pd" ></p>
<p><input type="submit" Name="Send" value=" 提交">
</form>
</body>
</html>
程序没错,是没有把文件设成可写入的.
具体做法:找到数据库所在的文件.属性--->安全--->所有人--->权限--->全部允许就行了
同时非常感激曾经回过贴的人.
很明显的错误,这不是缺少了"end"吗
用if,你没有有关闭if
if
与
end if
是对应的.
rs.open "user1",conn,adOpenDynamic,adLockPessimistic 应该是这句话有问题吧