0x800A03F6编译错误，提示缺少一个end
原代码如下，各位哥哥姐姐们，帮帮小妹吧<!--#include file="conn.asp"-->
<%
a=request.Form("yh")
b=request.Form("mm")
if a="" or b="" then
response.Write("<script language=javascript>alert('用户名和密码不能为空');history.go(-1);</script>")
end if
dim sql
sql="select * from dl where yh='"&a&"' and mm='"&b&"'"
rs.open sql,conn,3,1
if rs.eof then
response.Write "用户名和密码错误"
response.End
end if
response.Cookies("yonghu")=a
response.Cookies("pass")=b
response.Cookies("name")=true
response.Redirect("admin.asp")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
