asp中用jmail，Cdonts组件和Aspemail组件发邮件
JMAIL安装配置
jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.
首先说明一下jmail安装配置步骤:
1. JMail 下载地址
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.安装
本人在Windows 2003下面配置,其它系统还没有测试.
安装到目录比如: C:\Program Files\Dimac\w3JMail4\jmail.dll
然后还需要把jmail.dll复制到系统目录,比如C:\WINDOWS\system32
再运行:regsvr32 jmail.dll
这样才算把jmail安装好了.
------------------------------------------------------
可以选择性使用jmail，CDO组件和Aspemail组件其中一个。默认的话，将使用Jmail组件发邮件。把以下文件另存成SendMail.asp.改一下里面的e_开头的变量的设置.用 <!--#include file="SendMail.asp"--> 包含.然后要发邮件的时候.用 SendEmail "hjc73@126.com","test","this is test!","Jmail"
函数。'以上是测试的过程 .第一项是MAIL收件人,第二项为主题,第三项为正文,第三为发件模式.分别是Jmail,Cdonts,Aspemail注意大小写。
sendmail.asp的代码:
<!--#include file="SendMail.asp"-->
<%
E_Server = "mail.am8way.com" ''发件服务器地址
E_ServerUser = "joy@am8way.com" ''发件服务器登录用户名(如果不需要邮件验证.就不用写)
E_ServerPass = "123456" ''发件服务器登录密码(如果不需要邮件验证.就不用写)
E_SendManMail = "joy@am8way.com" ''发件人邮件地址
E_SendManName = "系统管理员" ''发件人姓名
Sub Jmail(Email,Topic,Mailbody)'Jmail组件发信
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
If Not(E_ServerUser = "" Or E_ServerPass = "") Then
JMail.MailServerUserName = E_ServerUser
JMail.MailServerPassword = E_ServerPass
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.from = E_SendManMail
JMail.fromName = E_SendManName
JMail.AddRecipient Email
JMail.Subject = Topic
JMail.Body = Mailbody
JMail.Send (E_Server)
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub
Sub Cdonts(Email,Topic,Mailbody)'C
相关文档：
学ASP到现在已有许多年，好多人都说他这个不好那个不好，可我觉得挺好，我却说不出什么好的理由让客户选择用ASP开发，终于看到了这个文章，心中大喜，转给大家分享~~
ASP是一种类似HTML(Hypertext Markup Language超文本标识语言)、Script与CGI(Common GAteway Interface 通用网关接口)的结合体，但是其运行效率却比 ......
自动识别IP,并跳转到来访问者所在的城市
先去下一个最新的纯真IP数据库,然后按如下操作:
1.运行纯真QQIP数据库里带的ShowIP.exe，点解压，输入文件名，比如IP.txt，确定，就得到一个TXT文件。
2.打开ACCESS，工具－自定义，命令选项卡，把导入选项拖动到上面的工具栏。
3.建库，建一个表，四个字段
Startip 类型:文 ......
这个模板引擎比较方便,跟HTML结合了
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName
' ***************************************
' 设置编码
' ***************************************
Public Property Let Char( ......
废话少说,见代码
<%=request.ServerVariables("LOGON_USER")%>
首先IIS所在的服务器要加入域,其次是IIS服务器的设置.见图1
图2
服务器设置好后, IIS所在的服务器使用
<%=request.ServerVariables("LOGON_USER")%>
就能获取到域名称和用户名了.
如果访问者没有加入域,会提示登录,如下图.� ......
