|
|
主题: 用ASP编写一个在线发送邮件的程序
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#12002/10/25 9:34:40
用ASP编写一个在线发送邮件的程序
把表单所填写内容通过邮件函数发送到指定的信箱.
主要功能如下:
表单有"姓名","电话","电子邮件","从事工作","人个简介"这几项,这几项都不能为空,若那一项为空的话,就给出相应的提示并且"电子邮件"这一项必须带有@,然后通过mail()把以上所有内容发送到qing-studio163.com这个信箱中.
请这里的高手给我编写一个(最好在代码中有注解),我好研究一下.
谢谢~~!!
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#22002/10/25 10:48:40
<% if Request.Form("uname")<>"" then uname=Request.Form("uname") uemail=Request.Form("uemail") uphone=Request.Form("uphone") upostcode=Request.Form("upostcode") companyname=Request.Form("companyname") body=":" & uname & chr(13) & chr(10) body=body & "电子邮件:" & uemail & chr(13) & chr(10) body=body & "电话:" & uphone & chr(13) & chr(10) body=body & "工作单位:" & upostcode & chr(13) & chr(10) body=body & "人个简介:" & companyname & chr(13) & chr(10) set mymail =server.CreateObject("CDONTS.NewMail") mymail.BodyFormat=0 mymail.cc=uemail mymail.From=uname mymail.To="qing-studio@163.com" mymail.Subject="无主题" mymail.Body=body mymail.Send set mymail=nothing %> <% response.End end if %> <% end if end if %>
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#32002/10/25 13:14:43
谢了
老大你真伟大~!~~!1``1`1`1
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#52002/10/25 13:50:42
老大你的是QQ多少?
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#62002/10/25 13:52:28
请问老大这个能实现吗
小弟有这样一个问题:
在一个表单里实现上面是各种"姓名""信箱""电话""地址"等信息
发送到比如说是aa@aa.com/bb@bb.com/cc@.com三个邮件
在邮件前面有一个单选框选择某个邮件
然后点击"发送"就发送到指定信箱
请问老大用什么方法实现!!
能用javascript实现吗>>>>>>>>>>
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#72002/10/25 14:15:32
用不着javascript的
1.增加发送email表单
2.将mymail.To="qing-studio@163.com"改为
mymail.To=request.form("to_mail")
ok
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#82002/10/25 15:25:08
老大能说清楚一点吗??
我不懂啊
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#92002/10/25 15:28:39
<% if Request.Form("uname")<>"" then uname=Request.Form("uname") uemail=Request.Form("uemail") uphone=Request.Form("uphone") upostcode=Request.Form("upostcode") companyname=Request.Form("companyname") body=":" & uname & chr(13) & chr(10) body=body & "电子邮件:" & uemail & chr(13) & chr(10) body=body & "电话:" & uphone & chr(13) & chr(10) body=body & "工作单位:" & upostcode & chr(13) & chr(10) body=body & "人个简介:" & companyname & chr(13) & chr(10) set mymail =server.CreateObject("CDONTS.NewMail") mymail.BodyFormat=0 mymail.cc=uemail mymail.From=uname mymail.To=request.form("to_mail") mymail.Subject="无主题" mymail.Body=body mymail.Send set mymail=nothing %> <% response.End end if %> <% end if end if %>
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#102002/10/25 17:22:53
老大还是没用啊
我要单选框啊
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#122002/10/28 17:17:24
只有一个单选框啊
老大~!!!
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#132002/10/28 17:57:21
不明白你的意思,
只有一个你怎么选择邮件地址的?
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#142002/10/28 18:39:23
老大只有一个单选框啊 还有下面出错信息>>>....... 错误类型： Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句 .../mail2.asp, line 173 end if 浏览器类型： Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 网页： ....../mail2.asp <% if Request.Form("uname")<>"" then uname=Request.Form("uname") uemail=Request.Form("uemail") uphone=Request.Form("uphone") upostcode=Request.Form("upostcode") companyname=Request.Form("companyname") body=":" & uname & chr(13) & chr(10) body=body & "电子邮件:" & uemail & chr(13) & chr(10) body=body & "电话:" & uphone & chr(13) & chr(10) body=body & "工作单位:" & upostcode & chr(13) & chr(10) body=body & "人个简介:" & companyname & chr(13) & chr(10) set mymail =server.CreateObject("CDONTS.NewMail") mymail.BodyFormat=0 mymail.cc=uemail mymail.From=uname mymail.To=request.form("to_mail") mymail.Subject="无主题" mymail.Body=body mymail.Send set mymail=nothing %> <% response.End end if %> <% end if end if %>
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#152002/10/28 18:48:56
哦,忘记跟你说了,把最下面的
<%
end if
end if
%>给删除就行
还有:你是要几个单选按钮?
|
