用户的存在与否似乎不是这样判断的？

并且，出现显示信息以后，就应该跳出循环？

修改后程序如下。

<%
Checked = 0     '设置变量判断用户存在与否
do while not rs.eof
username=rs("username") 
password=rs("password")
    if request.Form("name")=username then 
        Checked = 1
        if request.Form("password")=password then
            response.Write("ok ")
        else 
            response.Write("wrong password ")
        end if 
        [color=red]Exit Do[/color]
    end if
rs.movenext
loop
if Checked =0 then 
    response.Write("user is not exist ")
    Response.End
end if 
%>

似乎是这样了吧？

<%
set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
conn.open "filedsn=e:\user\user.dsn"
rs.open "select username from user",conn
strsql="insert into user(username,password,name_corp,product,add_corp,pc,tel_corp,fax_corp,mobile,email,ip) values ('"&username&"','"&password&"','"&name_corp&"','"&product&"','"&add_corp&"','"&pc&"','"&tel_corp&"','"&fax_corp&"','"&mobile&"','"&email&"','"&ip&"')"
checked=0
do while not rs.eof
    if rs("username")=username then
        checked=1
    else rs.open strsql,conn
    end if
rs.movenext
loop
if Checked =1 then
response.Write("username is exist ,change another one! ")
Response.End
end if
%>

这里也有一段程序，也是循环出错，不能控制，我想控制注册时候用户名和库里面的核对，如果同名则要更换。请问这个怎么弄啊。我已经学以致用了，用checked来控制，而不是直接输出。