签写留言 - 云南测土配方施肥技术资讯网,云南,测土配方施肥,节水农业,地力评价,肥料,土壤学会

<% 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 %>

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

设为首页

加入收藏

联系我们

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