main

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

概况美景人物画家民俗戏曲风味特产

---旧留言板---

（旧留言板就象一首老歌，可以让我们可以细细品味往日情怀！）

建议以IE浏览器、800*600分辨率观看效果最佳

本站所有图形设计归本站所有未经许可，请勿拷贝。欢迎与本站建立合作站点！

闽ICP备05018532号

若有任何意见或建议，欢迎在论坛留下您的建议