% 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) %>
| 首 页 ┆ 信息中心 ┆ 下载中心 ┆ 图片浏览 ┆ 用户留言 ┆ 友情链接 ┆ 双交会网 ┆ 繁體中文 | |||
|
|||
| 下载中心: | 软件下载 | 土肥资料 | 技术资料 | 教程下载 | 音乐下载 | 影视下载 | 农业产业 | 其它下载 | |
| 信息中心: | 测土施肥 | 地力评价 | 节水农业 | 高稳农田 | 肥料信息 | 土肥测试 | 农业产业 | 综合信息 | |
| 图片浏览: | 测土施肥 | 地力评价 | 节水农业 | 高稳农田 | 肥料信息 | 土肥测试 | 搞笑图片 | |
|
|||
| 关于我们 |
|---|
|
云南省土壤肥料工作站为省级财政全额拨款事业单位,拥有独立的法人地位,隶属于云南省农业厅,2006年成立的“云南省测土配方施肥实施领导小组办公室”就设在本站。 云南省土壤肥料工作站是云南省农业厅所属的云南省土壤肥料技术推广部门,站下设土壤科、肥料科、测试科(化验室)、综合科和办公室,并分别于2002年、2006年成立了“云南省耕地地力调查与质量评价办公室”和“云南省测土配方施肥实施领导小组办公室”,目前化验室已取得计量认证,并获得为云南省农业厅授权从事省内土壤肥料执法监督管理及检查单位,具备项目法人的资格。现有职工36人,其中推广研究员1人,高级农艺师11人,农艺师12人,技术员10人;现有固定资产800万元,流动资产50.5万元,办公室14101平方米,拥有各类国产、进口大中型检测仪器;化验室600平方米,其它用地100平方米。 其主要业务范围是:负责全省的土壤肥料新技术的开发、应用推广、耕地地力调查与质量评价、测土配方施肥技术应用研究及推广、土壤肥料分析测试、土壤肥力、农产品品质检测分析、墒情监测,高产稳产农田建设,坡耕地治理及节水灌溉、测土配方施肥等规划设计及技术指导工作。 单位地址: 云南省昆明市滇池路31号 邮政编码:650034 电话、传真:0871-4145351 |
| 关于我们 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 |
|
云南省土壤肥料工作站&测土配方施肥办公室 版权所有 电话:0871-4166379 备案/许可证编号: 滇ICP备08002135号 |