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中的几个取整函数是：fix(),int(),round();
Int(number)、Fix(number)函数返回数字的整数部分。number 参数可以是任意有效的数值表达式。如果 number 参数包含 Null，则返回 Null。
例：
response.write int(2.14) '2
response.write fix(2.14) '2
response.write int(2.54) '2
response.write int(2.54) '2
&nbs ......
asp,asp.net,php,jsp下的301转向代码
使用.htaccess文件来进行301重定向。
如果空间不支持.htaccess文件，那么我们还可以通过php/asp代码来进行301重定向。
为了将搜索引擎的记录更新到现在的域名上面,做了几个301重定向的东东,给大家分享一下.
asp 301转向代码
在 index.asp 或 default.asp 的最顶部加入以 ......
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&"< ......
Asp操作DTS进行代参数的数据导入导出
年前接了一个小项目,其中一部分是将sql中的数据进行有选择的导出到一个mdb中。
这些是完全可以通过asp得sql语句进行操作的，但是还是想把主要导出的任务交给sql server去做，asp主要是调动这个程序而已。
想到以前做过的东西，觉得实现起来并不难，只是一个参数的问题。
开始实现� ......
ASP高级技术精选集
一、GetRows的使用方法：
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from 表名",conn,0,1 &nb ......
