<% 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) %> 瀚缘斋画廊--名家国画|书法|油画|精品字画保真销售|订购电话：13121113793 联系人：张先生

瀚缘斋画廊--提供名家书法,名家国画;京津鲁艺术名家:李中贵，雷正民，王明明，张步，贾广健等......
地址：北京市宣武区和平门地铁站南一百米 联系电话：13121113793
北京瀚缘斋画廊 版权所有 Copyright ©2007 - 2010 技术支持:涛心居网络