唐高宗与魏国夫人:ASP在线发E-mail

从网上得到这个代码,怎么用?请知道的人帮帮忙.感激!
<%
Function JMail(Send_From,Send_To,Send_Subject,Send_Body)
'调用JMail组件
'发送E-mail函数
'参数：
'Send_From-发送者信箱
'Send_To-接受者信箱
'Send_Subject-邮件主题
'Send_Body-邮件内容
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

' 发送者信息（可用变量方式赋值）
JMail.From = Send_From ' 发送者邮箱
JMail.FromName = "管理员" ' 发送者姓名
JMail.Subject = Send_Subject ' 邮件主题

' 身份验证
'JMail.MailServerUserName = "user" ' 身份验证的用户名
'JMail.MailServerPassword = "password" ' 身份验证的密码

' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' 加入一个收件人【变量Send_From：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(Send_From)

' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = UBBCode(Send_Body)
JMail.Body = HTMLDecode(UBBCode(Send_Body))

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'JMail.Send("user:password@smtp.21cn.com")
SendInfo=JMail.Send(Send_To)

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
End Function

Function Send_Mail(Send_From,Send_To,Send_Subject,Send_Body)
'调用Windows自带NewMail组件
'发送E-mail函数
'参数：
'Send_From-发送者信箱
'Send_To-接受者信箱
'Send_Subject-邮件主题
'Send_Body-邮件内容
Dim mailObject
Set mailObject = Server.CreateObject("CDONTS.NewMail")
mailObject.BodyFormat = 0
mailObject.MailFormat = 0
mailObject.From = Send_From
mailObject.To = Send_To
mailObject.Subject = Send_Subject
mailObject.Body = Send_Body
mailObject.Send()
Set mailObject = Nothing

If Err Then
Response.Write "<script language=javascript>alert('Error:"& Err.Number & Err.Description &"对不起，邮件发送失败！：（');</script>"
Else
Response.Write "<script language=javascript>alert('恭喜，邮件发送成功！^_^');</script>"
End If
End Function %>
谢谢flashmayi和zwb001..
zwb001,我这不能用QQ
要不你发到我邮箱:sevei@126.com
谢谢.
是网络公司买的空间,不知道支不支持JMAIL,
如果不支持的话,有没其它办法实现发EMAIL的功能?