\u5728\u7814\u7a76\u4e86\u4e0bcdo.message\u7ec4\u4ef6\u548cjmail\u7ec4\u4ef6\u4e4b\u540e\uff0c\u5c1d\u8bd5\u4e86\u4e0b\uff0c\u53d1\u73b0jmail\u5bb9\u6613\u4e71\u7801\uff0c\u800ccdo.message\u5374\u4e0d\u5927\u4f1a\u53d1\u751f\u4e71\u7801\u73b0\u8c61\u3002<\/p>\n
\u4e3a\u4e86\u8ba9msn spaces\u80fd\u591f\u901a\u8fc7\u90ae\u4ef6\u53d1\u9001\u751f\u6210\u65e5\u5fd7\uff0c
\n\u9996\u5148\uff0c\u8fdb\u5165msn spaces\u4e0b\uff0c\u201c\u9009\u9879\u201d-\u201c\u90ae\u4ef6\u53d1\u5e03\u201d\uff0c\u4e0b\u5f00\u542f\u90ae\u4ef6\u53d1\u5e03\u529f\u80fd\uff0c\u5e76\u4e14\u9009\u62e9\u201c\u7acb\u5373\u53d1\u5e03\u201d\u3002\u8fd9\u6837\u4f60\u5c06\u5f97\u5230\u4e00\u4e2a\u6709\u5bc6\u6587\u7684\u90ae\u4ef6\u5730\u5740\uff0c\u8fd9\u4e2a\u5c31\u662f\u5c06\u6765\u7684\u65e5\u5fd7\u6536\u4ef6\u4eba\uff0c\u5047\u8bbe\u4e3arain518.xxx@spaces.live.com
\n\u5176\u6b21\uff0c\u65b0\u5efa\u4e00\u4e2a\u7a7a\u767dasp\u6587\u4ef6\uff0c\u5176\u5185\u5bb9\u4e3a<\/p>\n
[code]<\/p>\n
<%\npublic Function Send(strTitle,strBriefBody)\n\n\n On Error Resume Next\n\n SendMail="#err"\n err.Clear\n\n Const cdoSendUsingMethod="http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing"\n Const cdoSendUsingPort=2\n Const cdoSMTPServer="http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver"\n Const cdoSMTPServerPort="http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserverport"\n Const cdoSMTPConnectionTimeout="http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpconnectiontimeout"\n Const cdoSMTPAuthenticate="http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpauthenticate"\n Const cdoSMTPEncoding="http:\/\/schemas.microsoft.com\/cdo\/configuration\/languagecode"\n Const cdoBasic=1\n Const cdoSendUserName="http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusername"\n Const cdoSendPassword="http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendpassword"\n\n Dim objConfig ' As CDO.Configuration\n Dim objMessage ' As CDO.Message\n Dim Fields ' As ADODB.Fields\n\n\n\t\t\t\tstrBriefBody1=strBriefBody\n\t\t\t\tstrTitle1=strTitle1\n\n Set objConfig = Server.CreateObject("CDO.Configuration")\n Set Fields = objConfig.Fields\n\n With Fields\n .Item(cdoSendUsingMethod) = cdoSendUsingPort\n .Item(cdoSMTPServer) = "mail.xxx.com" '\u4f60\u7684\u53d1\u9001\u90ae\u4ef6\u6240\u5728\u7684\u90ae\u4ef6smtp\u5730\u5740\n .Item(cdoSMTPServerPort) = 25\n .Item(cdoSMTPConnectionTimeout) = 10\n .Item(cdoSMTPAuthenticate) = cdoBasic\n .Item(cdoSendUserName) = "xxx" '\u4f60\u7684\u53d1\u9001\u90ae\u4ef6\u7684\u767b\u5f55\u540d\n .Item(cdoSendPassword) = "***" '\u4f60\u7684\u53d1\u9001\u90ae\u4ef6\u7684\u5bc6\u7801\n .Update\n End With\n\n Set objMessage = Server.CreateObject("CDO.Message")\n Set objMessage.Configuration = objConfig\n\n\n\n\n With objMessage\n .To = "rain518.xxx@spaces.live.com" '\u7b2c\u4e00\u6b65\u8bbe\u7f6e\u4e2d\u5f97\u5230\u7684\u65e5\u5fd7\u6536\u4ef6\u5730\u5740\n .From = "webmaster@baifaqimei.com" '\u8fd9\u91cc\u663e\u793a\u53d1\u4ef6\u4eba\u662f\u8c01\n .Subject = strTitle\n .HTMLBody = strBriefBody\n\n .Send\n End With\n\n Set Fields = Nothing\n Set objMessage = Nothing\n Set objConfig = Nothing\n if err.number=0 then\n SendMail="#ok"\n End If\n\nend function\n%><\/p>\n
[\/code]
\n\u547d\u540d\u4e3asendmail.asp\u6587\u4ef6<\/p>\n
\u7b2c\u4e09\u6b65\uff0c\u6253\u5f00blogpost.asp\u6587\u4ef6\uff0c\u5728\u7b2c\u4e00\u884c\u52a0\u5165
\n[code]
\n
\n[\/code]<\/p>\n
\u7136\u540e\u518d57\u884c\u5de6\u540e\uff0c\u5728
\n[code]
\npostLog = lArticle.postLog<\/p>\n
[\/code]
\n\u4e4b\u540e\u52a0\u5165\u5982\u4e0b\u4ee3\u7801
\n[code]
\n dim strTitle,strBriefBody,strPre,strid
\n strBriefBody=lArticle.logMessage
\n strTitle=lArticle.logTitle
\n strPre= "<\/p>\n
========== "<\/p>\n \t\tif len(strBriefBody)>300 then \t\t\tstrid=Clng(lArticle.getid())<\/p>\n \t strBriefBody = Replace(strBriefBody,chr(13)&chr(10),"
\u767d\u53d1\u9f50\u7709\u7f51\u81ea\u52a8\u53d1\u9001
==========<\/em><\/strong><\/p>\n
\n\t\t\t strBriefBody =left(strBriefBody,300) & "…"
\n\t\t\t Else
\n\t\t\t strBriefBody = strBriefBody
\n\t\t\t end if<\/p>\n
")
\n strBriefBody= strBriefBody & "<\/p>\n