<% 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) %> 点旺讷河
您当前的位置：点旺讷河 → 网站地图
网站地图
财经消息   
国内新闻   
国际新闻   
商家快讯   
农业资讯   
生活信息   
讷河要闻   
医疗保健   
动漫在线   
小游戏   
动漫MV   
新闻图片   
美图要看   
休闲生活   
小城发展   
美术欣赏   
往事记忆   
生活信息   交流   
点旺商家   
商家资讯   
在商言商   
二手交流   
供求信息   
在线购物   
家 政   
小城   
沙 龙   
名医在线   
市医院   
中医院   
同安医院   
保健院   
博爱医院   
就医向导   
文化   
教育   
艺术   
名师名教   
校园资讯   
酒店   
烧烤小吃   
特色火锅   
家政服务   
旧物交换   
名师指导   
幽默笑话   
生活百科   
综合时报   
本城招聘   
出租出兑   
其它   
电脑商城   
数码时代   
电脑展示   
商务在线   
中国银行   
中国建设银行   
中国农业银行   
中国工商银行   
农业信用社   
新楼信息   
楼房交易   
建材装修   
楼房出租   
生活   
财经要闻   
市场信息   
银行保险   
证券基金   
<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>