📄 default.asp

📁 集合了学习asp的100个实例

💻 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 + -