id_search.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<title>酒捞叼 吝汗 八荤</title>
<%
user_id = trim(request("user_id"))
if user_id = "" then
%>
<script language="javascript">
<!--
	alert("请输入ID号!!!");
	opener.user_regist.id.focus();
	window.close();
//-->
</script>
<%
else
	if len(user_id) < 4 or len(user_id) > 10 then%>
		<script language="javascript">
		<!--
			alert("ID号必须大于4并小于10位.");
			opener.user_regist.id.focus();
			window.close();
		//-->
		</script>
<%else%>
		<!--#include virtual="/common/BombConnDB.asp"-->
		<%
		sql = "Select UserID from IB_Member where UserID = '"  & user_id & "' "
		set rs = DbCon.Execute(sql)
		%>
		<%if not rs.EOF then%>
				<script language="javascript">
				<!--
					alert("该帐号已被注册");
					opener.user_regist.id.focus();
					window.close();
				//-->
				</script>
		<%else%>
				<script language="javascript">
				<!--
					opener.user_regist.id.value = "<%=user_id%>";
					alert("'<%=user_id%>'可以使用.");
					window.close();
				//-->
				</script>
		<%end if%>
<%end if%>
<%
end if%>