欢迎你！你是第
%>
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\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)
%>
%>
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "![]() "
Next
Response.Write Display
%>
width=100 height=0 frameborder=0>
位来宾！
版权所有:成都三只耳火锅连锁有限公司 设计制作:天府美食网
直营店订座电话( 天祥店:84380128 府南新区店:87328048 玉双店:84382688 玉林店:85152898
)
总店地址:倪家桥10号 85530188 邮箱：sze@cdcate.com
|
|
