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

yymzzl 2006-09-21 02:35:22
Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

F:\冰点工作室\USER\../CONN.asp,行 1

option explicit
^
====================================
conn.asp
<%option explicit
Dim conn,connstr,db
db="/yymzzl/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
====================================
调用CONN.ASP的页面

<!--#include file="CONN.asp"-->
<!--#include file="title_top.asp"-->
<%
If request("txtuser")="" And request("oldpwd")="" And request("newpwd")="" And request("renewpwd")=""Then
%>
<tr>
<td width="50%" align=center colspan=2>对不起,请您输入相关信息</TD>

</tr>
<!--#include file="editpwd.asp"-->

<%
ElseIf request("newpwd")<>request("renewpwd") Then

%>
<tr>
<td width="50%" align=center colspan=2>对不起,新密码与确认密码不一致</TD>
</tr>
<!--#include file="editpwd.asp"-->
<%Else
Dim rsUser,sql


set rsUser = Server.CreateObject("ADODB.Recordset")
sql="select * from yymzzl where UserID='"&session("UserID")&"'and UserPwd='"&request("nexpwd")&"'"
rsUser("UserPwd")=request("newpwd")
rsUser.update
%>
<tr>
<td width="50%" align=center colspan=2>修改成功</TD>
</tr>
<% Else %>
<tr>
<td width="50%" align=center colspan=2>对不起,您的旧密码输入不正确</TD>
</tr>
<%End If
rsUser.close

End If

Set rsUser=nothing%>
<!-- #include file="cnClose.asp" -->


为什么会这样? 以前也遇到过 但没有这次那么顽固的~~谢谢了~~

...全文
64 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jinjuduo 2006-09-21
<% option explicit
少了空格吧
回复
李向荣 2006-09-21
试试楼上的方法,看看有什么结果。
回复
penglewen 2006-09-21
去丢这个option explicit
看看
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2006-09-21 02:35
社区公告
暂无公告