| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 458 人关注过本帖
标题:[求助]这个功能怎么搞
只看楼主 加入收藏
ehvuclz
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-8-12
收藏
 问题点数:0 回复次数:3 
[求助]这个功能怎么搞
图片附件: 游客没有浏览图片的权限,请 登录注册


这个检测用户名的功能怎样搞

我希望在没有检测时这个按钮的值=1 如果检测过后这个按钮的值为0
各位。。怎么搞啊。。在线等
搜索更多相关主题的帖子: 用户名 按钮 检测 
2007-02-02 15:10
sz319
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-30
收藏
得分:0 
可以利用弹出一个模态窗口检查,成功与否可以返回给调用窗口。
或放一个iframe将结果返回给父窗口就可以了
2007-02-02 17:08
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
检测用户名,点按纽时可用get方式提交给别一个窗口,(用POST也是可以的)
在第一个窗口中进行检测动作。当然点完后按纽设为不可用,
如果username.text 的内容改变时,又将按纽设为可用。。。。

http://toorup.3v.do
loading...
2007-02-03 21:27
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
收藏
得分:0 
下面的代码放在有表单的那个文件里

<script language=javascript>
function check_user_exists(form){
username=form.username.value;
if (username==null||username==''){
alert("请您输入用户名");
return false;
}
infoBoard=document.getElementById("checkInfo");
infoBoard.innerText='查询中...';
myurl="/admin/admin_userlogin/CheckUser.asp?username="+username;
retCode=openUrl(myurl);
switch(retCode){
case "-2":
infoBoard.innerHTML='<font color=red>抱歉</font>,查询失败';break;
case "0":
infoBoard.innerHTML='<font color=red>恭喜</font>,'+username+'可以使用';break;
case "1":
infoBoard.innerHTML='<font color=red>抱歉</font>,用户名'+username+'已被使用';
}
return;
}

function openUrl(url){
var objxml=new ActiveXObject("Microsoft.XMLHttp")
objxml.open("GET",url,false);
objxml.send();
retInfo=objxml.responseText;
if (objxml.status=="200"){
return retInfo;
}
else{
return "-2";
}
}
</script>



下面这段代码放在检测按钮需要放的位置上
<span id="checkInfo"></span><br><input type=button id="checkInfo" name=checkuser value="检测用户名是否被占用" onClick="check_user_exists(this.form);">



处理文件“如CheckUser.asp”
<!--#include file="../inc/Conn.asp"-->
<%
'username=Request("username")
'Set rs = Server.CreateObject ("ADODB.Recordset")
'sql="select username from [user] where UserName='"&username&"'"
'rs.Open sql,conn,1,1
'if not rs.eof then
'response.write 1
'else
' response.write 0
'end if
'
'rs.close
username=Request("username")
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select count(username) as num from [user] where UserName='"&username&"'"
rs.Open sql,conn,1,1
if num=1 then
response.write 0
else
response.write 1
end if
rs.close
%>
2007-02-04 14:25
快速回复:[求助]这个功能怎么搞
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028789 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved