 |
|
站点地图 | 开发区地图 |
联系我们 | 网站动态 |
友情链接
版权所有 © 青岛经济技术开发区日韩投资促进局
2003.3<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath("hits.txt")
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
- 2010
<%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "![]() "
Next
Response.Write Display%>
电话：86－532－86988725 86988073 86988728 86988729
86988731 86988623
Mail:inqda@hotmail.com
info@investok.org |
鲁ICP备07001113号:: |
