首页 相关文章 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 objCo...[ 查看全文 ]

2016-01-29 标签:

LINE 的计数器源程序(附源代码)的相关文章

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