⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 checkuser.asp

📁 这个也是一个功能强大的企业整站的ASP源代码
💻 ASP
字号:
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>用户名检测</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT LANGUAGE="JavaScript">
<!--
setTimeout('window.close();',3000);
//-->
</SCRIPT>
<link href="../Include/mycss.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#6BB40D" >

<table width=100% cellspacing=1 cellpadding=4 border=0 height="100%" bgcolor="#666666">
  <tr>
    <td align="center" bgcolor=#FFFFFF><font color=#333333> 
	<%if trim(request("name"))="" then
	    response.write "用户名不为能空,请填写!"
	  else
	    set rs=server.CreateObject("Adodb.RecordSet")
        sql="select count(*) from tRegMember where LoginID='"&MyRequest(request("name"))&"'"
        rs.open sql,conn,1,1
	    RegFlag=rs(0)
	    
 
	    if RegFlag=0 then '说明用户可以注册
          response.write "用户名:<FONT color=#FF6600>"&request("name")&"</font>,可以使用!"
	    else
	      response.write "用户名:<FONT color=#FF6600>"&request("name")&"</font>,已经被使用,请选择新的用户名!"
	    end if
	  end if
    %>
      </font></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -