Microsoft VBScript 编译器错误 '800a03f6'
来源:百度知道 编辑:UC知道 时间:2024/06/17 15:59:09
Microsoft VBScript 编译器错误 '800a03f6'
缺少 'End'
\login.asp, line 59
本人菜菜,调试程序出现以上错误提示,一下是全部代码,请各位大侠帮忙解决,谢谢~!
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆验证</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0
缺少 'End'
\login.asp, line 59
本人菜菜,调试程序出现以上错误提示,一下是全部代码,请各位大侠帮忙解决,谢谢~!
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆验证</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0
<%user=request.form("user")
password=request.form("password")
if instr(password,"'")>0 or instr(user,"'")>0 then
response.write("密码输入畸形!")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From admin where user='"&user&"'and password='"&password&"'"
rs.Open sql,conn,1,3
if rs.eof then
%>
用户名或者密码不对!<a href=login.asp>重新登录</a> <a href=index.htm>返回</a>
<%
else
session("admin")=user
response.redirect"admin_index.asp"
end if
end if
'end if
%> (这是第58行)
看清楚了 “'end if” 多了一个注释符号