<%@language="vbscript"%>
<html>
<body>
<%
dim a,b,cn,rs
a=trim(request("id"))
b=trim(request("pass"))
if a="" or b="" then
response.write "用户名或密码不能为空"
Response.Write "<script>setTimeout('redirect()',20000);</script>"
response.redirect("body.asp")
else
set cn=server.createobject("adodb.connection")
cn.open "driver={Microsoft access driver (*.mdb)};DBQ=" & server.MapPath("webdata.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from user where username='"&a&"' and userpw='"&b&"'"
if cn.eof then
response.write"<p align=center>用户名或密码错误！</p>"
response.write"<p align=center><a href=login.asp>重新登录</a></p>"
esle
response.write"<h1><font color=red>恭喜你登录成功！</font></h1>"
Response.Write "<script>setTimeout('redirct()',2000);</script>"
response.redirct "index.asp"
end if
cn.close
set cn=nothing
end if
%>
</body></html>
參考答案:response.redirect语句不能这样使用
原因是在一旦使用了response.write语句，就不能再使用response.redirect了。就是说response.redirect必须在向浏览器发送任何东西以前使用。要想发送一些消息到浏览器后在让浏览器自动转到某网址的话请使用客户端脚本。
