后台登陆问题..急！急！急！

<%@language=vbscript codepage=936 %>



<%
dim sql,rs
dim username,password,CheckCode
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")

CheckCode=replace(trim(Request("CheckCode")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & " <li>用户名不能为空！</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & " <li>密码不能为空！</li>"
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & " <li>验证码不能为空！</li>"
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & " <li>你登录时间过长，请重新返回登录页面进行登录。</li>"
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & " <li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
end if
if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & " <li>用户名或密码错误！！！</li>"
else
if password<>rs("password") then
 FoundErr=True
 ErrMsg=ErrMsg & " <li>用户名或密码错误！！！</li>"
else
 rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
 rs("LastLoginTime")=now()
 rs("LoginTimes")=rs("LoginTimes")+1
 rs.update
 session.Timeout=SessionTimeout
 session("AdminName")=rs("username")
 session("purview")=rs("purview")
 rs.close
 set rs=nothing
 call CloseConn()
 Response.Redirect "Admin_Index.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
'****************************************************
'过程名：WriteErrMsg
'作 用：显示错误提示信息
'参 数：无
'****************************************************
sub WriteErrMsg()
dim strErr
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='style.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center'><td height='22' class='title'>错误信息</td></tr>" & vbcrlf
strErr=strErr & " <tr><td height='100' class='tdbg' valign='top'>产生错误的可能原因： " & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center'><td class='tdbg'><a href='Admin_Login.asp'><< 返回登录页面</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
end sub
%>
这是登陆后台的信息密码正确的，但是就是不跳到首页上，，就出现空白页，上面是代码，也不出现错误，也不显示正确，就是一个空白页面。。程序是服务器拷贝过来的。。没有错的。。 那位牛人帮我看看有什么问题。。先谢过了。。
--------------------编程问答-------------------- 检查rs.close
 set rs=nothing
 response.write “”
 call CloseConn()
 Response.Redirect "Admin_Index.asp"
输出数据看看
--------------------编程问答-------------------- 应该没错的，都是服务器拷贝过来的。 --------------------编程问答-------------------- 用
response.write
来看程序跟踪程序。
看程序是否执行到
Response.Redirect "Admin_Index.asp"
--------------------编程问答-------------------- 是不是机器缓冲 --------------------编程问答-------------------- “应该没错的，都是服务器拷贝过来的。”
做人不要太懒--只懂得拷贝，是否知道其功能，为什么这么写。
为什么自己一运行是空白页！做什么都要花点心思。

补充：.NET技术 ,  ASP.NET