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)
%>
怎么搞~帮我一下~~