如何用组件实现自动发送电子邮件?
JMailUploadAutoForm.asp
<html>
<body>
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
<p>撼雪喷云之动发送电子邮件</p>
请填写好表单,点击发送!
<br><br>
您的姓名<br>
<input type="text" size="25" name="name"><br>
电子邮件地址<br>
<input type="text" size="25" name="email"><br>
接收邮件地址<br>
<input type="text" size="25" name="recipient"><br>
您想...<br>
<select name="subject" size="1">
<option value="help">咨询
<option value="hello">问候
<option value="other">其它
</select>
<br>
主题<br>
<input type="text" size="25" name="tipic"><br>
概述<br>
<input type="text" size="25" name="resume"><br>
请输入您的内容<br>
<textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<br>
<br>
附件1<br>
<input type="file" name="attachment1">
<br>
<br>
附件2<br>
<input type="file" name="attachment2">
<br>
<br>
附件3<br>
<input type="file" name="attachment3">
<br>
<br>
<input type="submit" value="发送">
</form>
</b>感谢光临随风起舞!
</font>
</body></html>
JmailUploadAutoFormProcess.asp
<%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")
for i = 0 to upload.form.count-1
if upload.form( i ).isFile then
set attachment = upload.Form( i )
JMail.AddCustomAttachment attachment.filename, attachment.item
' 检查附件并加入邮件.所有其他的form元素被加到邮件里.
else
JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf )
end if
next
Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
' 得到form变量,用上传组件.
JMail.ServerAddress = "mail.intels.net"
' 输入你的SMTP-server.
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Priority = 3
JMail.Execute
%>
<html>
<body>
<BR>
<BR>
<p align="center"><font face="Arial, geneva" size="5">
邮件发送成功!</font></p>
<center>
<font face="Arial, geneva" size="3">
您的邮件已发送至<%= Recipient %><br>
<BR>
</font>
</center>
</body></html>
[1]
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
- 群星.1990-情义无价(TP版)【中唱】【WAV+CUE】
- 马兆骏.1990-心情·七月【滚石】【WAV+CUE】
- 方伊琪.1979-沙鸥(LP版)【星岛全音】【WAV+CUE】
- 蔡琴《醇厚嗓音》6N纯银SQCD【WAV+CUE】
- 陈曦《遇见HQCD》[WAV+CUE]
- 大提琴-刘欣欣《爱的问候》HDCD[WAV+CUE]
- 周耀辉/邓慧中《从什么时候开始》[320K/MP3][95.71MB]
- 周耀辉/邓慧中《从什么时候开始》[FLAC/分轨][361.29MB]
- 蒋荣宗《蒋荣宗ZONG x FOCA 夏日马戏节》[320K/MP3][89.28MB]
- 坣娜.1997-你怎么可以不爱我【巨石】【WAV+CUE】
- 群星.1992-暗恋桃花源电影原声带【滚石】【WAV+CUE】
- 林隆璇.1989-愤怒的情歌【巨石】【WAV+CUE】
- 勤琴《海上花》[DTS-WAV分轨]
- 群星《歌声有故事》[DTS-WAV分轨]
- [发烧人声]群星《邂逅》DTS-WAV