WEB源码(ASP,PHP,...)

开发平台：

DOS

reg_check.asp：源码内容

							<!--#include file="conn.asp"-->
<style type="text/css">
<!--
.unnamed1 {
	font-size: 12px;
}
-->
</style>
<%
user_id=replace(request("username"),"'","’")
if user_id <> "" then
	'开始检测是否已有此用户
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM yx_user where name= '" & user_id & "'"
	rs.open sql,conn,1,1
%>
<%
	if not (rs.Bof or rs.eof) then
	message="<font color=red><b><div align=center>对不起！</b><br>该登陆帐号已经有人使用<br><br>请选择别的登陆帐号!</div></font>"
	else
	message="<font color=red><b><div align=center>恭喜您！</b><br><br>该登陆帐号目前暂无人使用</div></font>"
	end if
	rs.Close
	set rs=nothing
else
message="<font color=red><b><div align=center>对不起！</b><br><br>请您填写账号</div></font>"
end if
%>
<HTML>
<HEAD>
<TITLE>注册-检测用户ID</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<link rel="stylesheet" href="shop" type="text/css">
</HEAD>
<BODY class="unnamed1">
<%
response.write message
%>
</BODY>
</HTML>

						