以下程序错在哪?在线等。。。100分
<%
user=trim(request.form("user"))
password=trim(Request.Form("password"))
if user="" then%>
<script language=vbscript>
MsgBox "错误:请输入用户帐号!"
location.href = "javascript:history.back()"
</script>
<%
end if
if password="" then%><script language=vbscript>
MsgBox "错误:请输入用户密码!"
location.href = "javascript:history.back()"
</script> <%
end if%>
<!-- #include file="conn.asp" -->
<% rs.Open "Select * From hd where user= '" &user&"'", conn, 3,3%>
<%if rs.bof then %> <script language=vbscript>
MsgBox "错误:此帐号不存在!"
location.href = "javascript:history.back()"
</script><%
elseif password<>rs("password") then%><script language=vbscript>
MsgBox "错误:您的密码不正确!"
location.href = "javascript:history.back()"
</script>
<%else if session("loginid")="true" then%>
<script language=vbscript>
MsgBox "正确!"
location.href = "javascript:history.back()"
</script>
<%
rs.close
set rs=nothing%>
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
行33