📄 onlineuser.asp
字号:
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-size: 10.4pt }
td { font-size: 10.4pt }
-->
</style>
</head>
<body bgcolor="#00ced1" style="margin:0">
<br>
<FONT SIZE=-1 COLOR=#6666FF style="">当前在线用户：</FONT>
<%
If application("online")="" Then application("online")=1
Dim num,a(),b,c
num=CStr(application("online"))
b=Len(num)
ReDim a(b)
For c=1 To b
a(c)=mid(num,c,1)
response.write "<img src=image/" & a(c) & ".gif align=absbottom><font color=#6666FF SIZE=-1> 人</font>"
Next
%>
<hr width=100%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -