%@ language=VBScript %> <% if Request("menu") = "login" then call login() elseif Request("menu") = "logout" then call logout() else call index() end if sub index() %>
| <% call htmlend() end sub sub login() password = Request.form("password") save = Request.form("save") if password <> passwords then message=message&"* 您的管理口令不正确!\n" end if if message <> "" then call error(""&message&"") Response.end end if if save <> "" then Response.cookies("password") = password Response.cookies("save") = save else Response.cookies("password") = "" Response.cookies("save") = "" end if Response.cookies("admin") = password Response.redirect "administer.asp" end sub sub logout() Response.cookies("admin") = "" Response.cookies("password") = "" Response.cookies("save") = "" Response.redirect "index.asp" end sub %> |