% 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) %>
| 首 页 ┆ 信息中心 ┆ 下载中心 ┆ 图片浏览 ┆ 用户留言 ┆ 友情链接 ┆ 双交会网 ┆ 繁體中文 | |||
|
|||
| 下载中心: | 软件下载 | 土肥资料 | 技术资料 | 教程下载 | 音乐下载 | 影视下载 | 农业产业 | 其它下载 | |
| 信息中心: | 测土施肥 | 地力评价 | 节水农业 | 高稳农田 | 肥料信息 | 土肥测试 | 农业产业 | 综合信息 | |
| 图片浏览: | 测土施肥 | 地力评价 | 节水农业 | 高稳农田 | 肥料信息 | 土肥测试 | 搞笑图片 | |
|
|||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
你是第
个访问者
|
||||||||
| 友情链接 | ||||||||
| 关于我们 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 |
|
云南省土壤肥料工作站&测土配方施肥办公室 版权所有 电话:0871-4166379 备案/许可证编号: 滇ICP备08002135号 |