<%
'变量元素
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
Response.Write " Visitor Count
"
For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count by getting the path to the image using the mid function
Response.Write "![]() "
Next
%>
|
沪ICP备031532
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
 |
 |
 |
 |
|
|
|
|
 |
|
 |
 |
 |
|
 |
|
 |
|
 |
 |
|
|
 |
|
 |
|
 |
 |
 |
|
|
 |
 |
◆ Past Peptide Symposiums
China has successfully held six symposiums in Shanghai, Hangzhou, Beijing, Chengdu, Lanzhou and Huangshan. Famous peptide authorities and experts gathered to discuss related issues. At the symposiums many awards, including the Cathay Award, were presented. |
7Cps web site:
http://www.intide.com/7cps/
|
 |
 |
|
 |
 |
 |
|
 |
 |
 |
 |
|
 |
|
|
