给个发mail的
<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
cm.From="from@test.com"
'设置发信人的邮箱
cm.To="*****@163.com"
'设置收信人的邮箱
cm.Subject="我发现一个可以在线订阅RSS的网站,以后不用再安装什么软件了。"
'设定邮件的主题
'cm.TextBody="http://www.myvicy.com/"
'上面是使用普通的文本格式发送邮件,只能是文字,不能支持html,所以这里不用