随笔档案

上次自己做了一个，不成功，看到现成的，先转过来
作者：
frank
原文：http://www.riacn.com/bbs/showthread.asp?threadid=1648
在Flash中使用remoting发邮件很容易，由于目前remoting没有支持asp,所一需要用别的方法来做。一般是用loadvars或者getURL，也很简单。
首先写asp文件:
main.asp:


<%
if request("action") = "send" then
frommail = Request.Form("frommail")
tomail = Request.Form("tomail")
if Request.Form("mailsubject")<>"" then
mailsubject = Request.Form("mailsubject")
else
mailsubject = Request.Form("mailsubject1")
end if
mailbody = Request.Form("mailbody")
MailType = Request.Form("MailType")
response.write(frommail)
response.write(tomail)
response.write(mailsubject)
response.write(mailbody)
response.write(MailType)

if tomail<>"" then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
if MailType = 0 then
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
end if
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
else

sql="select mail from mail"
set rs=conn.execute(sql)
Response.Write("asd" )
while not rs.eof
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
ObjCDOMail.To = rs("mail")
objCDOMail.Subject = mailsubject
if MailType = 0 then
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
end if
objCDOMail.Body = mailbody
objCDOMail.Send
RS.MoveNext
wend
set objCDOMail = Nothing
end if
Response.Write "<script>alert(""Success"");location.href=""main.asp"";</script>"
Response.End
end if
%><title>Send</title>




这个文件已经完成了asp中的发邮件功能，接下去的Flash中的部分，只要把数据穿传给main.asp?action=send.send是这里定义的一个动作。

我在Flash中新建一个按钮。使用两个方法，getURL和LoadVars.send()得到的效果一样。
LoadVars.send()方法：

on (press) {
var my_data:LoadVars = new LoadVars();
my_data.frommail = "youmail@any.com";
my_data.tomail = "receivermail@any.com";
my_data.mailsubject = "asd";
my_data.mailbody = "asdasdasd";
my_data.MailType = "1";
my_data.send("main.asp?action=send", "_self", "POST");
}


getURL方法：

frommail="youmail@any.com"
tomail="receivermail@any.com"
mailsubject="asd"
mailbody="asdasdasd"
MailType="1"
getURL("main.asp?action=send","_self", "POST");


youmail@any.com是发送者的地址
receivermail@any.com是接受者的地址.
Thats all:D