saveadminmsg.asp

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

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

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

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

ei.errback_subject = trim(request("err_subject"))
ei.errback_text = trim(request("err_text"))
ei.welcome_subject = trim(request("welcome_subject"))
ei.welcome_text = trim(request("welcome_text"))

ei.ReadBack_Subject = trim(request("ReadBack_Subject"))
ei.ReadBack_Text = trim(request("ReadBack_Text"))
ei.Fill_Subject = trim(request("Fill_Subject"))
ei.Fill_Text = trim(request("Fill_Text"))

ei.Virus_Subject = trim(request("Virus_Subject"))
ei.Virus_Text = trim(request("Virus_Text"))

ei.Save

set ei = nothing

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