?? savedomain.asp
字號:
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
%>
<%
dim ei
set ei = server.createobject("easymail.domain")
'-----------------------------------------
ei.Load
i = 0
allnum = ei.getcount
i = 0
if trim(request("mode")) = "save" then
do while i < allnum + 1
if trim(request("domain" & i)) <> "" and trim(request("domain" & i)) <> "system.mail" then
ei.AddDomain trim(request("domain" & i))
end if
i = i + 1
loop
elseif trim(request("mode")) = "add" then
do while i < allnum + 1
if trim(request("domain" & i)) <> "" and trim(request("domain" & i)) <> "system.mail" then
ei.AddDomain trim(request("domain" & i))
end if
i = i + 1
loop
elseif trim(request("mode")) = "del" then
do while i < allnum + 1
if trim(request("check" & i)) <> "" and trim(request("domain" & i)) <> "" and trim(request("domain" & i)) <> "system.mail" then
ei.DelDomainByName trim(request("domain" & i))
end if
i = i + 1
loop
end if
ei.Save
set ei = nothing
if trim(request("mode")) = "add" then
response.redirect "showdomain.asp?mode=add&" & getGRSN()
else
response.redirect "ok.asp?" & getGRSN() & "&gourl=showdomain.asp"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -