register_3.asp

2、后台管理 分为“非会员列表”

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
	UserId=trim(request("txtId"))
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from Userinfo where txtId='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
	if rsUser.recordcount>0 then
		response.write "<script language=JavaScript>{window.alert('此会员帐号已经注册!');window.history.go(-1)}</script>"
	    response.end
	else
	'添加一条记录到数据库
		rsUser.addnew
		'必添项
		rsUser("txtClass")=Request("txtClass")
		rsUser("txtId")=Request("txtId")
		rsUser("txtPass")=Request("txtPass")
		rsUser("txtQuestion")=Request("txtQuestion")
		rsUser("txtAnswer")=Request("txtAnswer")
		rsUser("txtCat")=Request("txtCat")
		rsUser("txtCompany")=Request("txtCompany")
		rsUser("txtContect")=Request("txtContect")
		rsUser("txtTel")=Request("txtTel")
		rsUser("txtFax")=Request("txtFax")
		rsUser("txtEmail")=Request("txtEmail")
		rsUser("txtProv")=Request("txtProv")
		rsUser("txtCity")=Request("txtCity")
		rsUser("txtPost")=Request("txtPost")
		rsUser("txtAddress")=Request("txtAddress")
		rsUser("txtDesc")=htmlencode(Request("txtDesc"))
		rsUser("dateandtime")=now()
		rsUser("flag")=0
		
		If Request("txtUrl")="" Then
			rsUser("txtUrl")="未知"
		Else
			rsUser("txtUrl")=trim(Request("txtUrl"))
		End If
		
		If Request("txtTel")="" Then
			rsUser("txtTel")="未知"
		Else
			rsUser("txtTel")=trim(Request("txtTel"))
		End If
		
		If Request("txtFax")="" Then
			rsUser("txtFax")="未知"
		Else
			rsUser("txtFax")=trim(Request("txtFax"))
		End If

		rsUser.update
		rsUser.close
		conn.close
		
		response.write "<script language=JavaScript>{window.alert('注册成功!请等待管理员为您开通账号！');window.location.href='default.asp'}</script>"
	    response.end
	end if

%>