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 & "" & region & "" & vbcrlf

myMail.Body = Body

myMail.Send

Set myMail = nothing

%>