LINE 的计数器源程序（附源代码）
创建日期：2007年12月28日 来自：knowsky 浏览：439次 作者：匿名
<%
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=""./images/digit_"
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
%>
责编：aoaob
相关搜索：
LINE 的计数器源程序 附源代码 ASP技巧
嗷嗷毙技术网版权申明：大家可以自由转载我站点的文章，但原作者和来自我站的链接必须保留（非我站原创的，按照原来链接，自行链接）。文章版权归作者所有。
特别注意：本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有，文章若有侵犯作者版权，请与我们联系，我们将立即删除修改。