<%
dim conn
db="data/data.asp" '数据库文件位置
set conn=server.createobject("ADODB.CONNECTION")
'Access 数据库连接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
sub CloseConn()
	conn.close
	set conn=nothing
end sub
Function SendJmail(Email,Topic,MailBody)

     Dim JMail
     'on error resume next
     Set JMail = Server.CreateObject("JMail.SMTPMail")
     JMail.LazySend            = true
     JMail.silent            = true
     JMail.Charset            = "gb2312"
     JMail.ContentType      = "text/html"
     JMail.Sender            = "seaboy@b2bxxx.com" '改为你的邮箱
     JMail.ReplyTo            = Email    ''改为你的邮箱
     JMail.SenderName      = "jmail邮件发送"
     JMail.Subject            = Topic
     JMail.SimpleLayout      = true
     JMail.Body            = MailBody
     JMail.Priority            = 1
     JMail.AddRecipient Email
     JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
     If JMail.Execute() = false Then
           SendJmail = 0
     Else
           SendJmail = 1
     End If
     JMail.Close
     Set JMail = Nothing

End Function
%>