首页 相关文章 网络精英计数器源程序

网络精英计数器源程序

使用了imagelib组件!
<%
site_id=Request.QueryString("site_id")
if isempty(site_id) then
Response.End
end if

Set Sistema = CreateObject("Scripting.FileSystemObject")
set ILIB = server.createobject("Overpower.ImageLib")
path=server.MapPath("../保存计数文件的路径/")
CounterFile=path & "\count_"& site_id &".txt"
contagem = 0
if Sistema.FileExists(counterfile) then
Set arquivo = Sistema.GetFile(counterfile)
Set texto = arquivo.OpenAsTextStream(1, -2...[ 查看全文 ]

2016-01-29 标签:

网络精英计数器源程序的相关文章

手机页面
收藏网站 回到头部