中间件编程

开发平台：

ASP/ASPX

haha.asp：源码内容

							<%
   Const SMTPServerIP = "******"
    Dim strFrom, strTo,strSuject, strBody
    strFrom = request.form("aa")
    strTo =  request.form("email")
    strSubject = request.form("subject")
    strBody = request.form("body")
    
    Dim sch, cdo, cdoConfig
    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
    cdoConfig.Fields.Item(sch & "sendusing") = 2
    cdoConfig.Fields.Item(sch & "smtpserver") = SMTPServerIP
    cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
    cdoConfig.Fields.Update
    Set cdo =  Server.CreateObject("CDO.Message")
    Set cdo.Configuration = cdoConfig
    cdo.From = strFrom
    cdo.To = strTo
    
    cdo.subject = strSubject
    cdo.TextBody = strBody
    
    cdo.Send
    Set cdoConfig = Nothing
    Set cdo = Nothing
    response.write("ok")
%>

						