CDONTS & DHCP发E-mail例子

答案：CDONTS & DHCP发E-mail例子 

I have developed code using ASP and CDONTS which will send an email to the person requesting the information. 

The Site Visitor 's DHCP IP 
Date/Time 
The Region From Where The Visitor Has Made a Hit like India, US etc 
Which browser is being used 
******************************
<% 
'code by Manikantan
'Web Developer 
'3rd Agenda
'Nungambakkam
'Chennai
'India

Dim RIPAddress 
Dim UAgent 
Dim strgetTime 
RIPAddress = Request.ServerVariables("REMOTE_ADDR") 
reg=split(RIPaddress,".")
'check for American regions
' Increase The Numbers into Subdomains to Find The Exact Location
if cint(reg(0))<=207 and cint(reg(0))>=204 then 
region="North America or South America or Caribbean or Saharan Africa" 
end if
if reg(0)="196" or reg(0)="198" or reg(0)="199" or reg(0)="200" or reg(0)="216" or reg(0)="208" or reg(0)="209" then
region="American regions Inclucding Caniberra and Saharian region" 
end if
'Check for Asian Regions
'Increase the Check for Accuracy
if reg(0)="202" or reg(0)="203" or reg(0)="210" or reg(0)="211" or reg(0)="169" or reg(0)="61" or reg(0)="24" then
region="Asian pacific region like India,Afghan" 
end if
if region <>"Asian pacific region like India,Afghan" then 
if region<>"American regions Inclucding Caniberra and Saharian region" thenregion="European Region,North Africa,Russian region"
end if
end if
UAgent = Request.ServerVariables("HTTP_USER_AGENT") 
strgetTime = FormatDateTime(Now(),vbLongDate) 
' you need cdonts.dll for this
' Anyother Mailer like abmailer.dll can be used instead
Dim myMail 
Set myMail = Server.CreateObject("CDONTS.NewMail") 
myMail.To = "youremail@home.com" 
myMail.From = "admin@yourwebsite.com" 
myMail.Subject = "You Have a Visitor " & strgettime 
Body = "A visitor had visited your site:" & vbCrlf
Body = Body & "His DHCP Ip Was: " & RIPAddress & vbCrlf 
Body = Body & "His Agent Was: " & UAgent & vbCrlf 
Body = Body & "Date: " & strgetTime & vbCrlf 
Body = Body & "The Hit was Approximately From" & vbcrlf
Body = Body & "<b>" & region & "</b>" & vbcrlf
myMail.Body = Body 
myMail.Send 
Set myMail = nothing 
%> 
 

上一个：howto: send a mail, exchange script read your mail body and add it to database
下一个：Upload & Send Mail Attachments