regadd.asp

来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 65 行

<!-- #include file="../Conn/conn.asp" -->
<% 
	username=request.form("username")
    gender=request.form("garden")
    password=request.form("password")
    question=request.form("question")
    answer=request.form("answer")
    email=request.form("email")
    enterprisename=request.form("enterprisename")
    enterprisestyle=request.form("enterprisestyle")
    workarea=request.form("workarea")
    area=request.form("area")
    address=request.form("address")
    postalcode=request.form("postalnumber")
    synopsis=request.form("remark")
    phone=request.form("phone")
    fax=request.form("fax")
    combined=request.form("handset")
    linkman=request.form("linkman")
    sql="select * from tb_UserMeg where UserName='"&username&"'"
    rs.open sql,conn
    if not rs.eof or not rs.bof then 
%>
		<script language="javascript">
			alert("该用户已经存在，请尝试使用其他的用户名");
			history.back();
		</script>
<%
    else
		set rs=nothing
		conn.close
		set conn=nothing
%>
		<!-- #include file="../Conn/conn.asp" -->
<% 
    	sql="select * from tb_UserMeg where EnterpriseName='"&enterprisename&"'"
		rs.open sql,conn
		if not rs.eof or not rs.bof then 
%>
			<script language="javascript">
				alert("该企业已经注册！请不要重复注册");
				history.back();
			</script>
<%   
   		else
    		set rs=nothing 
    		conn.close
    		set conn=nothing
%>		   
			<!-- #include file="../Conn/conn.asp" -->
<% 
   			sql="insert into tb_UserMeg values('"&username&"','"&gender&"','"&password&"','"&question&"','"&answer&"','"&email&"','"&enterprisename&"','"&enterprisestyle&"','"&workarea&"','"&area&"','"&address&"','"&postalcode&"','"&synopsis&"','"&phone&"','"&fax&"','"&combined&"','"&linkman&"','未通过')"
    		rs.open sql,conn 
%> 
			<script language="javascript">
				alert("注册成功！请记住您的用户名及密码，方便下次登录！");
				window.close();
				window.location="../index.asp";
			</script>   
<%
end if 
%>
<%
end if 
%>