📄 gcounter.asp

📁 项目开发对初学者来说非常重要

💻 ASP

字号:

<%
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock

Function GCounter( counter )
   Dim S, i, G
   S = CStr( counter )  '先将数值转换成字符串
   '逐个取字符串 S 的每个字节,然后串成<IMG SRC=?.gif> 图形标记
   For i = 1 to Len(S)
      G = G & "<IMG SRC=" & Mid(S, i, 1) & ".gif Align=TextTop>"
   Next
   GCounter = G
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>
<body bgcolor="#FFFFFF">
<h2 align="center">欢迎访问star的个人主页</h2>
<hr>
<p align="center">您是本站第 <%=GCounter(Application("counter"))%> 位贵宾！ </p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -