|
 |
|
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
 |
 |
|
 |
|
 |
|
加入收藏 |
 |
設為首頁 |
 |
您是本站的第 |
<%
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
lngVisitorNumber = lngVisitorNumber + 1
Session("lngSessionVisitorNum") = lngVisitorNumber
Else
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
%> |
位訪客 |
|
|
 |
|
 |
|
|
|
 |
 |
 |
 |
 |
 |
|
 |
|
|
Technology |
|
|
|
鍵寧企業股份有限公司
|
一直保持著在技術上的領先地位 , 秉承以高技術為依托 , 一流服務為客戶的宗旨 , 力爭向客戶提供優質與完善的技術支援及服務為目標 ... |
|
More information ... |
|
|
 |
|
|
Contact |
|
|
|
Taipei Head Office 台北: |
TEL: 886-2-2786-2233
FAX: 886-2-2788-5066
|
Hong Kong Office 香港: |
TEL: 852-2743-1816 FAX: 852-2742-2506 |
Shanghai Office 上海: |
TEL: 8621-63532570 TEL: 8621-63532570 |
More information ... |
|
|
 |
 |
|
 |
|
  |
|
Greendich Enterprise, Co.,Ltd., established in 1983, has become a major importer of quality components in Taiwan's electronic industry, as well as a leading exporter of Taiwan computer products and peripherals. We offer a broad range of products backed by a complete and responsive service organization. |
|
 |
|
More information ... |
|
|
 |
|
  |
|
To take the lead in supporting an industry that is in constant change.With branches in Southern Taiwan ( Kaohsiung ) and Hong Kong , our goal is to expand our product lines and customer base , by offering Quality, Reliable Products and Dependable Service. |
|
More information ... |
|
 |
|
|
 |
|
 |
 |
 |
 |
 |
 |
 |
 |
 |
|