注册用户名输入验证代码失灵，恳请高手指点

Question

本帖最后由 china5696 于 2010-07-26 10:40:39 编辑

Answer 1

IF RS.bof or RS.eof THEN
'    DataRecNum = -1
'    Response.Write(true)
ELSE
'    DataArray = RS.GetRows()
'    DataRecNum = UBound(DataArray,2)
     Response.Write(false)在js中直接判断resposneText==‘true’和false即可

Answer 2

returntxt这个返回的是什么？他的length什么时候是0？看看是不是不用length判断

Answer 3

主要看你这里 返回的是什么？
 var returntxt = unescape(http_request.responseText);
alert(returntxt);    

Answer 4

2楼的哥们 的意思是不是，把asp 修改成：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="Include/Conn.asp"--><%
'=========================================================
' 检查用户注册的用户名是否重复！
'=========================================================
OpenConn()Dim UserName,flag
Dim DataArray,DataRecNum
UserName = Trim(Request("UserName"))
flag = Trim(Request("flag"))SET RS = Server.CreateObject ("ADODB.RECORDSET")
if flag="1" then
SQL = "SELECT UserName FROM dbo.Users WHERE (UserName = '"&UserName&"')"
elseif flag="2" then
SQL = "SELECT companyname FROM dbo.Users WHERE (companyname = '"&UserName&"')"
end if
'Response.Write SQL&"<BR>"
RS.Open SQL,ZGW_Conn,1,1IF RS.bof or RS.eof THEN
'    DataRecNum = -1
'    Response.Write(true)
ELSE
'    DataArray = RS.GetRows()
'    DataRecNum = UBound(DataArray,2)
     Response.Write(false)RS.CLOSE
SET RS = NOTHINGCloseConn()
%>
其结果，returntxt的值，变成： returntxt " <font face="Arial" size=2>
<p>Microsoft VBScript �����</font> <font face="Arial" size=2>�� '800a03f6'</font>
<p>
<font face="Arial" size=2>ȱ� 'End'</font>
<p>
<font face="Arial" size=2>/members/CheckUserName.asp</font><font face="Arial" size=2>��� 39</font> " String

Answer 5

是不是要把asp的一些HTML标签过滤掉，还有。返回的值用0或1来代替。判断的时候，判断是0还是1，输出不同的结果。

Answer 6

“是不是要把asp的一些HTML标签过滤掉，还有。返回的值用0或1来代替。判断的时候，判断是0还是1，输出不同的结果。”怎么实现啊？

Answer 7

简单的调试就是在你的JS代码中加入ALERT语句看看，程序运行的逻辑，是不是跟你想要的一样，还有就是你可以使用Fiddler工具来看看页面请求的情况。比如是不是去请求了CheckUserName.asp这个页面，还有就是CheckUserName.asp这个页面中的代码，你也调试一样，看是不是正确。具体的我想还是要靠你去调试。

Answer 8

写几个alert()一下子就能测试出来是哪出问题