asp Jmail发邮件类

<!--#include file="conn.asp" -->
<!--#include file="Fun.asp" -->
<%
'发送邮件类
class SendEmails
'发送
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
end sub
public property let SetFlag(byval v)
flag=v
end property

public property get GFlag()
GFlag=flag
end property

public property let SetMsg(byval m)
info=m
end property

public property get GMsg()
GMsg=info
end property
'得到邮箱服务器设置
private function getEmailset()
set f1=new DbConstrol
OpenConn()
f1.DConn=conn
set rs=f1.GetRs("select * from tbSetMail")
getEmailset=rs.getrows
rs.close
set rs=nothing
closeconn
set f1=nothing
end function

public function Sends()
call postFormfrom()
fromname=getFormStr("fromname")
fromaddress=getFormStr("fromaddress")
toname=getFormStr("toname")
toaddress=getFormStr("toaddress")
title=getFormStr("title")
content=getFormStr("content")
isimportance=getFormStr("isimportance")
if len(fromname)=0 then
Msg "请填写发件人姓名!",0,""
response.End()
end if
if len(fromaddress)=0 then
Msg "请填写发件人地址!",0,""
response.End()
end if
if len(toname)=0 then
Msg "请填写收件人姓名!",0,""
response.End()
end if
if len(toaddress)=0 then
Msg "请填写收件人地址!",0,""
response.End()
end if
if len(title)=0 then
Msg "请填写邮件主题!",0,""
response.End()
end if
if len(content)=0 then
Msg "请填写邮件内容!",0,""
response.End()
end if
if isimportance="1" then
isimportance=1
else
isimportance=3
end if
arr=getEmailset()
MailServerUser=trim(arr(4,0))
M