成功执行第一个登月:asp更新问题!

来源：百度文库编辑：查人人中国名人网时间：2024/05/06 10:49:59

<html>
<head>
<title>处理用户提交的新会员注册信息</title>
</head>
<body link="red">
<%
ID=Request("txtID")
pass=Request("txtpass")
pass1=Request("txtpass1")
name=Replace(Request("txtname"),"'","''")
mail=Request("txtmail")
sex=Request("radsex")
year1=Request("txtyear")
month1=Request("selmonth")
day1=Request("selday")
birthday=year1&"/"&month1&"/"&day1
education=Request("seleducation")
state=Request("selstate")
tel=Request("txttel")
'检查字段是否空白
If ID="" Or pass="" Or pass1="" Or name="" Or mail="" Or year1="" Or tel="" Then
ShowMessage "新会员注册表中的全部空格都要填写哦！"
End If

'检查密码的长度是否超过规定
If Len(pass)>8 Then
ShowMessage "您所填写的密码超过了规定的8个字的长度！"
End If
'检查两次输入的密码是否一致
If pass<>pass1 Then
ShowMessage "您所填写的密码和确认密码不一致！"
End If
'检查填写的EMail是否有误
If InStr(mail,"@")=0 Or Left(mail,1)="@" Or Right(mail,1)="@" Then
ShowMessage "您所填写的电子邮件地址有错误！"
End If
'检查填写的出生年月日是否有误
year2=IsNumeric(year1)
If year2=False Then
ShowMessage "您所填写的出生日期有错误！"
End If
If Date()<CDate(birthday) Then
ShowMessage "您所填写的出生日期有错误！"
End If

'检查填写的电话号码是否是数字
tel1=IsNumeric(tel)
If tel1=False Then
ShowMessage "您所填写的电话号码必须全部是数字！"
End If

Set newconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("Member.mdb")
newconn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ=" & DBPath
SQLcmd="Select * From Member Where ID='"&ID&"'"

//第56行代码
Set rs=newconn.Execute(SQLcmd)
//错误信息:

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/会员登陆系统/Change_Member.asp, 第 56 行

If Not rs.EOF Then '这一会员代号已经被占用
ShowMessage "这个“会员代号”已被占用，请填写其它代号！"
Else
SQLcmd="Insert Into Member(ID,pass,pass1,name,EMail,sex,birthday,"
SQLcmd=SQLcmd & "education,state,tel)Values('"&ID&"','"&pass&"','"&pass1&"',"
SQLcmd=SQLcmd & "'"&name&"','"&mail&"','"&sex&"','"&birthday&"',"
SQLcmd=SQLcmd & "'"&education&"','"&state&"',"&tel&")"
newconn. Execute SQLcmd
Response.Write"<center><h3><img src=smile.gif>"
Response.Write"已经完成注册手续，祝贺您成为冬冬会员！</h3>"
Response.Write"您的冬冬会员代号是<b>" &ID& "</b><p>"
Response.Write"<a href=Default.htm>返回会员登录首页</a></center>"
End If
%>

<%
Sub ShowMessage(message)
Response.Write"<center><h3><img src=say.gif>" & message & "</h3>"
Response.Write"<a href=Add.asp>返回上一页</a></center>"
Response.End
End Sub
%>
</body>
</html>

哪里错了!哪位给指点一下,谢谢!

我知道了，这个是你的系统的 NTFS 文件系统的问题，数据库没有写入权限
请分配 NTFS 的站点目录的 EVERYONE，或者 IIS进程帐户写入权限。

数据库无写入权限
在主目录右键安全，设置权限，加入IIS进程帐户

asp更新浏览问题 ASP数据更新问题 ASP数据更新问题 asp更新记录问题 ASP数据库更新问题？ ASP数据更新问题 asp 数据库更新问题 asp 更新数据库问题 asp更新问题! asp更新数据问题