ASP的问题(100分)

  • 主题发起人 主题发起人 WuPing
  • 开始时间 开始时间
W

WuPing

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在网页上建立表单,相关内容如下:
姓 名:
公司名称:
电 话:
传 真:
公司地址:
电子邮件:
留言标题:
详细内容:
这里有个提交的按钮, 按提交后,上述的内容会自动成邮件形式发往指定的邮件地址...
各位有没有相关的源码....谢谢!
 
自己写。不过也有现成的,现在这个世界什么没有啊。你去搜索任意一个网上发送 mail
的组件,里面都会有例子代码的。很简单,但具体的对象调用可能会不同,所以,必须
与组件配合,效果才最好。
 
谢谢小雨哥,但我刚刚开始使用ASP,实在是一穷二白,还请您明示! 因为很急的需要!
 
其实很简单的,就是在表单的Action 里面填写 mailto:1111@sina.com就可以了
这样会启动你的客户端邮件服务器发送邮件的
 
但是这样发送的是没有格式的,如果需要格式的话,你必须写很多代码,还要有一个支持组件功能的web服务器才行,因为一般这样的代码都是利用组件实现的
 
mailto:1111@sina.com这种方式我早就会了,我只是希望从SERVER的内部发送,而不必要启动CLIENT的邮件程序,现在的电脑很多人都不用OE的,都是上网去发邮件的....你看该如何呢,急啊??
 
以JMail為例,這個函數可以完成發送郵件功能;
function sendMail(to,cc,bcc,subject,content)
{
var jMail=new ActiveXObject("JMAIL.Message");
jMail.silent=true;

jMail.logging=true;
jMail.Charset="gb2312";
jMail.ContentType="text/html";
jMail.From="webmaster@programmerlife.com";
jMail.MailServerUserName="webmaster";
jMail.MailServerPassword="******";
for (var i=0;i<=to.length-1;i++)
{
jMail.AddRecipient(to);
}
for (var i=0;i<=cc.length-1;i++)
{
jMail.AddRecipientCC(cc);
}
for (var i=0;i<=bcc.length-1;i++)
{
jMail.AddRecipientBCC(bcc);
}
jMail.Priority=1;

jMail.Subject=subject;
jMail.Body=content;
jMail.AddRecipientBCC(to);
jMail.AddRecipientCC(to);
var success=jMail.send("smtp.progammerlife.com");
jMail.close();

return success;
}
 
一穷二白?哈哈哈哈,说得真可怜的样子。好吧,搁不住心软,写一个给你作参考吧:
<%
''''''''' 先进行一些 http 请求处理,应该会弄吧,略过 ''''''''''''''''''''
''''''''' 然后先把需要的信息处理好,下面是例子样式 ''''''''''''''''''''
FromMail="My@Hotmail.com" ' 发送者的邮件地址,主要便于收信人回复
ToMail="User@Mail.net" ' 收信人地址
Topic="RE:" &amp;
"留言标题" ' 在主题栏里显示的文字
Content="姓 名: " &amp;
vbCrlf ' 格式化邮件内容文字,VB 语言会写吧
Content=Content &amp;
"公司名称:" &amp;
vbCrlf ' 这些句子的写法建议你按我的写法老老实实写
Content=Content &amp;
"电 话:" &amp;
vbCrlf
Content=Content &amp;
"传 真:" &amp;
vbCrlf
Content=Content &amp;
"公司地址:" &amp;
vbCrlf
Content=Content &amp;
"电子邮件:" &amp;
vbCrlf
Content=Content &amp;
"留言标题:" &amp;
vbCrlf
Content=Content &amp;
"详细内容:" &amp;
vbCrlf
''''''''' 下面使用 Windows 2000 自带的 Mail 组件发送 ''''''''''''''''''''
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send FromMail,ToMail,Topic,Content
Set MailObject=nothing
%>
上面是按照 asp 格式写的,别和 Delphi 混起来,' 是注释标志,<%%> 是 asp 代码块,
其它语法按照 VB 写,不过正式代码也应该考虑错误处理比较好。
只能提供这么多啦,再多就等于我给你写一个啦。
 
多人接受答案了。
 
后退
顶部