LINE 的计数器源程序(附源代码)

泰尼斯—凡

泰尼斯—凡

2016-01-29 18:08

LINE 的计数器源程序(附源代码),LINE 的计数器源程序(附源代码)
  <%
bUseImages = CBool(Request.QueryString("images"))
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".dat")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
If bUseImages Then
For I = 1 to Len(iCount)
Response.Write "<IMG src="http://img.jcwcn.com/attachment/portal"
展开更多 50%)
分享

猜你喜欢

LINE 的计数器源程序(附源代码)

ASP
LINE 的计数器源程序(附源代码)

网络精英计数器源程序

ASP
网络精英计数器源程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

网页计数器的程序

ASP
网页计数器的程序

php的计数器程序

PHP
php的计数器程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

js计数器代码

Web开发
js计数器代码

jsp计数器代码

Java JAVA基础
jsp计数器代码

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

内核上的dns服务应答可以工作了

内核上的dns服务应答可以工作了

巧解燃眉之急:Word不能打开WPS文档

巧解燃眉之急:Word不能打开WPS文档
下拉加载更多内容 ↓