register_3.asp

来自「该系统可对信息系统尽行有效的分类管理」· ASP 代码 · 共 91 行

<!--#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")=1
		
		If Request("txtClass")="" Then
			rsUser("txtClass")="普通会员"
		Else
			rsUser("txtClass")=trim(Request("txtClass"))
		End If
			
		If Request("txtUrl")="" Then
			rsUser("txtUrl")="未填"
		Else
			rsUser("txtUrl")=trim(Request("txtUrl"))
		End If
		
		If Request("txtCity")="" Then
			rsUser("txtCity")="未填"
		Else
			rsUser("txtCity")=trim(Request("txtCity"))
		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
		
		If Request("txtCompany")="" Then
			rsUser("txtCompany")="未填"
		Else
			rsUser("txtCompany")=trim(Request("txtCompany"))
		End If
		
		If Request("Post")="" Then
			rsUser("Post")="未填"
		Else
			rsUser("Post")=trim(Request("Post"))
		End If
		
		If Request("txtDesc")="" Then
			rsUser("txtDesc")="未填"
		Else
			rsUser("txtDesc")=trim(Request("txtDesc"))
		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

%>