counter.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 37 行

ASP
37 行
字号 
<html>

<head>

<title>

图像计数器

</title>

</head>

<body>

<br><br><br><br><br><br><br><br><br><br><hr>

<%

dim visitors

whichfile=server.mappath("counter.txt")



set fs=createobject("Scripting.FileSystemObject")

set thisfile=fs.opentextfile(whichfile)

visitors=thisfile.readline

thisfile.close



CountLen=len(visitors)

response.write "<center>你是第"

for i=1 to 6-countLen

	response.write "<img src=num\0.gif></img>"

next 



for i=1 to countlen

	response.write "<img src=num\" & mid(visitors,i,1) & ".gif></img>"

next 

response.write "位访问本站</center>"

visitors=visitors+1



set out=fs.createtextfile(whichfile)

out.writeLine(visitors)

out.close



set fs=nothing

%>

</body>

</html>

counter.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 counter.asp 源码文件，采用 ASP 编程语言编写，共 37 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?