<% option explicit %> <% 'on error resume next if trim(Application("ConnectionString"))="" or trim(Application("ConnectionString"))<>"driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" then Application("ConnectionString")="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" end if Function LinkURLs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/url]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/url]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkURLs=replace(strOutput,"[/url]","",1,-1,1) End Function Function LinkIMGs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[img]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[img]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/img]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/img]","") strOutput=strOutput & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkIMGs=replace(strOutput,"[/img]","",1,-1,1) End Function Function LinkEmail(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[email]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[email]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/email]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+7,iLinkEnd-iLinkStart-7),"[/email]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkEmail=replace(strOutput,"[/email]","",1,-1,1) End Function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function UBB(str) str=LinkURLs(str) str=LinkIMGs(str) str=LinkEmail(str) UBB=str end function %> <% dim sql,rs,rsc,thedate dim reviewable,aboutnews set rs=server.createobject("adodb.recordset") '查找显示相关新闻数目及是否开放评论权限 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then aboutnews=rs("aboutnews") if rs("reviewable")=1 then reviewable=1 else reviewable=0 end if else aboutnews=5 reviewable=1 end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="update news set hits=hits+1 where newsid=" & cstr(request("newsid")) conn.execute sql if session("purview")="" then rs.open "select * from news where newsid=" & cstr(request("newsid")) & " and audit=1",conn,1,1 else rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1 end if if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "该新闻不存在或未经过审核" else %> 中国农业投资网——<%=rs("topic")%>

  

站点导航 设为首页 收藏站点

关于我们

网上留言

<%=rs("topic")%>中国农业投资网简介
发表时间:<%=rs("ntime")%>     <% if trim(rs("nfrom"))<>"" then response.write "文章来源:" & trim(rs("nfrom")) end if %>
<% if trim(rs("writer"))<>"" then response.write "文章作者:" & trim(rs("writer")) end if %>     浏览次数:<%=cstr(rs("hits"))%>
 
双击自动滚屏
 

    一、宗旨
    宗旨:服务农业基础建设、提供农业投资信息、汇聚投资发展机会、促进信息资本融合。
    我们的目标是将中国农业投资网打造成国内农业投资领域最权威的网络信息平台,并在做好信息服务的基础上,逐步发展成为国内农业投资领域集实力、品牌于一体的专业化投资咨询公司,力争在五年内成为国内农业投资领域最具权威性的专业投资机构。
    我们立志于在业务开发与信息销售领域恪守信誉、提高声望,利用网络优势,使客户在第一时间看到我们的第一手资料。在信息的真实性上,我们将通过相关部委和业内专家及时掌握农业领域里的资金走势,利用自身的市场调研员随时关注国内各地的农业投资动向,并由专业分析师对每个时期的投资动态做出科学分析,并以最低廉的价格、最快捷的方式服务客户。为达到此目标,我们采取一方面建立自己的全国性信息网络,另一方面密切注视市场趋势和需求,开发具有创意性和获利性产品,并在产品包装上创新等方式来实现。
    为贯彻我们的目标和即定方针,我们将以老实做事,本份做人,诚信为本,真诚守诺,服务周到,礼仪为先的经营理念对待资金监护人、顾客及社会其他团体。

    二、网站简介
    中国农业投资网(http://www.chinanytz.com)是经过大量市场调研、综合分析并认真思考后,在北京注册的专业性集农业投资咨询、投资市场分析与农业产业研究的国际域名专业网站,建站项目策划于2003年10月,网站创建于2004年1月,是国内第一家引入国际咨询公司标准和规范运作程序的股份制农业投资网络媒体,拥有自己的信息网络、专业分析师团队和专家智囊团。


    中国农业投资网已经与国内农业投资领域的众多政府机构和社会团体达成了合作协议,政府机构包括农业部、国家财政部、国家商务部、国务院发展研究中心、国家统计局、国家粮食局以及相关的国家部委,特别是地方政府农业厅(局);非政府机构包括主要的行业协会,农业技术推广部门、投资公司、证券公司、商业银行等;专家系统包括清华大学、北京大学、中国人民大学、中国农业大学、中国科学院、中国农科院以及各地的研究所的专家以及政府、协会的资深专家;同时,中国农业投资网还与国外政府机构、国际组织、跨国公司、国外投资公司、咨询机构等初步建立了广泛的合作关系。目前已与阿拉伯地区几家住华大使馆达成协议,以促进中国与阿拉伯地区国家的经济贸易往来,为国内企业、产品进入阿拉伯地区提供服务,同时也为阿内的企业和产品进入中国市场搭建平台。


    中国农业投资网有一支经验丰富高水准的专业人员队伍,他们不仅有农业教育、经济或金融学教育背景,特别是由于他们曾服务于政府、市场调研、投资公司、金融机构和研究机构,对中国农业投资市场的不同领域有深入研究或工作的经历,对中国农业投资的现状与前景趋势有科学的、合乎实际的见解,并与中国农业投资领域的资深专家保持密切的交流与合作。大多数职员都有外资咨询企业工作经验,熟悉西方农业投资及农产品市场分析方法,完全有能力为企业在第一时间提供国内外农业投资领域最前沿的信息参考资料。


    作为国内农业投资领域的专业网站,我们追求的不是生产高科技的产品或开发最先进的专利技术,而是利用最先进的电子商务提供最快捷的信息服务,创造出最知名的企业信息化品牌,因而加盟中国农业投资网将会为投资者在互惠互利的基础上锦上添花。为投资者在原有的行业运作中创造新的竞争优势。中国农业投资网现有投资项目咨询部、市场调研部、国际商务部等主要部门。

 

    联系电话:86—10—83032881

    E-mail:chinanytz@vip.sina.com


---------- 相 关 内 容----------

<% set rsc=server.createobject("adodb.recordset") if session("purview")="" then rsc.open "select top " & aboutnews & " * from news where keys like '%" & trim(rs("keys")) & "%' and newsid<>" & cstr(rs("newsid")) & " and audit=1 order by ntime DESC",conn,1,1 else rsc.open "select top " & aboutnews & " * from news where keys like '%" & trim(rs("keys")) & "%' and newsid<>" & cstr(rs("newsid")) & " order by ntime DESC",conn,1,1 end if if rsc.bof and rsc.eof then response.write "暂时没有相关内容" else response.write "
    " do while not rsc.eof response.write "
  • " if cstr(rsc("imgsize"))<>0 then response.write "[图文]" end if thedate="(" & cstr(year(rsc("ntime"))) & "-" & cstr(month(rsc("ntime"))) & "-" & cstr(day(rsc("ntime"))) & ")" response.write "" & trim(rsc("topic")) & "" & thedate & "" if month(cdate(trim(rs("ntime"))))=month(now()) and clng(day(cdate(trim(rs("ntime"))))+1)>=clng(day(now())) then response.write "
    " end if rsc.movenext loop end if rsc.close set rsc=nothing %>
 
<% if reviewable=1 then response.write "【发表评论】" end if %>    
 
中国农业投资网
吉林站
山东站
福建站
河南站
贵州站
四川站
甘肃站
黑龙江站
内蒙站
天津站
江苏站
浙江站
湖南站
广东站
海南站
云南站
宁夏站
上海站
河北站
各省级分站链接
重庆站
安徽站
江西站
湖北站
广西站
青海站
陕西站
新疆站
西藏站
辽宁站
网站简介|全国地县农业网站集锦|联系我们|法律顾问:杨航远|友情链接 

                     版权所有:中国农业投资网  请使用IE5.0或以上版本浏览器
                        网络实名:中国农业投资网 © 2003-2006 第二域名:农业投资.com
 
                《中华人民共和国电信与信息服务业务经营许可证》 编号:京ICP备05011059号

E-mail:chinanytz@vip.sina.com 热线电话: 86-10-83032881 ;63438531; 传真:010-63261880

声明:本站中的部分资源来自相关网络,如有侵权,请告知!本站会及时删除。


<% end if end if%>