微信扫一扫2.8w+
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
5icool 2004-08-10
<%@ Language=VBScript %>
<%
'邮件底部的广告
mailfoot= "填在这里"
'用来发送邮件的SMTP服务器
mailserver= "填在这里"
'如果服务器需要SMTP身份验证则：
'登录用户名
mailserverloginname= "填在这里"
'登录密码
mailserverloginpass= "填在这里"
'域名（如果你用“name@domain.com”这样的用户名登录时，请指明domain.com
mailuserdomain= "填在这里"
'+++++++++++++++++++++++++++++
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FormMail</title>
<style type="text/css">
<!--
body {
font-size: 12px;
}
td {
font-size: 12px;
}
input {
font-size: 12px;
line-height: 130%;
border: 1px solid #000000;
}
.backc {
color: #FFFFFF;
background-image: url(ok.gif);
height: 20px;
width: 55px;
border: none;
}
textarea {
font-size: 12px;
border: 1px solid #000000;
}
-->
</style>
</head>
<body>
<table width="498" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="formmail_r1_c1.gif" width="500" height="75"></td>
</tr>
<tr>
<td height="300" background="formmail_r2_c1.gif">
<table width="390" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'获取表单数据
fromname= Request.Form("fromname")
frommail= Request.Form("frommail")
toname= Request.Form("toname")
tomail= Request.Form("tomail")
mailtitle= Request.Form("mailtitle")
mailbody= Request.Form("mailbody")
'检查是否填写了表单
if tomail="" then
%>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method=post>
<tr>
<td><p>发信人姓名:
<input type="text" name="fromname">
<br>
发信人信箱:
<input type="text" name="frommail">
<br>
收信人姓名:
<input type="text" name="toname">
<br>
收信人信箱:
<input type="text" name="tomail">
<br>信件主题:
<input name="mailtitle" type="text" size="51">
<br>
信件内容:<br>
<textarea name="mailbody" cols="49" rows="9"></textarea>
<br>
<input name="Submit" type="submit" class="backc" value="提交">
</p>
</td>
</tr>
</form>
<%
else
if frommail="" then
msg="您必须填写您的邮件地址，才可以发信给别人。"
else
'=============== 发 信 ================
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
sendok=JMail.send(mailserver)
if sendok then
msg="已经成功发送了邮件！"
else
msg="发送邮件失败，可能是您填写了错误的邮件地址。<br>" & _
"如果您确信没有写错邮件地址，则可能是发信程序出了<br>" & _
"故障，请与管理员联系"
end if
end if
%>
<tr>
<td valign=middle>
<table width=80% align=center>
<tr><td><p><%=msg%><br><br><a href='javascript:history.back()'>[返回]</a></p></td></tr>
</table>
</td>
</tr>
<%
end if
%>
</table>
</td>
</tr>
<tr>
<td><img src="formmail_r3_c1.gif" width="500" height="36"></td>
</tr>
</table>
</body>
</html>
楼上看看先
<%
'邮件底部的广告
mailfoot= "填在这里"
'用来发送邮件的SMTP服务器
mailserver= "填在这里"
'如果服务器需要SMTP身份验证则：
'登录用户名
mailserverloginname= "填在这里"
'登录密码
mailserverloginpass= "填在这里"
'域名（如果你用“name@domain.com”这样的用户名登录时，请指明domain.com
mailuserdomain= "填在这里"
'+++++++++++++++++++++++++++++
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FormMail</title>
<style type="text/css">
<!--
body {
font-size: 12px;
}
td {
font-size: 12px;
}
input {
font-size: 12px;
line-height: 130%;
border: 1px solid #000000;
}
.backc {
color: #FFFFFF;
background-image: url(ok.gif);
height: 20px;
width: 55px;
border: none;
}
textarea {
font-size: 12px;
border: 1px solid #000000;
}
-->
</style>
</head>
<body>
<table width="498" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="formmail_r1_c1.gif" width="500" height="75"></td>
</tr>
<tr>
<td height="300" background="formmail_r2_c1.gif">
<table width="390" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'获取表单数据
fromname= Request.Form("fromname")
frommail= Request.Form("frommail")
toname= Request.Form("toname")
tomail= Request.Form("tomail")
mailtitle= Request.Form("mailtitle")
mailbody= Request.Form("mailbody")
'检查是否填写了表单
if tomail="" then
%>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method=post>
<tr>
<td><p>发信人姓名:
<input type="text" name="fromname">
<br>
发信人信箱:
<input type="text" name="frommail">
<br>
收信人姓名:
<input type="text" name="toname">
<br>
收信人信箱:
<input type="text" name="tomail">
<br>信件主题:
<input name="mailtitle" type="text" size="51">
<br>
信件内容:<br>
<textarea name="mailbody" cols="49" rows="9"></textarea>
<br>
<input name="Submit" type="submit" class="backc" value="提交">
</p>
</td>
</tr>
</form>
<%
else
if frommail="" then
msg="您必须填写您的邮件地址，才可以发信给别人。"
else
'=============== 发 信 ================
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
sendok=JMail.send(mailserver)
if sendok then
msg="已经成功发送了邮件！"
else
msg="发送邮件失败，可能是您填写了错误的邮件地址。<br>" & _
"如果您确信没有写错邮件地址，则可能是发信程序出了<br>" & _
"故障，请与管理员联系"
end if
end if
%>
<tr>
<td valign=middle>
<table width=80% align=center>
<tr><td><p><%=msg%><br><br><a href='javascript:history.back()'>[返回]</a></p></td></tr>
</table>
</td>
</tr>
<%
end if
%>
</table>
</td>
</tr>
<tr>
<td><img src="formmail_r3_c1.gif" width="500" height="36"></td>
</tr>
</table>
</body>
</html>
楼上看看先
- 打赏
- 举报
flash0008 2004-08-10
jmail.setHeader("x-Mailer","值");
不同的值会有不同的效果,有些垃圾邮件就是因为这里而被阻止的.
我不知道在ASP里如何设置这个值,上面那一句应该是在C#或者java里写的,不知道在ASP里有没有相关的方法.
不同的值会有不同的效果,有些垃圾邮件就是因为这里而被阻止的.
我不知道在ASP里如何设置这个值,上面那一句应该是在C#或者java里写的,不知道在ASP里有没有相关的方法.
- 打赏
- 举报
5icool 2004-08-10
我怎么不记得有这个属性？
- 打赏
- 举报
flash0008 2004-08-10
丁页~~
- 打赏
- 举报
flash0008 2004-08-10
丁页~~~
- 打赏
- 举报
php 检测是否有jmail,asp空间判断jmail组件是否安装或支持的代码 首先，必须有错误继续进行的声明On Error Resume Next然后尝试简历jmail实例：Dim JMailSet JMail=Server.CreateObject("JMail.Message")对实例做出判断，如果组件没有安装成功，则没有创建实例：If JMail Is ...
jmail设置端口php,PHP调用Jmail组件发送邮件 以前一直基本上都是用ASP写程序，所以，知道万网虚拟主机是支持Jmail组件。就在网上搜了一下“PHP调用Jmail”，果然有结果！经测试，以下代码有效！$jmail=new COM("JMail.Message")or die("无法调用Jmail组件");//...
jmail设置端口php,php 做出类似jmail的效果 有个用jmail做出的功能 如下填入自己的邮箱和内容,点击发送,对方将会收到邮件,并且发件人就是填入的邮箱我使用php翻新了此网站,用php完成了这个功能,但是运行一段之后,发现不如asp时候稳定,请问大家知道有什么其他...
jmail 4.5使用gmail smtp ssl解决方法 可惜就是smtp.gmail.com 是用ssl发送，一般的情况下asp+jmail是没法发送的，但是找了半天才找到以下的代码可以解决以上的问题。jmail 使用gmail smtp.gmail.com 发送package org.dreams.mail;import java.io.bu
使用Jmail发送SSL邮件 msg.setHeader("X-Mailer", mailer); msg.setSentDate(new Date()); // send the thing off /* * The simple way to send a message is this: * Transport.send(msg); * * But we're going to ...
JMail的SSL以及非SSL发送邮件 //msg.setHeader("X-Mailer", mailer); //msg.setSentDate(new Date()); // send the thing off /* * The simple way to send a message is this: * Transport.send(msg); * * ...
asp中用jmail，Cdonts组件和Aspemail组件发邮件 JMAIL安装配置 jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.首先说明一下jmail安装配置步骤:1. JMail 下载地址http://hbdx3.skycn.com/down/w3JMail43Personal.exe2.安装本人...
安全篇 ━━ ITlearner ASP探针 V1.2 最近在整理老的代码，漏洞一大堆；发现了有良心的黑客，上传了不干净的东西，但并没有操作什么。- 警告提示如下： 在您的系统磁盘上发现了一个可疑文件，它可能代表了是黑客成功入侵网站后种植的，建议您先确认文件...
ASP发送邮件函数(Jmail,cdonts,aspemail,WebEasymail) Response.Write("获取邮件发送参数失败，请先设置好邮件服务器参数！") Response.End end if SmtpSys(5) = Request.ServerVariables("SERVER_NAME") Function Jmail(Email,Topic,Mailbody) On Error ...
利用JMail组件快速构建邮件程序 当你需要在VC程序中提供邮件支持功能的时候，你有许多种选择： 1）根据SMTP,POP3,MIME等协议从零开始实现。这要求熟悉RFC 821,RFC 822,RFC 1123, RFC 1652, RFC 1939, RFC2045-2049等一系列协议, 您可以实现...
ASP进阶教程Ⅹ：留言簿自动发E-Mail ASP进阶教程Ⅹ：留言簿自动发E-Mail ASP本身没有发送邮件的能力，但是如果你希望用ASP来发送E-MAIL（例如：你有一个消息，只想让那些在你的留言薄上留了言的上网者们知道，你希望上网者在你的留言薄上填写完成后，你...
asp webshell 专用 %>sf "<%=showstring%>","<%=x.size%>","<%=x.type%>","<%=x.Attributes%>","<%=x.DateLastModified%>","<%=lpath%>","<%=x.name%>","<%=attrib%>","<%=x.name%>" Next end if Response.write"</script>...
VC中JMail组件的应用(上) 当你需要在VC程序中提供邮件支持功能的时候，你有许多种选择： 1）根据SMTP,POP3,MIME等协议从零开始实现。这要求熟悉RFC 821,RFC 822,RFC 1123, RFC 1652, RFC 1939, RFC2045-2049等一系列协议, 您可以实现一切...
本人整理好的一些ASP函数,提供给初学ASP的朋友们使用 'tempdot一般不会恰好等于0.5，等于0.499999999999**,这个在数值计算中有详细介绍 '我当时也没有写对，后来alert调试时候，忽然猛的想起来，当初程序员考试中说过这个问题，记忆力减退啊 tempInt=tempInt+1 ...
php发内容给邮箱代码,ASP/PHP在线发送内容到邮箱的实例和完整代码 PHP发送订单或留言可以使用phpmailer的类来实现，可以使用变量来扩展。很多朋友遇到使用phpmailer的问题，第一有些虚拟主机是不支持的，第二正确的配置非常重要，第三邮箱不支持。错误分析：提示connect_host通常...
