
ʹ˵

1üֻһļͼμûвݿ⣬ֱӶtxtļв

2Σ

  AҪҳ index.htm ϼü뽫һδ index.htm Դļǰ棨<html>ǰ棩£

<%
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) & "\ntcount\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)
%>

  BڶδڼҪʾĵط£


<%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "<img src=""ntcount\" & num & ".gif"">"
Next
Response.Write Display
%>


  CδΪASP룬Ҫҳļindex.htmΪindex.asp ſɱȡС

3Ըhits.txtļеֵ仯ĳʼֵ

4뱣֤ѹõļΪ ntcount ļеϴλҪüļͬһĿ¼ͼƬ޷ʾ

5֧֣help@cnolnic.com
