CDONTS & DHCP发E-mail例子

新客网 XKER.COM 2003-07-11 来源： 收藏本文

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
%>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件