LINE 的计数器源程序（附源代码）

发表日期：2000-11-7

<%
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
%>

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：直接显示"Monday"等星期的ASP语句人气:12026
下一篇：使用asp+中的若干问题及解决方案人气:10511

浏览全部的内容 Dreamweaver插件下载网页广告代码祝你圣诞节快乐 2009年新年快乐