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" -->


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

...全文
95 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
jinjuduo 2006-09-21
  • 打赏
  • 举报
回复
<% option explicit
少了空格吧
李向荣 2006-09-21
  • 打赏
  • 举报
回复
试试楼上的方法,看看有什么结果。
penglewen 2006-09-21
  • 打赏
  • 举报
回复
去丢这个option explicit
看看

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧