📄 reonline.asp
字号:
<%response.expires=0%>
<!--#include file="function.asp"-->
<%
response.expiresabsolute=dateadd("s",1,now())
pagefile=request("pagefile")
if session("siteid")="" or isempty(session("siteid")) then
response.write("<font color=""#ffff00"">对不起,您只有重新打开快狗才能上线!</font>")
response.end
end if
if session("username")="" or isempty(session("username")) then
application.lock
application("online")=application("online")+1
application.unlock
session("username")="访客"&application("online")
session("manager")="0"
end if
if find_online_user(session("siteid"))=0 then
call write_online_user(session("siteid"))'写入当前用户信息
if pagefile="user" then
response.write("<script language=""javascript"">")
response.write("location.href=""disp_online_user.asp"";")
response.write("</script>")
else
response.write("<script language=""javascript"">")
response.write("location.href=""disp_online_manager.asp"";")
response.write("</script>")
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -