Microsoft VBScript 编译器错误 错误 '800a0400'
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" -->
为什么会这样? 以前也遇到过 但没有这次那么顽固的~~谢谢了~~