引用:

---

k666也不错呢～～

---

<%
	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)
%>