1230303杨红公式水论坛:Microsoft VBScript 编译器错误错误 '800a03f6'

来源：百度文库编辑：神马品牌网时间：2024/05/10 08:02:32

check.asp的具体编码：


<html>
<body>
<%
dim mc,mm,ip
dim rs
dim sql
mc=request.form"yonghu"
mm=md5(request.form("mima"))
ip=request.servervariables("REMOTE_ADDR")
if mm〈〉"" and mc <> "" then
set rs=server.createobject("adodb.recordset")
sql="select userid from users where(userid='"&mc&"'"_&"and password='"&mm&"')"
rs.open sql,conn,1,1
sql="update userid from users where(userid='"&mc&"'"&"and password='"&mm&"')"
conn.execute(sql) /第18行/

if not rs.eof then
session("userid")=mc
response.redirect("index.asp")
else
response.write"非法用户!"
end if
end if
set rs=nothing
conn.close
call closedb()
%>
</body>
</html>

其中./inc/conn.asp的代码是：
<%
set conn=server.createobject("adodb.connection")
conn.open "DBQ="&server.mappath("Db/kjc.mdb")&";Driver={Microsoft Access Driver(*.mdb)};"
sub closedb()
if isobject(conn)then
if not(conn is nothing)then
set rs=nothing
end if
end if
end sub
%>

哪位高手帮帮小弟啊，很急

<html>
<body>
<%
dim mc,mm,ip
dim rs
dim sql
mc=request.form"yonghu"
mm=md5(request.form("mima"))
ip=request.servervariables("REMOTE_ADDR")
if mm<>"" and mc<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from users where(userid='"&mc&"'"_&"and password='"&mm&"')"
rs.open sql,conn,1,3
sql="update * from users where(userid='"&mc&"'"&"and password='"&mm&"')"
conn.execute(sql) /第18行/

if not rs.eof then
session("userid")=mc
response.redirect("index.asp")
else
response.write"非法用户!"
end if
end if
set rs=nothing
conn.close
call closedb()
%>
</body>
</html>

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)

1230303杨红公式水论坛:Microsoft VBScript 编译器错误 错误 '800a03f6'

1230303杨红公式水论坛:Microsoft VBScript 编译器错误错误 '800a03f6'