📄 default.asp
字号:
<html>
<body bgcolor=#c1f7d8>
<br><br>
<p>
<dl>
<dd><div align=center style="font-size:xx-large"><font color="crimson">
<p>BBS论坛</p></font></div></dd>
</dl>
<br><br>
<p align=center style="font-size:xx-large"><font size=4>欢迎访问BBS论坛</font></p>
<center>
你是第
<%
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
位访问者
</center>
<hr>
<table align=center border=0 width=630>
<tr>
<td width=20% align=center><a href="register.htm">[会员注册]</a></td>
<td width=20% align=center><a href="login.htm">[会员登录]</a></td>
<td width=20% align=center><a href="visitor.htm">[游客访问]</a></td>
<td width=20% align=center><a href="help.htm">[帮助信息]</a></td>
<td width=20% align=center><a href="leavemessage.htm">[请你留言]</a></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -