getcustinfo2.asp

能实现用户注册

<%
intSessionID=Session.SessionID
session("purchase")=Request.Form("purchase")
'================
'Form validation
'================
If Request.form("s_FirstName") = "" OR _
Request.form("s_LastName") = "" OR _
Request.form("s_EMail") = "" OR _
Request.form("s_Phone") = "" Then
	response.redirect "GetCustInfo.asp"
end if

'pull fields from last form into variables
s_CompanyName=trim(request.form("s_Company"))
s_FirstName=trim(request.form("s_FirstName"))
s_LastName=trim(request.form("s_LastName"))
s_Address=trim(request.form("s_Address"))
s_Address2=trim(request.form("s_Address2"))
s_City=trim(request.form("s_City"))
s_State=trim(request.form("s_State"))
s_Zip=trim(request.form("s_PostalCode"))
s_Country=trim(request.form("s_Country"))
s_Email=trim(request.form("s_Email"))
s_Phone=trim(request.form("s_Phone"))
CustomerID=s_Phone
CustomerID=replace(CustomerID,"(","")
CustomerID=replace(CustomerID,")","")
CustomerID=replace(CustomerID,"-","")
CustomerID=replace(CustomerID," ","")
CustomerID=replace(CustomerID,".","")
CustomerID=replace(CustomerID,"&","")

ysnTaxExempt=request.form("s_TaxExempt")
if ysnTaxExempt="true" then
	session("ysnTaxExempt")=true
else
	session("ysnTaxExempt")=false
end if
s_ShippingLastName=trim(request.form("s_ShippingLastName"))
s_ShippingFirstName=trim(request.form("s_ShippingFirstName"))
s_ShippingAddress=trim(request.form("s_ShippingAddress"))
s_ShippingAddress2=trim(request.form("s_ShippingAddress2"))
s_ShippingCity=trim(request.form("s_ShippingCity"))
s_ShippingState=trim(request.form("s_ShippingStateProv"))
s_ShippingZip=trim(request.form("s_ShippingPostalCode"))
s_ShippingCountry=trim(request.form("s_ShippingCountry"))
ShipViaID=request.form("cboShipViaID")

'fill in shipping fields if empty
if request.form("s_ShippingLastName")="" then s_ShippingLastName=s_LastName
if request.form("s_ShippingFirstName")="" then s_ShippingFirstName=s_FirstName
if request.form("s_ShippingAddress")="" then
	s_ShippingAddress=s_Address
	s_ShippingAddress2=s_Address2
end if

if request.form("s_ShippingCity")="" then s_ShippingCity=s_City
if request.form("s_ShippingState")="" then s_ShippingState=s_State
if request.form("s_ShippingPostalCode")="" then s_ShippingZip=s_Zip
if request.form("s_ShippingCountry")="" then s_ShippingCountry=s_Country

'if company name empty, fill with firstname+lastname
if len(s_CompanyName)=0 then s_CompanyName=s_FirstName & s_LastName

'open database connection
%><!-- #INCLUDE FILE="odbc_connection.inc" --><%

'do they exist in our customer table?
%><!-- #INCLUDE FILE="custTblChk.inc" --><%

if rows>0 then
	'they do have row in cust table... update
	%><!-- #INCLUDE FILE="custTblUpdate.inc" --><%
else
	'they have no record in customer table... insert row
	%><!-- #INCLUDE FILE="custTblInsert.inc" --><%
end if

%><!-- #INCLUDE FILE="sendCookies.inc" --><%

'go to final purchase form
session("GotCustInfo")=1
response.redirect "Purchase.asp?msg="& msg
%>