20CN网络安全小组论坛 - 编程破解 - 刚学asp，请懂asp的弟兄们进来帮我注释一下这个计数器程序，谢谢。

论坛: 编程破解标题: 刚学asp，请懂asp的弟兄们进来帮我注释一下这个计数器程序，谢谢。

作者: ljsh012 [ljsh012]

论坛用户

刚学asp，请懂asp的弟兄们进来帮我注释一下这个计数器程序，希望详细点，谢谢。
<%
sub application_onstart()
set fs=server.createobject("scripting.filesystemobject")
counter_file=server.mappath("counter.txt") '这里mappath不大懂
set txt=fs.opentextfile(counter_file)‘这里的赋值
application("counter")=txt.readline
txt.close
set application("fs")=fs ‘这里就更高不懂了，是怎么赋值的？
application("counter_file")=counter_file
end sub
sub application_onend()
set fs=application("fs")
counter_file=application("conter_file")
set txt=fs.createtextfile(counter_file,true)
txt.writeline(application("counter"))
txt.close
end sub
%>
<%
if isempty(session("connected")) then
application.lock
application_onstart
application("counter")=application("counter")+1
application_onend
application.unlock
end if
session("connected")=true
%>
‘以下这段程序用图片来代替数字，但我始终看不懂。
<%
function gcounter(counter)
dim s,i,g
s=cstr(counter)
for i=0 to 10-len(s) ‘这里len(s)和10-len(s)是什么意思？
g=g&"<img src=images/0.jpg align=texttop>" ‘这里的g=g&也搞不懂
next
for i=1 to len(s)
j=mid(s,i,1) ‘这里更不懂，mid是什么函数。
g=g&"<img src=images/"&j&".jpg align=texttop>" ‘这里也不懂。
next
gcounter=g ‘这里也奇怪
end function
%>
<html>
<title>counter</title>
<head></head>
<body>
你是本站第<%=gcounter(application("counter"))%>位贵宾！
</body>
</html>

地主发表时间: 04-03-15 22:15

回复: 286 [unique]

版主

<%
sub application_onstart()
set fs=server.createobject("scripting.filesystemobject")
counter_file=server.mappath("counter.txt") '这里mappath是映射服务器实际地址.即转为物理地址。
set txt=fs.opentextfile(counter_file)‘打开硬盘上的文件，txt是对象名。
application("counter")=txt.readline
txt.close
set application("fs")=fs ‘内存全局变量，目的是为了多个程序都能使用这个变量。
application("counter_file")=counter_file
end sub
sub application_onend()
set fs=application("fs")
counter_file=application("conter_file")
set txt=fs.createtextfile(counter_file,true)
txt.writeline(application("counter"))
txt.close
end sub
%>
<%
if isempty(session("connected")) then
application.lock
application_onstart
application("counter")=application("counter")+1
application_onend
application.unlock
end if
session("connected")=true
%>
‘以下这段程序用图片来代替数字，但我始终看不懂。
<%
function gcounter(counter)
dim s,i,g
s=cstr(counter)
for i=0 to 10-len(s) ‘这里len(s)是字符串的长度。这里默认显示10位，比如该显示123,实际显示的是0000000123。此处是显示前置的0。
g=g&"<img src=images/0.jpg align=texttop>" ‘这里的g=g&，把&看成+号。即g=g+....
next
for i=1 to len(s)
j=mid(s,i,1) ‘这里更不懂，mid是取中串。 mid(要取的串，起始位置，个数） mid("abcde",3,2)="cd".
g=g&"<img src=images/"&j&".jpg align=texttop>" ‘读出每一位，并显示对应的数字。
next
gcounter=g ‘函数返回值。
end function
%>
<html>
<title>counter</title>
<head></head>
<body>
你是本站第<%=gcounter(application("counter"))%>位贵宾！
</body>
</html>

鉴于以上，建议你找本VBScript的教程看看。而不要急于去编程。

B1层发表时间: 04-03-16 09:23

回复: ljsh012 [ljsh012]

论坛用户

多谢版主百忙之中对此程序的注释，还有你的建议，我当加倍努力。谢谢。

B2层发表时间: 04-03-16 13:19

论坛: 编程破解