📄 out
字号:
Public Sub main()
Dim objCookie
Set objCookie = vbsre.mocom.util.Cookie
objCookie("WM_Admin").Column = "Name|Passwd|Power"
objCookie("WM_Admin")("Name") = Empty
objCookie("WM_Admin")("Passwd") = Empty
objCookie("WM_Admin")("Power") = Empty
Set objCookie = Nothing
MyIO.Echo "<html>"
MyIO.Echo "<head>"
MyIO.Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
MyIO.Echo "<meta http-equiv=""Cache-Control"" content=""no-cache, max-age=0"" />"
MyIO.Echo "<meta http-equiv=""refresh"" content=""1;url=admin_login.asp"" />"
MyIO.Echo "<title>" & MyKernel.Config("SiteName") & " - 管理员注销</title>"
MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
MyIO.Echo "</head>"
MyIO.Echo "<body class=""system"">"
MyIO.Echo "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""width:100%;height:100%"">"
MyIO.Echo "<tr>"
MyIO.Echo "<td align=""center"" valign=""middle"">"
MyIO.Echo "<table width=""300"" border=""1"" cellpadding=""2"" cellspacing=""0"" bordercolor=""#000000"" style=""border-collapse:collapse"">"
MyIO.Echo "<tr>"
MyIO.Echo "<td class=""winT0""><b>" & MyKernel.Config("SiteName") & " - 管理员注销</b></td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td align=""center"">"
MyIO.Echo "<font color=""#0000FF"">您已成功退出后台管理</font><br/>"
MyIO.Echo "如果您的浏览器不支持重定向,请<a href=""admin_login.asp"" target=""_top"">点此退出</a>"
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "</table>"
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "</table>"
MyIO.Echo "</body>"
MyIO.Echo "</html>"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -