下面是按“确定”后执行的子程序。在输入“用户名”和“密码”正确时能成功则转到main.asp ，但当输入错误时不会给出相应的错误提示，只还是在原来的界面，原来的“用户名”和“密码”变成空白的了，不知道我在什么地方写错了，请高手帮助指出。在这里先谢了！
<%
if request("action")="chklogin" then
call chklogin()
end if
%>
<%
'检查登录信息，成功则转到main.asp ,失败给相应错误提示
sub chklogin()
Dim name
Dim pwd
name=trim(request.Form("name"))
pwd=trim(request.Form("pwd"))
if name="" or pwd="" then
response.Write "<script>alert('请输入你的用户名或密码！');</script>"
response.end
else
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [user] where name='"&name&"'"
Rs.open sql,conn,3,3
if rs.eof or rs.bof then
response.Write "<script>alert('用户名错误，请重新输入！');</script>"
response.end
else
if rs("pwd")=pwd then
session("name")=rs("name")
response.redirect "Main.asp"
else
response.Write "<script>alert('密码错误，请重新输入！');</script>"
response.end
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
end if
end if
end sub
%>