请问这是什么原因？谢谢！

Microsoft VBScript 编译器错误 错误 '800a03f6' 

缺少 'End' 

/iisHelp/common/500-100.asp，行242 

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' 

[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。 

/zjlb/saveedit.asp，行12 

12 个解决方案

#1

代码贴出来看看

#2

看看你的代码是怎么写的。

#3

如果有SUB之类的，是这些没有对应，少了结尾什么的。

要么很可能是真的少了end if，也可能是多了end if，他也报这个错误

#4

仔细看看代码，看看有没有哪里少了END。

#5

不一定是少了end if，看看你的代码才知道。

#6

/zjlb/saveedit.asp，行12 可能是SQL语句有问题

#7

贴代码

#8

<%
rr=request("R1")
set conn=server.createobject("ADODB.connection")
conn.open "booksamp","sa",""
if rr="change" then
sql="update rsdab set 姓名='"&request.form("xm")&"',性别='"&request.form("xb")&"',学历='"&request.form("xl")&"',身份证号码='"&request.form("sfzh")&"',联系电话='"&request.form("lxdh")&"',部门='"&request.form("bm")&"',职务='"&request.form("zw")&"',进厂日期='"&request.form("jcrq")&"',到期日期='"&request.form("dqrq")&"',转正日期='"&request.form("zzrq")&"',地址='"&request.form("dz")&"',档案号='"&request.form("dah")&"',有效证件='"&request.form("yxzj")&"',备注='"&request.form("s1")&"' where 编号="&request("id")&""
end if
if rr="del" then
sql="delete from rsdab  where 编号="&request("id")&""
end if
set rs=conn.execute(sql)

%>

<p align="center"> <font size="5" color="#FF0000"> 数据修改成功！</font></p>  
<p align="center"><a href='javascript:history.go(-1)'>返回</a>&nbsp;&nbsp;  
</p>

#9

修改代码:
<%
rr=request("R1")
set conn=server.createobject("ADODB.connection")
conn.open "booksamp","sa","",1,3        '改动
if rr="change" then
sql="update rsdab set 姓名='"&request.form("xm")&"',性别='"&request.form("xb")&"',学历='"&request.form("xl")&"',身份证号码='"&request.form("sfzh")&"',联系电话='"&request.form("lxdh")&"',部门='"&request.form("bm")&"',职务='"&request.form("zw")&"',进厂日期='"&request.form("jcrq")&"',到期日期='"&request.form("dqrq")&"',转正日期='"&request.form("zzrq")&"',地址='"&request.form("dz")&"',档案号='"&request.form("dah")&"',有效证件='"&request.form("yxzj")&"',备注='"&request.form("s1")&"' where 编号="&request("id")&""
end if
if rr="del" then
sql="delete from rsdab  where 编号="&request("id")        '改动
end if
set rs=conn.execute(sql)

%>

<p align="center"> <font size="5" color="#FF0000"> 数据修改成功！</font></p>  
<p align="center"><a href='javascript:history.go(-1)'>返回</a>&nbsp;&nbsp;  
</p>

#10

好像还是不行。

#11

修改代码:
<%
rr=request("R1")
set conn=server.createobject("ADODB.connection")
conn.open "booksamp","sa","",1,3        '改动
if rr="change" then
sql="update rsdab set 姓名='"&request.form("xm")&"',性别='"&request.form("xb")&"',学历='"&request.form("xl")&"',身份证号码='"&request.form("sfzh")&"',联系电话='"&request.form("lxdh")&"',部门='"&request.form("bm")&"',职务='"&request.form("zw")&"',进厂日期='"&request.form("jcrq")&"',到期日期='"&request.form("dqrq")&"',转正日期='"&request.form("zzrq")&"',地址='"&request.form("dz")&"',档案号='"&request.form("dah")&"',有效证件='"&request.form("yxzj")&"',备注='"&request.form("s1")&"' where 编号="&request("id")        '改动
end if
if rr="del" then
sql="delete from rsdab  where 编号="&request("id")        '改动
end if
conn.execute(sql)        '改动

%>

<p align="center"> <font size="5" color="#FF0000"> 数据修改成功！</font></p>  
<p align="center"><a href='javascript:history.go(-1)'>返回</a>&nbsp;&nbsp;  
</p>

#12

还是不行呀.晕呀。到底问什么 ？？？