在注册会员页面判断会员名在数据库中是否重复的问题

请大家帮我看看代码，我不太会写，写完后也运行不出来，请大家帮忙看看。问题出现在哪？<%    
        
        dim Rs
        dim Sql
        Set Rs=Server.CreateObject("ADODB.RecordSet")
        Sql="Select * from MemberList"
        Rs.Open Sql,conn,3,2
%>
<script language="javascript">
    function Tjonvalue()
{    
    aa=document.all.UserName.value    
    alert(aa)
        if (aa=="")
        {
            alert("请填写用户名。");
            return false;
            
        }
        else
        {
            <%
                Do While Rs.Eof=False
            %>
                if (<%=Rs("UserName")%>=aa)
                {
                    alert("对不起，该用户名已经有人使用。");
                    return false;
                }
                else
                {
                    alert("该用户名可以使用。");
                    return false;                    
                }
            <%
                Rs.MoveNext
                Loop
            %>                
}
</script><%            
        Rs.Close
        Set Rs=Nothing
        Conn.Close
%>
以上这段代码是放在<head></head>之间                  <input name="Tjon" type="button" id="Tjon2" value="检验用户名是否重复" onClick="return Tjonvalue()">

解决方案 »

  1.   

    <%    
            
            dim Rs
            dim Sql
            Set Rs=Server.CreateObject("ADODB.RecordSet")
            Sql="Select * from MemberList"
            Rs.Open Sql,conn,3,2
    %>
    <script language="javascript">
        function Tjonvalue()
    {    
        aa=document.all.UserName.value    
        alert(aa)
            if (aa=="")
            {
                alert("请填写用户名。");
                return false;
                
            }
            else
            {
                <%
                    Do While not Rs.Eof
                %>
                    if (aa==<%=Rs("UserName")%>)
                    {
                        alert("对不起，该用户名已经有人使用。");
                        return false;
                    }
                    else
                    {
                        alert("该用户名可以使用。");
                        return true;                    
                    }
                <%
                    Rs.MoveNext
                    Loop
                %>                
    }
    </script><%            
            Rs.Close
            Set Rs=Nothing
            Conn.Close
    %>