cdomail.asp

本系统是一套完整游戏金币交易平台,可以建立一个网站实现游戏金币的在线交易

<!--#include file="../fcDatabase/Database.asp"-->
<!--#include file="../pageTag/dict.asp"-->

<%
//CDO邮件发送函数,参数: 1:邮件服务器域名 2:服务器的用户名 3:密码 4:发送人的邮件地址 5:收者的邮件地址 6:邮件标题 7:邮件正文
function SendCDOMail(SMTPServer, SendUserName, SendPassword, Mail_From, Mail_To, Mail_Subject, Mail_TextBody) {
	var cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"; 
	var cdoSendUsingPort=2;
	var cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"; 
	var cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"; 
	var cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"; 
	var cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; 
	var cdoBasic=1; 
	var cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername";
	var cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword";

	var objConfig;		//As CDO.Configuration 
	var objMessage;		//CDO.Message 
	var Fields;			//As ADODB.Fields 

	objConfig = Server.CreateObject("CDO.Configuration"); 
	Fields = objConfig.Fields; 
	with (Fields) {
		Item(cdoSendUsingMethod) = cdoSendUsingPort;
		Item(cdoSMTPServer) = SMTPServer;		//改成可用的外部邮件服务器域名 
		Item(cdoSMTPServerPort) = 25; 
		Item(cdoSMTPConnectionTimeout) = 10; 
		Item(cdoSMTPAuthenticate) = cdoBasic; 
		Item(cdoSendUserName) = SendUserName;	//以上服务器的用户名 
		Item(cdoSendPassword) = SendPassword;	//密码 
		Update();
	}

	objMessage = Server.CreateObject("CDO.Message"); 
	objMessage.Configuration = objConfig; 

	with (objMessage) { 
		From		= Mail_From; 		//改成发送人的邮件地址 
		To			= Mail_To; 			//改成接收者的邮件地址 
		Subject		= Mail_Subject; 	//标题 
		TextBody	= Mail_TextBody		//正文 
		//AddAttachment("C:\Scripts\Output.txt");  //邮件附件 
		Send();
	}

	Fields = null;
	objMessage = null;
	objConfig = null;
}

//邮件发送函数,参数: 1:发送人的邮件地址 2:收者的邮件地址 3:邮件标题 4:邮件正文
function SendMail(Mail_From, Mail_To, Mail_Subject, Mail_TextBody) {
	var SMTPServer, SendUserName, SendPassword;
	var DB = new Database();

	SMTPServer = DICT_GET_BUSINNAME(DB, "G_MAILCONFIG", "cdoSMTPServer");
	SendUserName = DICT_GET_BUSINNAME(DB, "G_MAILCONFIG", "cdoSendUserName");
	SendPassword = DICT_GET_BUSINNAME(DB, "G_MAILCONFIG", "cdoSendPassword");
	
	//Response.Write(SMTPServer+";"+SendUserName+";"+SendPassword);
	SendCDOMail(SMTPServer, SendUserName, SendPassword, Mail_From, Mail_To, Mail_Subject, Mail_TextBody);

	DB.close();
}
%>