inc.asp

XMAIL相关工具

<%
'********************************************
'** FileName:	inc.asp
'** Author: 	Zhou Bo		Email:[e-mail]
'** Date: 		2001-03-04
'**
'**
'********************************************

ServerAddress="localhost"          'You MUST set this as your xmail server address
ServerPort="6017"                  'You MUST set this as your xmail server port

MailAddress="localhost"            'The Default Mail Server Address
MailPort="110"                     'The Default Mail Server Port

cpUserID="zhoubo"						  '	The Admin User for changePassword
cpUserPass="1234"                     ' The Admin Password for ChangePassword

dim xmailadmin,xmail

if session("Login")="AdminLogin" then
	Set xmailadmin = Server.CreateObject("eyeXMail.CtrlClnt") 
	xmailadmin.ServerAddress = ServerAddress
	xmailadmin.ServerPort = ServerPort
	xmailadmin.ServerUserID = session("UserName")
	xmailadmin.ServerPassword = session("Password")
else
	Set xmail = Server.CreateObject("eyeXMail.POP3")
	xmail.ServerAddress = MailAddress
	xmail.ServerPort = MailPort
	xmail.username=session("UserName")
	xmail.Password=session("Password")
end if


function fmResult(result)        'Replace the (")
	fmResult=replace(result,"""","")
end function
function fmResult2(result)        'Replace the (")
	fmResult2=chr(34) & result & chr(34)
end function

%>