savesysinfo.asp

蓝芒3.0A最新所有功能完整破解版

<!--#include file="passinc.asp" -->

<%
if isadmin() = false then
	response.redirect "noadmin.asp"
end if
%>

<%
dim ei
set ei = server.createobject("easymail.sysinfo")
'-----------------------------------------
ei.Load

ei.ErrSender = trim(request("ErrSender"))

if trim(request("UseNum")) <> "" then
	ei.UseNum = true
else
	ei.UseNum = false
end if

if trim(request("ErrUseNum")) <> "" then
	ei.ErrUseNum = true
else
	ei.ErrUseNum = false
end if

ei.MaxSendNum = trim(request("MaxSendNum"))
ei.ErrMaxSendNum = trim(request("ErrMaxSendNum"))
ei.MaxDate = trim(request("MaxDate"))
ei.ErrMaxDate = trim(request("ErrMaxDate"))
ei.smtpMailMaxSize = trim(request("smtpMailMaxSize"))
ei.pop3MailMaxSize = trim(request("pop3MailMaxSize"))
ei.defaultMailBoxSize = trim(request("defaultMailBoxSize"))

if trim(request("restrictSmtpMailSize")) <> "" then
	ei.restrictSmtpMailSize = true
else
	ei.restrictSmtpMailSize = false
end if

if trim(request("restrictPop3MailSize")) <> "" then
	ei.restrictPop3MailSize = true
else
	ei.restrictPop3MailSize = false
end if

if trim(request("onlyMailFromSystem")) <> "" then
	ei.onlyMailFromSystem = true
else
	ei.onlyMailFromSystem = false
end if

if trim(request("onlyRcptToSystem")) <> "" then
	ei.onlyRcptToSystem = true
else
	ei.onlyRcptToSystem = false
end if

ei.smtpport = trim(request("smtpport"))
ei.pop3port = trim(request("pop3port"))
ei.daytimeport = trim(request("daytimeport"))

if trim(request("canhandlogon")) <> "" then
	ei.canhandlogon = true
else
	ei.canhandlogon = false
end if

if trim(request("canUseIsp")) <> "" then
	ei.canUseIsp = true
else
	ei.canUseIsp = false
end if

ei.ispServerName = trim(request("ispServerName"))

if trim(request("isppop3Port")) <> "" then
	ei.isppop3Port = CInt(trim(request("isppop3Port")))
end if

ei.ispUserName = trim(request("ispUserName"))
ei.ispPassword = trim(request("ispPassword"))


if trim(request("recvByName")) <> "" then
	ei.recvByName = true
else
	ei.recvByName = false
end if

if trim(request("useList")) <> "" then
	ei.useList = true
else
	ei.useList = false
end if

ei.listSender = trim(request("listSender"))


if trim(request("useSmtp")) <> "" then
	ei.useSmtp = true
else
	ei.useSmtp = false
end if

if trim(request("usePOP3")) <> "" then
	ei.usePOP3 = true
else
	ei.usePOP3 = false
end if

if trim(request("useDayTime")) <> "" then
	ei.useDayTime = true
else
	ei.useDayTime = false
end if

ei.POP3DownSleepTime = trim(request("POP3DownSleepTime"))
ei.IspDownSleepTime = trim(request("IspDownSleepTime"))

if trim(request("startKill")) <> "" then
	ei.startKill = true
else
	ei.startKill = false
end if

if trim(request("LogSave")) <> "" then
	ei.LogSave = true
else
	ei.LogSave = false
end if


ei.DNS = trim(request("DNS"))

if trim(request("useLogonPass")) <> "" then
	ei.useLogonPass = true
else
	ei.useLogonPass = false
end if


if trim(request("manageisp")) <> "" then
	ei.manageisp = CInt(trim(request("manageisp")))
end if

if trim(request("backupmode")) <> "" then
	ei.backupmode = CInt(trim(request("backupmode")))
end if

if trim(request("backupdate")) <> "" then
	ei.backupdate = CInt(trim(request("backupdate")))
end if


'----- 3.2.0.1
if trim(request("useStakeOut")) <> "" then
	ei.useStakeOut = true
else
	ei.useStakeOut = false
end if

ei.stakeOutTo = trim(request("stakeOutTo"))


if trim(request("webMailMaxLen")) <> "" then
	ei.webMailMaxLen = CLng(trim(request("webMailMaxLen")))
end if

if trim(request("useAutoMailClean")) <> "" then
	ei.useAutoMailClean = true
else
	ei.useAutoMailClean = false
end if

if trim(request("mailMoveDays")) <> "" then
	ei.mailMoveDays = CInt(trim(request("mailMoveDays")))
end if

ei.mailMoveTo = trim(request("mailMoveTo"))

if trim(request("mailDeleteDays")) <> "" then
	ei.mailDeleteDays = CInt(trim(request("mailDeleteDays")))
end if

if trim(request("useAutoUserClean")) <> "" then
	ei.useAutoUserClean = true
else
	ei.useAutoUserClean = false
end if

if trim(request("forbidUserDays")) <> "" then
	ei.forbidUserDays = CInt(trim(request("forbidUserDays")))
end if

if trim(request("deleteUserDays")) <> "" then
	ei.deleteUserDays = CInt(trim(request("deleteUserDays")))
end if


if trim(request("useMailList")) <> "" then
	ei.useMailList = true
else
	ei.useMailList = false
end if

if trim(request("defaultMailsNumber")) <> "" then
	ei.defaultMailsNumber = CInt(trim(request("defaultMailsNumber")))
end if

if trim(request("MaxRecipients")) <> "" then
	ei.MaxRecipients = CInt(trim(request("MaxRecipients")))
end if


if trim(request("useAuth")) <> "" then
	ei.useAuth = true
else
	ei.useAuth = false
end if

if trim(request("useDistributeISPMail")) <> "" then
	ei.useDistributeISPMail = true
else
	ei.useDistributeISPMail = false
end if


ei.distributeISPMailinglist = trim(request("distributeISPMailinglist"))
ei.timeZone = trim(request("timeZone"))


if trim(request("EnablePreHacker")) <> "" then
	ei.EnablePreHacker = true
else
	ei.EnablePreHacker = false
end if


if IsNumeric(trim(request("bWaitMinute"))) = true then
	ei.bWaitMinute = CLng(trim(request("bWaitMinute")))
end if


if trim(request("EnableLimitSmtp")) <> "" then
	ei.EnableLimitSmtp = true
else
	ei.EnableLimitSmtp = false
end if

if trim(request("EnableLimitPop3")) <> "" then
	ei.EnableLimitPop3 = true
else
	ei.EnableLimitPop3 = false
end if

if trim(request("EnableAutoSpam")) <> "" then
	ei.EnableAutoSpam = true
else
	ei.EnableAutoSpam = false
end if

if trim(request("AutoSpamEnableAdd")) <> "" then
	ei.AutoSpamEnableAdd = true
else
	ei.AutoSpamEnableAdd = false
end if


if IsNumeric(trim(request("MaxMailForSpam"))) = true then
	ei.MaxMailForSpam = CLng(trim(request("MaxMailForSpam")))
end if

if IsNumeric(trim(request("CleanSpamDays"))) = true then
	ei.CleanSpamDays = CLng(trim(request("CleanSpamDays")))
end if


if trim(request("EnableSMS")) <> "" then
	ei.EnableSMS = true
else
	ei.EnableSMS = false
end if

if trim(request("EnableKeywordFilter")) <> "" then
	ei.EnableKeywordFilter = true
else
	ei.EnableKeywordFilter = false
end if


if trim(request("enableScanVirus")) <> "" then
	ei.enableScanVirus = true
else
	ei.enableScanVirus = false
end if

if trim(request("EnableNotifyForVirus")) <> "" then
	ei.EnableNotifyForVirus = true
else
	ei.EnableNotifyForVirus = false
end if


ei.Save

set ei = nothing


response.redirect "ok.asp?" & getGRSN() & "&gourl=showsysinfo.asp"
%>