光缆的基本结构是什么:JS调用ASP计数器

语法格式为：
document.write('<%=counter%>')

下面是ASP+文本计数器代码：
首先，在要引用JS的网页中加入<script language="JavaScript" src="count.asp">
</script>
然后在同一目录中新建文件count.txt,输入任何数值；
再新建count.asp,内容如下：

<%
'计数器程序作者是jelin；信箱:lgjie@163.com；qq25366492。
'由yanjibao,yanjibao@163.com,QQ476669555)修改为javascript版本。

option explicit
dim fs,filename,txt,content,total,counter_lenth
counter_lenth=10 '设置显示数据的最小长度，如果小于实际长度则以实际长度为准
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
if not fs.FileExists(filename) then
fs.CreateTextFile filename,True,True
set txt=fs.OpenTextFile(filename,2,true)
txt.write 0 '如不存在保存数据的文件则创建新文件并写入数据0
set fs=nothing
end if

set txt=fs.OpenTextFile(filename)
If txt.AtEndOfStream Then
Application("Counter")=0 '如果文件中没有数据，则初始化Application("Counter")的值（为了容错）
else
Application("Counter")=txt.readline
end if

Application.Lock
Application("Counter") = Application("Counter") + 1
Application.UnLock

Function save_ '保存计数函数
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
content=Application("Counter")
set txt=fs.OpenTextFile(filename,2,true)
txt.write content
set fs=nothing
End Function

save_ '调用保存函数保存数据

Function Digital ( counter ) '显示数据函数
Dim i,MyStr,sCounter
sCounter = CStr(counter)
For i = 1 To counter_lenth - Len(sCounter)
MyStr = MyStr & "0"
'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\0.gif>" '如有图片，可用此语句调用
Next
For i = 1 To Len(sCounter)
MyStr = MyStr & Mid(sCounter, i, 1)
'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\" & Mid(sCounter, i, 1) & ".gif>" '如有图片，可用此语句调用
Next
Digital = MyStr
End Function

Function read_ '读取计数函数
set fs=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("count.txt")
set txt=fs.opentextfile(filename,1,true)
total=txt.readline
total=cint(total)
'response.write total
response.write Digital (total) '调用显示函数
set fs=nothing
End Function

%>document.write("<%read_%>");