怎样把本页面的内容发送邮件？

[wzx2275067]

在一个页面上有一个链接
比如：mailto:[e-mail]
想实现把当前页面的内容当做邮件的内容发送，不是地址的发送

[slayerbb]

document.body.innerHTML

[tigerwen01]

先把某页的内容读出：
<%
Set obj = Server.CreateObject("InetCtls.Inet.1")
obj.RequestTimeOut=20

sRequest = trim(Request("txtURL")) '获取某页的URL地址
sText = obj.OpenURL (CStr(sRequest))
'得到某页的内容并保存到变量sText中
sText = "<pre>" & vbcrlf & Server.HTMLEncode(sText) & vbCRLF & "</pre>"

set obj = nothing
%>

然后在使用email方式发送:
<%
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="[e-mail]" '发送方邮箱
objCDOMail.To =[e-mail] '接受方邮箱
objCDOMail.Subject ="邮件发送测试"
objCDOMail.Body =sText '发送页面的内容
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send
Set objCDOMail = Nothing
%>