东方IT电脑救援俱乐部博客网
<%
Response.expires = 0
Response.expiresabsolute = now() - 1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
Dim username,password,show_login,CookieDate,fromurl,action
action=request("action")
if action<>"showindexlogin" and action<>"showjs" then
if oblog.checkuserlogined() then response.Redirect("user_index.asp")
end if
username=oblog.filt_badstr(trim(request("username")))
password=trim(request.form("password"))
CookieDate=trim(request("CookieDate"))
fromurl=trim(request("fromurl"))
if username<>"" or request("chk")="1" then
call sub_chklogin
else
if action="showindexlogin" then
call sub_showindexlogin()
elseif action="showjs" then
blogurl=oblog.CacheConfig(3)
call sub_showindexlogin()
else
call sub_showlogin()
end if
end if
sub sub_showlogin()
%>