aspemail.inc

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<% 
' -------------------------------------
' XcAuciton拍卖网站的ASPEMail邮件功能
' -------------------------------------
' 发送密码的电子邮件给注册用户 - postuser.asp
Sub SendPassEmail(sPass)
    Dim strBody
    strBody = "自动回复邮件: 不需要回复这封电子邮件" & chr(10) & chr(13)
    strBody = strBody & "谢谢您注册 XcAuction拍卖网" & chr(10) & chr(13)
    strBody = strBody & "***** 重要邮件(内含登录密码!) *****" & chr(10) & chr(13)
    strBody = strBody & "用户名: " & sUserName & chr(10) & chr(13)
    strBody = strBody & "密码: " & sPass & chr(10) & chr(13)
    strBody = strBody & chr(10) & chr(13)
    strBody = strBody & "如需更改密码请到网址: " & sAuctPath & "changepassword.asp" 
    strBody = strBody & chr(10) & chr(13)
    strBody = strBody & "欢迎再度造访 XcAuction Lite拍卖网! " & sAuctPath 
    strBody = strBody & chr(10) & chr(13)

    intError = SendASPEmail(sAuctionEmail, sEmail, "拍卖网站的密码!", strBody)
End Sub
' 发送拍卖成功的电子邮件 - viewitem.asp
Sub SendEmails
    Dim strBidSQL, objBidRS, strOwnerSQL, objOwnerRS, strBody, strEmailSendSQL
    strBidSQL = "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("CurrentBidder"))
    Set objBidRS = GobjConnect.Execute(strBidSQL)   ' 拍卖得主的个人资料查询
    strOwnerSQL = "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("ItemOwner"))
    Set objOwnerRS = GobjConnect.Execute(strOwnerSQL) ' 拍卖物所有人的个人资料查询
    ' 发送电子邮件给拍卖得主
    strBody = "*******恭贺您! 在本拍卖网拍得了拍卖物 - " & Chr(10) & Chr(13)
    strBody = strBody & "拍卖项目编号: " & rs.Fields("ItemID") &  Chr(10) & Chr(13)
    strBody = strBody & "拍卖物的名称: " & rs.Fields("ItemTitle") & Chr(10) & Chr(13)
    strBody = strBody & "得标价格    : " & FormatCurrency(rs.Fields("CurrentBid"), 2) & Chr(10) & Chr(13)
    strBody = strBody & "拍卖物所有人: " & objOwnerRS.Fields("Name") & Chr(10) & Chr(13)
    strBody = strBody & "联络地址一  : " & objOwnerRS.Fields("Address1") & Chr(10) & Chr(13)
    If Len(Trim(objOwnerRS.Fields("Address2"))) > 0 Then
       ' 输入第二个地址
       strBody = strBody & "联络地址二  : " & objOwnerRS.Fields("Address2") & Chr(10) & Chr(13)
    End If
    strBody = strBody & objOwnerRS.Fields("City") & ", " & objOwnerRS.Fields("State") & " " & objOwnerRS.Fields("Zip") & " " & objOwnerRS.Fields("Country") & Chr(10) & Chr(13)
    strBody = strBody & "联络的邮件地址: mailto:" & objOwnerRS.Fields("Email") & chr(10) & chr(13)
    strBody = strBody & "请直接回电子邮件给拍卖物所有人联络，以便付款交易" & chr(10) & chr(13)
    strBody = strBody & "谢谢您使用XcAuction" & chr(13)
    strBody = strBody & "http://www.xcent.com"

    intError = SendASPEmail(objOwnerRS.Fields("Email"), objBidRS.Fields("Email"), "赢得拍卖 - " & rs.Fields("ItemTitle"), strBody)
    ' 发送电子邮件给拍卖物所有人
    strBody = "*******恭贺您! 您的拍卖物已经拍卖出 - " & Chr(10) & Chr(13)
    strBody = strBody & "拍卖项目编号: " & rs.Fields("ItemID") &  Chr(10) & Chr(13)
    strBody = strBody & "拍卖物的名称: " & rs.Fields("ItemTitle") & Chr(10) & Chr(13)
    strBody = strBody & "得标价格    : " & FormatCurrency(rs.Fields("CurrentBid"), 2) & Chr(10) & Chr(13)
    strBody = strBody & "拍卖得主    : " & objBidRS.Fields("Name") & Chr(10) & Chr(13)
    strBody = strBody & "联络地址一  : " & objBidRS.Fields("Address1") & Chr(10) & Chr(13)
    If Len(Trim(objOwnerRS.Fields("Address2"))) > 0 Then
       ' 有输入第二个地址
       strBody = strBody & "联络地址二  : " & objBidRS.Fields("Address2") & Chr(10) & Chr(13)
    End If
    strBody = strBody & objBidRS.Fields("City") & ", " & objBidRS.Fields("State") & " " & objBidRS.Fields("Zip") & " " & objBidRS.Fields("Country") & Chr(10) & Chr(13)
    strBody = strBody & "联络的邮件地址: mailto:" & objBidRS.Fields("Email") & chr(10) & chr(13)
    strBody = strBody & "请直接回电子邮件给拍卖物得主联络，以便收款送货" & chr(10) & chr(13)
    strBody = strBody & "谢谢您使用XcAuction" & chr(13)
    strBody = strBody & "http://www.xcent.com"

    intError = SendASPEmail(objBidRS.Fields("Email"), objOwnerRS.Fields("Email"), "结束拍卖 - " & rs.Fields("ItemTitle"), strBody)
    ' 更新数据库已经发送电子邮件
    strEmailSentSQL = "UPDATE Auctions SET EmailsSent = true WHERE ItemID = " & SQLVal(iID)
    GobjConnect.Execute(strEmailSentSQL)
	
    strBody = ""
    objBidRS.Close
    Set objBidRS = Nothing
    objOwnerRS.Close
    Set objOwnerRS = Nothing
End Sub
' 发送已经有更高拍卖价的电子邮件给参与的拍卖者 - placebid.asp
Sub SendOutbidEmail
    Dim stremailSQL, strBody
    stremailSQL = "SELECT ID, Email FROM registration WHERE ID = " & SQLVal(bidRS.Fields("CurrentBidder"))
    Set emailRS = GobjConnect.Execute(stremailSQL)

    strBody = "*******您有兴趣的拍卖物已经有更高价 - " & Chr(10) & Chr(13)
    strBody = strBody & "拍卖项目编号   : " & bidRS.Fields("ItemID") &  Chr(10) & Chr(13)
    strBody = strBody & "拍卖物的名称   : " & bidRS.Fields("ItemTitle") & Chr(10) & Chr(13)
    strBody = strBody & "目前的最高价格 : " & FormatCurrency(iBidPlaced, 2) & Chr(10) & Chr(13)
    strBody = strBody & "如果想继续参与拍卖, 请到" & sAuctPath & "viewitem.asp?ID=" & iItemID & Chr(10) & Chr(13)
    strBody = strBody & "谢谢您使用XcAuction" & chr(13)
    strBody = strBody & "http://www.xcent.com"

    intError = SendASPEmail(sAuctionEmail, emailRS.Fields("Email"), "出价通知 - " & bidRS.Fields("ItemTitle"), strBody)
End Sub
' 使用ASPEmail工具发送电子邮件
Function SendASPEmail(strFrom, strTo, strSubject, strBody)
    	'创建JMail对象
	'set msg = Server.CreateOBject( "JMail.Message" )
	'启用日志记录
	'msg.Logging = true
	'设置邮件的编码
	'msg.Charset = "gb2312"
	'邮件的发送人和姓名
	'msg.From = strFrom
	'msg.FromName = "管理员"
	'添加邮件接收人
	'msg.AddRecipient strTo, "竞标信息" 
	'邮件主题
	'msg.Subject = strSubject
	'On Error Resume Next 
	'msg.Body = strBody
	'If Not msg.Send ( "zhangsan109:[e-mail]" ) Then
	'	Response.Write("<pre>" & msg.log & "</pre>")
	'Else
	'	Response.Write("邮件发送成功")
	'End If
	'SendASPEmail = 1    '返回成功信息

End Function
%>