LINE 的计数器源程序（附源代码） -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → LINE 的计数器源程序（附源代码）

LINE 的计数器源程序（附源代码） 时间：2004/11/7 4:05:00来源：本站整理作者：蓝点我要评论(0): <%

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 "
Response.Write Mid(iCount, I, 1)

Response.Write ".gif"" ALT="""

Response.Write Mid(iCount, I, 1)

Response.Write """ width=20 height=27>"

Next

Else

Response.Write iCount

End If

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。