大掌门没缘斗酒和三少:asp的简单问题....asp高手请进

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 06:57:35
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"吗

用if,你没有有关闭if

if



end if
是对应的.

rs.open "user1",conn,adOpenDynamic,adLockPessimistic 应该是这句话有问题吧