<% 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) %> 点旺讷河
您当前的位置：点旺讷河 → 首页 → 友情连接
网站名称 网站LOGO 网站简介 点击数 操作选项
同城聊天室 文字连接   讷河人聊吧 4 修改 | 删除
58讷河信息网 文字连接   讷河人生活离不开的专业信息网站 17 修改 | 删除
点旺交友 文字连接   同城交友,信息沟通,网友互动,增进情感. 10 修改 | 删除
市中医院 文字连接   医疗、名医推荐、特色医疗、 10 修改 | 删除
振兴家电城 文字连接   电视机 冰箱 洗衣机 微波炉 8 修改 | 删除
http://qqhr.58.com   http://qqhr.58.com 18 修改 | 删除
宝峰家电   讷河海信电视　冰箱　洗衣机　电磁炉　小家电 12 修改 | 删除
欧尔雅家具 文字连接   家具商城 12 修改 | 删除
华夏超市 文字连接   蔬菜、水果、鱼、肉、蛋、
  烟、酒、糖、茶
日用品百货、化妆品、小家电		 11 修改 | 删除
北京厚福升 文字连接   北京厚福升节能有限公司 15 修改 | 删除
全友家具 文字连接   全友家具 10 修改 | 删除
鑫海商厦 文字连接   鑫海商厦 11 修改 | 删除
名女人化妆城 文字连接   名女人化妆城 16 修改 | 删除
大光明眼镜 文字连接   大光明眼镜店 19 修改 | 删除
福利院烧伤门诊 文字连接   福利院烧伤门诊 9 修改 | 删除
齐市百业信息网   齐市百业信息 19 修改 | 删除
飞利浦专卖 文字连接   飞利浦专卖 8 修改 | 删除
音源影音网   音乐网站 23 修改 | 删除
天气预报 文字连接   天气预报 7 修改 | 删除
火车时间表 文字连接   火车时间表 12 修改 | 删除
共有友情连接 30 个  首 页  上一页   下一页  尾 页  页次：1/2页  20个/页
<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>