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
相关文档：
除非您以系统帐户的身份登陆到服务器（在浏览器环境中也是可以实现），或者主机端进行了良好的权限配置，否则本文涉及的功能是很难实现的。因为我们通过iis访问某个页面时，一般是iis匿名帐户的身份，在大多数情况下，asp的WScript.Shell是被禁用的，因为它有很大的安全隐患。
要想实现这种功能，首先要得到Rar� ......
arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45)
arrLen = ubound(arr)
for i=0 to arrLen-1
for j = 0 to (arrlen -1)-i
if arr(j)>arr(j+1) then
temp = arr(j)
arr(j)= arr(j+1)
arr(j+1) = temp
end if
next
next
for each l in arr
response.Write l&"< ......
1. 用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. 用实际的数据库绝对路径连接 ......
这个模板引擎比较方便,跟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( ......
如何令你的网站“动感十足”
您的网站是否仍一如既往地保持“静态”？目前呈几何增长的互联网网站中，有相当一部分仍固守“静态”，无形中已大大落后于时代的步伐。所谓“静态”指的就是网站的网页内容“固定不变”，当用户浏览器通过互联网的HTTP（Hypertext Transpor ......
