计数器
在我的主页（index.htm）中插入代码：
<script language="JavaScript" src="counter.asp"></script>
然后编写了一个计数器程序counter.asp代码附下：
但是我的页面就是执行不了
好像应该在asp中输出javaScript代码
上述程序有什么错误呢？？？
（实现计数的输出应该是数字图片）
问题点数：80、回复次数：15Top
1 楼ldqiao（友友）回复于 2002-10-24 11:16:44 得分 0
<%
application.lock
Dim fsoObject
Dim tsObject
Dim filObject
Dim lngVisitorNumber
Dim intDisplayDigitsLoopCount
On Error Resume Next
lngVisitorNumber = 0
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("counter.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
If Session("lngSessionVisitorNum") = "" Then
lngVisitorNumber = lngVisitorNumber + 1
Session("lngSessionVisitorNum") = lngVisitorNumber
Else
Session("lngSessionVisitorNum") = lngVisitorNumber
End if
Set tsObject = fsoObject.CreateTextFile((Server.MapPath("counter.txt")), True)
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
Response.Write "<img src=""images/"&Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
Next
application.unlock
%>
Top
2 楼tdl982324（最爱宝宝的笨熊）回复于 2002-10-24 11:19:55 得分 10
<script language="JavaScript" src="counter.asp"></script>
==>
<!--#include file="counter.asp"-->Top
3 楼freezwy（网络自由人）回复于 2002-10-24 11:23:33 得分 0
你输出的时候必须符合JS的语法，应该这样
Response.Write "document.write('<img src=images/"&Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif')"
Top
4 楼chonboy（一只来自南方的羊）回复于 2002-10-24 11:30:26 得分 10
如果输出是图片
<script language="JavaScript" src="counter.asp"></script>
->
<img src="Counter.asp">
Top
5 楼ldqiao（友友）回复于 2002-10-24 15:27:30 得分 0
再问： freezwy(网络自由人)
为何要输出符合JS的语法？？？
上面给出的代码有问题么？？？Top
6 楼ldqiao（友友）回复于 2002-10-24 16:12:22 得分 0
好像仅改变输出语法仍然没有作用
浏览器依然在等待…………Top
7 楼chonboy（一只来自南方的羊）回复于 2002-10-24 18:09:51 得分 10
浏览器依然在等待…………？
你写死循环了？
把Counter.asp内容帖出来看看Top
8 楼moqijun（百分比）回复于 2002-10-24 18:13:10 得分 10
<!--#include file="counter.asp"-->Top
9 楼skydg（菜鸟.NET）回复于 2002-10-24 18:24:40 得分 10
我只看了后面一行，其他正不正确就不知道了，但输出时应该是这样的：
原：
For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
Response.Write "<img src=""images/"&Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
Next
dim str
For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
str=str+ "<img src=""images/"&Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
Next
response.write "document.write ("&Chr(34)&str&Chr(34)&")"
你的原程序没错的话，这里就可以正常使用<script....>了Top
10 楼ldqiao（友友）回复于 2002-10-24 19:30:44 得分 0
尝试了好多，只有这样的代码才能显示：
<%
i=100
Response.Write "document.write('" & i & "')"
%>
其他的都在等待
？？？？？？？？？Top
11 楼ldqiao（友友）回复于 2002-10-25 09:02:12 得分 0
还没有解决，
继续求助!!!Top
12 楼a202（小飞）回复于 2002-10-25 09:06:22 得分 10
<%
application.lock
application("counter")=application("counter")+1
application.unlock
%>
<p>总访问人数为：<%response.write application("counter")%></p>
Top
13 楼ldqiao（友友）回复于 2002-10-25 10:38:21 得分 0
高手看看这个问题在什么地方？？？
建立的文件如下：（interDev）
index.asp
global.asa
count文件夹
images文件夹（以及0.gif文件…………）
然后在index.asp文件中代码如下：
<%@ Language=VBScript %>
<html>
<head>
<title>计数器</title>
</head>
<body>
<%
s=cstr(application(“visitor”)+10 ^8)
s=mid(s,2,8)
for i=1 to 8
response.write "<img src='images/"&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
</body>
</html>
在golbal.asa中的代码
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
else
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline+1
ts.close
end if
application(“visitor”)=s
end sub
sub session_onstart
session.timeout=20
application(“visitor”)=application(“visitor”)+1
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline (cstr(application(“visitor”)))
ts.close
end sub
但是index.asp就是不能显示结果！！！
如能解决，非常感激！！
qq：8678155
huyueyou@sohu.com
感激Top
14 楼fox_small（拉拉）回复于 2002-10-25 11:20:19 得分 0
upTop
15 楼chonboy（一只来自南方的羊）回复于 2002-10-27 13:07:16 得分 20
修改通过
//Global.asa
<SCRIPT LANGUAGE="vbScript" runat=server>
Sub Application_Onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=server.createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
else
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline+1
ts.close
end if
application("visitor")=s
End sub
Sub Session_Onstart
session.timeout=20
application("visitor")=application("visitor")+1
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=server.createobject("scripting.filesystemobject")
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline (cstr(application("visitor")))
ts.close
End Sub
</SCRIPT>
//Index.asp
<%@ Language=VBScript %>
<html>
<head>
<title>计数器</title>
</head>
<body>
<%
s=cstr(application("visitor")+10 ^8)
s=mid(s,2,8)
for i=1 to 8
response.write "<img src='images/"&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
</body>
</html>Top
