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

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:53:24
check.asp的具体编码：
<!--#include file="./inc/conn.asp"-->
<!--#include file="./inc/md5.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<

<!--#include file="./inc/conn.asp"-->
<!--#include file="./inc/md5.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 * 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