Sbtj.com

Title

闲置设备调剂网站

Description

Excerpted from the website:

"" and pw "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then set ei = Application("em") Session("wem") = "" dim pwwt pwwt = ei.PassWordWaitMinute dim checkret checkret = ei.CheckPassWordEx(un, pw, Request.ServerVariables("REMOTE_ADDR")) if checkret = 0 then Session("tid") = ei.Login(un) Session("wem") = un set ei = nothing if IsEmpty(Application("em_MaxFolders")) and IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then dim mam set mam = server.createobject("easymail.AdminManager") mam.Load Application("em_EnableMDB") = mam.EnableMDB Application("em_MaxFolders") = mam.MaxFolders Application("em_MaxMPOP3") = mam.MaxMPOP3 Application("em_MaxSigns") = mam.MaxSigns Application("em_SystemAdmin") = mam.SystemAdmin set mam = nothing end if Response.Redirect "http://www.sbtj.com/WebEasyMail/welcome.asp" elseif checkret = 2 then set ei = nothing Response.Write "连续三次输入密码错误,请过" & pwwt & "分钟后再试。
" else set ei = nothing Response.Write "密码错误!请再次输入。
" end if end if if Session("wem") "" then set ei = Application("em") ei.Logout Session("wem"), Session("tid") set ei = nothing end if Session("wem") = "" Session("tid") = "" %>
read more

Languages

中文 (Chinese)

Contact

Logos

Logo-sbtj-com.gif

Additional Information

Related Domains

External Links





Retrieved from "http://aboutus.com/index.php?title=Sbtj.com&oldid=37988071"