[求助]请问我这样做是不是不对的啊? - ASP技术论坛

问题点数：0 回复次数：5

[求助]请问我这样做是不是不对的啊?

这个是acc.asp中的内容: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit dim conn,db,sql,username,userphone db="mdb/aaaa.mdb" Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) sql="select *from aaaaa" Set rs = Server.CreateObject("ADODB.RecordSet") username=request.form("username") userphone=request.form("userphone") if username<>"" and userphone<>"" then do while not rs.eof if username=rs.("name") response.write "该用户已经存在" else rs.movenext loop end if else sql="insert into aaaaa (name,phone) values ('"&username&"','"&userphone&"')" conn.Execute(sql) response.write "用户:"&username&"添加成功!" end if conn.close set conn=nothing %> 这个是测试插入数据.htm中的内容: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>测试插入数据</title> <style type="text/css">  </style> </head>

<body> <table width="412" cellspacing="0" cellpadding="0"> <tr> <td width="410"><form name="form1" method="post" action="acc.asp"> <table width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="44%"><span class="style1">用户名：</span> <input name="textname" type="text" id="textname" size="15"></td> <td width="56%"><span class="style1">电话：</span> <input name="textphone" type="text" id="textphone" size="15"> <input type="submit" name="Submit" value="提交"></td> </tr> </table> </form></td> </tr> </table> </body> </html> 我想在点击“提交“后进行验证，如果用户名有重复的，就提示错误，如果没有，就插入数据，这么做可以么？？我怎么点完"提交"之后没有反应呢？能帮我看看么....谢谢！！！

搜索更多相关主题的帖子: blank　option　target　aaaaa　

第 2 楼

得分:0

Set rs = Server.CreateObject("ADODB.RecordSet") username=request.form("username") userphone=request.form("userphone") if username<>"" and userphone<>"" then sql="select *from aaaaa where name=username" if not rs.eof then response.write "该用户已经存在" else sql="insert into aaaaa (name,phone) values ('"&username&"','"&userphone&"')" conn.Execute(sql) response.write "用户:"&username&"添加成功!" end if end if conn.close set conn=nothing %>

">东搞一下西搞一下

第 3 楼

得分:0

哦.....棒锤了......谢谢你......真笨阿我

吾尝终日而思之,不如须臾之所学也

第 4 楼

得分:0

我按你说的改了,但是他提示我对象关闭时不允许操作,麻烦你再帮我看看好么...谢谢!! <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit dim conn,db,sql,username,userphone dim rs db="mdb/aaaa.mdb" Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) sql="select *from aaaaa" Set rs = Server.CreateObject("ADODB.RecordSet") username=request.form("textname") userphone=request.form("textphone") sql="select * from aaaaa where name=username" if not rs.eof then response.write "该用户已经存在" else sql="insert into aaaaa (name,phone) values ('"&username&"','"&userphone&"')" conn.Execute(sql) response.write "用户:"&username&"添加成功!" end if rs.close conn.close set conn=nothing %>

吾尝终日而思之,不如须臾之所学也

第 5 楼

得分:0

if username<>"" and userphone<>"" then sql="select *from aaaaa where name=username" rs.open sql,conn,1,1 if not rs.eof then response.write "该用户已经存在" else

">东搞一下西搞一下

第 6 楼

得分:0

已经ok了,谢谢!!!
还有哦.....版主能否将QQ告诉偶呢....
偶是新新手....有很多很多问题要问你呢

吾尝终日而思之,不如须臾之所学也