|高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计|--ASP记录点击数的实现！

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

ASP记录点击数的实现！

在HTML中用法

<a href=counter.asp?save=123&url=http://127.0.0.1/>http://127.0.0.1</a>

共点击次数：<script src=view.asp?save=123></script>

counter.asp

*************************

<%

path="d:data"

file=request("save")

url=request("url")

Set fs = CreateObject("Scripting.FileSystemObject")

if fs.FileExists(path & file & ".txt") then

Set thisfile = fs.OpenTextFile(path & file & ".txt", 1, False)

number=thisfile.readline + 1

thisfile.Close

Set outfile=fs.CreateTextFile(path & file & ".txt")

outfile.WriteLine number

outfile.close

set fs=nothing

else

number=1

Set outfile=fs.CreateTextFile(path & file & ".txt")

outfile.WriteLine number

outfile.close

set fs=nothing

end if

response.redirect url

%>

view.asp

***************************

<%

path="d:data"

file=request("save")

Set fs = CreateObject("Scripting.FileSystemObject")

if fs.FileExists(path & file & ".txt") then

Set thisfile = fs.OpenTextFile(path & file & ".txt", 1, False)

number=thisfile.readline

thisfile.Close

set fs=nothing

else

number=0

end if

response.contenttype = "application/x-javascript"

response.write "document.write(""" & number & """);"

%>

本站关键词：

|高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计||高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计||高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计||高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计||高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计||高埗镇洪梅镇道滘镇|厚街镇沙田镇长安镇| 寮步镇大岭山大朗諀黄江镇樟木头凤岗諀塘厦镇谢岗镇清溪諀常平镇桥头镇横沥镇|东坑镇企石镇石排镇|茶山镇莞城东城|万江南城|东莞网络服务|东莞软件开发|东莞软件设计|