'自动发送邮件，使用JMAIL
link=objrst("tanwei_link")
email=objrst("tanwei_email")
login_name=objrst("login_name")
login_pwd=objrst("login_pwd")
myemail="你的邮箱"
myname="你想写什么就写什么"
strtitle="您的密码"
'还差域名
myurl="域名"
strRecipientsName = link
            strRecipients = email
            strFrom = myemail
            strFromName = myname
            strSubject = strTitle
            strMessage = link & "　先生/女士：" & vbCrLf & vbCrLf &"　　　　您好！" &vbCrLf & vbCrLf
            strMessage = strMessage & "这封邮件来自 : " & myname & " (" & myemail & ") " & vbCrLf & vbCrLf
            strMessage = strMessage & "我们的网站地址: " & " (" & myurl & ") " & vbCrLf & vbCrLf
            strMessage = strMessage & "您的登录名：" & login_name & vbCrLf & vbCrLf
            strMessage = strMessage & "您的登录密码：" & login_pwd & vbCrLf & vbCrLf
            strsender=strfrom
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
        objNewMail.ServerAddress = "支持邮件的服务器名"
        objNewMail.AddRecipient strRecipients
        objNewMail.Sender = strSender
        objNewMail.Subject = strSubject
        objNewMail.body = strMessage
        objNewMail.priority = 3
        on error resume next '## Ignore Errors
        objNewMail.execute
objnwemail.close
set objnewmail=nothing

jmail是？？？？