dim action
dim rs
dim id
dim title
dim name
dim email
action=request("action")
id=Request.QueryString("id")
if isnumeric(id)=0 or id="" then
response.write "非法ID参数"
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from company where id="&id,conn,1,1
if rs.eof or rs.bof then
response.write "<Script>window.alert('该信息不存在');history.go(-1);</Script>"
response.end
else
name=rs("name")
company=rs("company")
email=rs("email")
rs.close
set rs=nothing
select case action
case "yes"
JMail.htmlBody="<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head><body>邮件内容<br>邮件内容<br>邮件内容<br>邮件内容</body></html>"
JMail.Body="邮件内容"
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName =WebSite_Title
JMail.from =ServeMail
JMail.AddRecipient email
JMail.Subject ="审核结果通知"
JMail.Body=body
JMail.htmlBody=html
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
JMail.Priority=3
sendok=JMail.send(mailserver)
Set JMail=nothing
conn.close
set conn=nothing
if sendok then
response.write "<Script>window.alert('发送成功！');history.go(-1);</Script>"
else
response.write "<Script>window.alert('发送失败！');history.go(-1);</Script>"
end if
case "no"
JMail.htmlBody="<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head><body>邮件内容<br>邮件内容<br>邮件内容<br>邮件内容</body></html>"
JMail.Body="邮件内容"
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName =WebSite_Title
JMail.from =ServeMail
JMail.AddRecipient email
JMail.Subject ="审核结果通知"
jmail.Body=body
JMail.htmlBody=html
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
JMail.Priority=3
sendok=JMail.send(mailserver)
Set JMail=nothing
conn.close
set conn=nothing
if sendok then
response.write "<Script>window.alert('发送成功！');history.go(-1);</Script>"
else
response.write "<Script>window.alert('发送失败！');history.go(-1);</Script>"
end if
end select
end if
%>

复制代码

美剧网

使用道具举报

Hakkawawa　楼主

客家山哥

银牌会员

帖子: 3633
体力: 2708
威望: 0
居住地: 广东省深圳市

发表于 2006-11-21 09:26:30 |显示全部楼层

被转到这来了

小红帽

帖子: 2559
体力: 4797
威望: 1
居住地: 广东省广州市

发表于 2006-11-21 10:27:00 |显示全部楼层

<%
Sub Jmail(Email,Topic,Mailbody,LoginName,LoginPass,SMTP,FromEmail,FromName)'使用方法:Call Jmail(收件人Email,信件标题,信件内容,发件人Mail登陆用户名,发件人Mail登陆密码,发件人信箱服务器,发件人mail,发件人姓名,邮件的文字编码,邮件的格式为HTML格式)
Set Obj = Server.CreateObject("JMail.Message")
On Error Resume Next
Obj.Silent = True
Obj.Logging = True
Obj.Charset = "GB2312"
If Not(LoginName = "" or LoginPass = "") Then
Obj.MailServerUserName = LoginName '您的邮件服务器登录名
Obj.MailServerPassword = LoginPass '登录密码
End If
Obj.ContentType = "text/html"
Obj.Priority = 1
Obj.From = FromEmail
Obj.FromName = FromName
Obj.AddRecipient Email
Obj.Subject = Topic
Obj.Body = Mailbody
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
Else
Obj.Send (SMTP)
Obj.ClearRecipients()
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
Else
ErrMsg = ErrMsg & "发送成功!"
End If
End If
response.write ErrMsg
End Sub
%>

复制代码

下面参数网上摘的够详细的
（1）Body（信件正文） : 字符串
如：JMail.Body = "这里可以是用户填写的表单内容，可以取自From。"
（2）Charset（字符集，缺省为"US-ASCII"） : 字符串
如：JMail.Charset = "US-ASCII"
（3）ContentTransferEncoding : 字符串
指定内容传送时的编码方式，缺省是"Quoted-Printable"
如：JMail.ContentTransferEncoding = "base64"
（4）ContentType（信件的contentype. 缺省是"text/plain"） : 字符串
如果你以HTML格式发送邮件, 改为"text/html"即可。
如：JMail.ContentType = "text/html"
（5）Encoding : 字符串
设置附件编码方式（缺省是"base64）。可以选择使用的是"base64", "uuencode" or "quoted-printable"
如：JMail.Encoding = "base64"
（6）Log（Jmail创建的日志，前提loging属性设置为true，见下面） : 字符串
如：使用Response.Write( JMail.Log )语句列出日志信息。
（7）Logging（是否使用日志） : 布尔型
如：JMail.Logging = true
（8）Recipients : 字符串
只读属性，返回所有收件人
如：Response.Write( "" + JMail.Recipients + "" );
（9）ReplyTo（指定别的回信地址） : 字符串
如：JMail.ReplyTo = "qiao198@hotmail.com"
（10）Sender（发件人的邮件地址） : 字符串
如：JMail.Sender = "qiao198@21cn.com"
（11）SenderName（发件人的姓名） : 字符串
如：JMail.SenderName = "一克"
（12）ServerAddress（邮件服务器的地址） : 字符串
你可以指定多个服务器，用分号点开。可以指定端口号。
如果serverAddress保持空白，JMail会尝试远程邮件服务器，然后直接发送到服务器上去。
如：JMail.ServerAddress = "mail.21cn.net.cn"
（13）Subject（设定邮件的标题，可以取自From。）：字符串
如：JMail.Subject = "客户反馈表单"
（14）添加文件附件到邮件
如：JMail.AddAttachment( "c:\anyfile.zip" )
（15）AddCustomAttachment( FileName, Data )
添加自定义附件.
如：JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );
（16）AddHeader( Header, Value )
添加用户定义的信件标头。
如：JMail.AddHeader( "Originating-IP","192.158.1.10" );
（17）AddRecipient（收件人）：字符串
如：JMail.AddRecipient( "qiao198@hotmail.com" );
（18）AddRecipientBCC( Email )，密件收件人：
如：JMail.AddRecipientBCC( "qiao198@hotmail.com" );
（19）AddRecipientCC( Email ) ，抄送收件人：
如：JMail.AddRecipientCC( "" )
（20）AddURLAttachment( URL, 文档名)
下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。
如：JMail.AddURLAttachment( "http://www.chinabs.net/jmail.zip", "jmail" )
（21）AppendBodyFromFile( 文件名) ，将文件作为信件正文：
如：JMail.AppendBodyFromFile( "c:\anyfile.txt" )
(22)AppendText( Text )
追加信件的正文内容，比如增加问候语或者其它信息。
如：JMail.AppendText( "欢迎访问本站！" )
（23）Close() ，强制JMail关闭缓冲的与邮件服务器的连接：
如：JMail.Close()
（24）Execute() ，执行邮件的发送
如：JMail.Execute()

偶尔接些活养家糊口。

使用道具举报