这个代码出死循环

<%

  if request("UserName") <>"" then

        if request("txtYanZheng") <>request("hideYanZheng") then '验证码

               response.write(ShowNext("您的验证码输入有误,请重新输入!","/admin/admin_login.asp"))

        else

               UserName=request("UserName")

               Password=md5(trim(request("Password")))

               set rs=Server.CreateObject("Adodb.Recordset")

               rs.open "Select * from DCR_admin where AdminUser='" & UserName &"' and pwd='"& Password & "'",conn,1,1

           if rs.eof and rs.bof then

                 response.write(ShowNext("请核对您的用户名或密码!","/admin/admin_login.asp"))

           else

                 session.timeout=60

                 session("admin")="Yes"

                 response.Redirect("/admin/index.asp")

           end if

        end if

rs.close

set rs=nothing

conn.close

set conn=nothing

end if

%>