Microsoft VBScript 编译器错误 错误 '800a03f6'缺少 'End
MicrosoftVBScript编译器错误错误'800a03f6'缺少'End/haha/login.asp，行83<%@LANGUAGE="VBSCRIPT.Enco...
Microsoft VBScript 编译器错误 错误 '800a03f6'缺少 'End /haha/login.asp，行 83
<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<?xml version="1.0" encoding="utf-8"?>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>河北晋通电脑</title>
<link href="CSS/admin.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="JS/MD5.js"></script>
<style>
<!--
div.Section1
{page:Section1;}
-->
</style>
</head>
<!-- #include file="Inc/conn.asp" -->
<!-- #include file="Inc/vbDecode.inc" -->
<%menu=Request("menu")%>
<body onload="<%if(menu="") then response.write("javascript:document.getElementById('UserName').focus();")%>">
<%
if menu<>"" then
dim conn,rs,sql
set conn=getconn()
set rs=getRs()
select case Request("menu")
case "check"
username=vbDecode(Request("username"))
userpass=vbDecode(Request("userpass"))
sql="select * from web_user where username='"&username&"'"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
errormsg=errlogin_nouser
else
if userpass<>rs("pswd") then
errormsg=errlogin_wrongpass
else
Session("master")=username '记录用户名
Session("masterqx")=rs("usertype") '记录用户权限
Session("masterid")=rs("id") '记录用户ID
Session("workID")=rs("workID") '记录用户工号
rs("ifOnline")=true
rs.update
response.Redirect("default.asp")
end if
end if
if errormsg<>"" then
%>
<script language="javascript">
<!--
alert("<%=errormsg%>");
window.history.back();
-->
</script>
<%
end if
rs.close
case "add" '待完善
username=Trim(Request("username"))
userpass=Trim(Request("userpass"))
case "alter" '待完善
username=Trim(Request("username"))
userpass=Trim(Request("userpass"))
case "out"
sql="update web_user set ifOnline=False where username='"&session("master")&"'"
conn.execute(sql)
Session.Abandon()
Response.Redirect("login.asp")
end select
conn.close
else (这个是83 行)
%>
应该怎么修改 各位大哥 那位帮帮忙~~~ 展开
<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<?xml version="1.0" encoding="utf-8"?>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>河北晋通电脑</title>
<link href="CSS/admin.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="JS/MD5.js"></script>
<style>
<!--
div.Section1
{page:Section1;}
-->
</style>
</head>
<!-- #include file="Inc/conn.asp" -->
<!-- #include file="Inc/vbDecode.inc" -->
<%menu=Request("menu")%>
<body onload="<%if(menu="") then response.write("javascript:document.getElementById('UserName').focus();")%>">
<%
if menu<>"" then
dim conn,rs,sql
set conn=getconn()
set rs=getRs()
select case Request("menu")
case "check"
username=vbDecode(Request("username"))
userpass=vbDecode(Request("userpass"))
sql="select * from web_user where username='"&username&"'"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
errormsg=errlogin_nouser
else
if userpass<>rs("pswd") then
errormsg=errlogin_wrongpass
else
Session("master")=username '记录用户名
Session("masterqx")=rs("usertype") '记录用户权限
Session("masterid")=rs("id") '记录用户ID
Session("workID")=rs("workID") '记录用户工号
rs("ifOnline")=true
rs.update
response.Redirect("default.asp")
end if
end if
if errormsg<>"" then
%>
<script language="javascript">
<!--
alert("<%=errormsg%>");
window.history.back();
-->
</script>
<%
end if
rs.close
case "add" '待完善
username=Trim(Request("username"))
userpass=Trim(Request("userpass"))
case "alter" '待完善
username=Trim(Request("username"))
userpass=Trim(Request("userpass"))
case "out"
sql="update web_user set ifOnline=False where username='"&session("master")&"'"
conn.execute(sql)
Session.Abandon()
Response.Redirect("login.asp")
end select
conn.close
else (这个是83 行)
%>
应该怎么修改 各位大哥 那位帮帮忙~~~ 展开
2个回答
展开全部
把 83 行的 else 改成 end if
或者在83行后面添加当menu为空时要执行的语句块，结束时加end if
else
menu为空的提示操作语句块
end if
另外，数据集RS，数据库连接的CONN，用完不用时要记得SET RS=NOTHING语句 SET CONN=NOTHING语句来释放资源。
或者在83行后面添加当menu为空时要执行的语句块，结束时加end if
else
menu为空的提示操作语句块
end if
另外，数据集RS，数据库连接的CONN，用完不用时要记得SET RS=NOTHING语句 SET CONN=NOTHING语句来释放资源。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
