 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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获取MDAEMON域名列表 下一教程: 实现网页密码验证的两个基本方式 您可以阅读与"LINE 的计数器源程序(附源代码)"相关的教程: · LINE 的计数器源程序（附源代码） · 网络精英计数器源程序 · 最简化分页程序，附源代码 · 用多种方式制作WEB页面的计数器 · 用ASP创建日志文件（附源程序） |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
