关于asp+jmail发送邮件的问题(50分，见者有分)
现在有一个邮件模板,怎么用asp+jmail把这个模板里面的内容更改掉,再把这个模板网页发送到对方邮箱去啊?  

(请给出详细的代码或者加我QQ：2905754说聊)

------解决方案--------------------
[个人意见，仅供参考]

问题1：
用Replace 将邮件模版的内容替成为指定内容

问题二

public Sub SendJMail(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject( "JMAIL.SMTPMail ") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312 " '邮件文字的代码为简体中文
jmail.ContentType = "text/html " '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
End Sub

------解决方案--------------------
Function ReadFile(fileName)
Set fso = CreateObject( "Scripting.File "& "SystemObject ")
Set ts = fso.OpenTextFile(Server.MapPath(fileName), 1)
str=ts.ReadAll
ts.Close
Set ts=Nothing
Set fso=Nothing
ReadFile=str
End Function

Topic= "主题 "
Mailbody=ReadFile( "邮件模板地址 ")

On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject( "JMail.Message ")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312 "
JMail.ContentType = "text/html "
JMail.MailServerUserName = "aaaa " '您的邮件服务器登录名
JMail.MailServerPassword = "aaaa " '登录密码
JMail.Priority = 1
JMail.From = "aaaa " '发邮箱
JMail.FromName = Request( "UserName ") '收邮箱
JMail.AddRecipient Request( "UserName ") '收邮箱
JMail.Subject = Topic '主题
JMail.Body = Mailbody '内容
JMail.MailDomain = "aaaa " '发邮箱
JMail.Send ( "aaaa ")
Set JMail = Nothing
sendmail= "OK "
If Err Then sendmail= "False "

response.Write ( " <script> alert( '成功给你朋友发送邮件！ '); </script> ")
response.Write ( " <script> window.history.back(); </script> ")
response.End
------解决方案--------------------
看你怎么替换了
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。

下面的示例利用 Replace 函数返回字符串:

Dim MyString

MyString = Replace( "XXpXXPXXp ", "p ", "Y ") '二进制比较从字符串左端开始。返回 "XXYXXPXXY "。

MyString = Replace( "XXpXXPXXp ", "p ", "Y ", '文本比较从第三个字符开始。返回 "YXXYXXY "。3，, -1, 1)


看不懂我也没有办法
------解决方案--------------------
UOP
------解决方案--------------------
很简单啊
加我MSN:hero_201422@hotmail.com