用户登录 - 云南土壤肥料信息资讯网,云南,测土配方施肥,节水农业,地力评价,肥料

<% 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) %> 用户登录 - 云南土壤肥料信息资讯网,云南,测土配方施肥,节水农业,地力评价,肥料 <% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>

首页 ┆ 信息中心 ┆ 下载中心 ┆ 图片浏览 ┆ 用户留言 ┆ 友情链接 ┆ 双交会网 ┆ 繁體中文

设为首页

加入收藏

联系我们

下载中心：	软件下载 \| 土肥资料 \| 技术资料 \| 教程下载 \| 音乐下载 \| 影视下载 \| 农业产业 \| 其它下载
信息中心：	测土施肥 \| 地力评价 \| 节水农业 \| 高稳农田 \| 肥料信息 \| 土肥测试 \| 农业产业 \| 综合信息
图片浏览：	测土施肥 \| 地力评价 \| 节水农业 \| 高稳农田 \| 肥料信息 \| 土肥测试 \| 搞笑图片

您当前的位置：云南土壤肥料信息资讯网 -> 用户登录

用户注册

用户管理

关于我们 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图