|
||||||||
| 当前位置: |
|
微电脑点火器 邮购价目表
最新产品:超级点火器 购买产品每次包装邮寄费普通每次8元,特快专递 30 元,款到发货。汇款方法 1。工行牡丹灵通卡 2。建行龙卡 3。邮局汇款:2-4天送达,尽量使用上面的方式。 电话:13367460730 邮政编码425400 Email: flytimer@flytimer.net
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| <% '变量元素 Dim fsoObject '文件系统对象 Dim tsObject '文字系统对象 Dim filObject '文件对象 Dim lngVisitorNumber '保存来访者数量 Dim intDisplayDigitsLoopCount '循环计数显示 On Error Resume Next lngVisitorNumber = 0 Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("/visitor_counter.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If Session("lngSessionVisitorNum") = "" Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber Else 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber End if Set tsObject = fsoObject.CreateTextFile((Server.MapPath("/visitor_counter.txt")), True) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber) Response.Write " "
Next
%>
飞时电子研究所 版权所有 请与我们联系:flytimer@flytimer.net 湖南省江永县消浦镇龙溪路37号 电话:13367460730 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||