reg.asp

很漂亮的一个网络公司的源码

<!-- 杭州网络公司,网站建设,网站建设公司,网站设计,网页设计,精美网页设计,杭州虚拟主机,杭州网页设计,中英文网页设计,企业网站建设,主机域名,主机托管,域名注册与网站推广,免费网页设计,免费网页设计网站建设,免费网页设计虚拟主机,高速虚拟主机与大型网站建设,网站推广网页设计网站建设,杭州专业网站建设,专业网站建设制作主页,网站制作,网站策划,企业网站策划,大型网站建设,
杭州新创网络科技有限公司网站建设公司为您提供网站建设、高速虚拟主机、主机域名注册、网页设计,杭州企业网站建设等服务。
-->
<!--#include file="function/dbconn.asp"-->
<!--#include file="function/function.asp"-->
<!--#include file="function/chkLogin.asp"-->
<%
	Dim UserName,LoginName,password,repassword,address,Tel,Fax,Memo,Sex
	Dim Email
	Dim objRec
	Dim strSQL
	Dim isReg
	UserName = Request.Form("user")
	LoginName = Request.Form("LoginName")
	password = Request.Form("password")
	repassword = Request.Form("repassword")
	address = Request.Form("address")
	Tel = Request.Form("Tel")
	Fax = Request.Form("Fax")
	email = Request.Form("Email")
	Memo = Request.Form("Memo")
	Sex = Request.Form("Sex")
	Company = Request.Form("Company")
	Set objRec = Server.CreateObject("Adodb.RecordSet")
	strSQL = "Select * from uInfo Where LoginName = '" & FilterSQL(LoginName) & "'"
	With objRec
		.Open strSQL,Conn,1,3
		If .Eof And .Bof Then
			.AddNew
			.Fields("UserName").Value = UserName
			.Fields("LoginName").Value = LoginName
			.Fields("password").Value = md5(password)
			.Fields("Sex").Value = Sex
			.Fields("Address").Value = Address
			.Fields("Tel").Value = Tel
			.Fields("Fax").Value = Fax
			.Fields("Email").Value = Email
			.Fields("Company").Value = Company
			.Fields("cLogin").Value = 1
			.Fields("Memo").Value = Memo
			.Update
			.Close
			isReg = true
			RegMessage = "恭喜您注册成功，我们会尽快与您取得电话联系！"
		Else
			isReg = true
			RegMessage = "对不起，你选择的用户名己被他人注册，请返回修改！"
		End If	
	End With
	Set objRec = Nothing
	Call Connclose
	If IsReg Then		
		MessageBox RegMessage,-10
	Else
		MessageBox RegMessage,1
	End If
Private Function FilterSQL(strValue)
'函数名称: FilterSQL
'功能描述: 过滤字符串中的单引号
'作	  者：WangFeng
'使用方法：FilterSQL(strValue)
	FilterSQL=Replace(strValue,"'","''")
End Function
%>