 |
|
|
 首页 |
名片设计 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 %> 返回类别: 教程 上一教程: 如何设置二级域名？ 下一教程: 1栏分页显示（附显示的形式[1][2]） 您可以阅读与"LINE 的计数器源程序（附源代码）"相关的教程: · LINE 的计数器源程序(附源代码) · 网络精英计数器源程序 · 最简化分页程序，附源代码 · 用ASP创建日志文件（附源程序） · 不能ASP图像组件来生成图像的ASP计数器程序(一) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
