<% function lennews(zt,lent) if len(zt)>lent then lennews=left(zt,lent)&"..." else lennews=left(zt,lent) end if end function function msg(tt) response.write "" end function function msg_url(tt,url) response.write "" end function Class SqlPage Private sp_sql,sp_orderby,sp_pagesize,sp_infocount,currentpage,sp_ShowedNum,sp_newsql,sp_pagecount '属性:sql 字符串,不含排序; Public Property Let Sql(obj_Sql) sp_sql = lcase(obj_Sql) '根据sql计算信息总数,并赋值给变量sp_infocount; a = InStrRev(lcase(sp_sql),"from") sql_count = "select count(*) "& mid(sp_sql,a) sp_infocount = Conn.execute(sql_count)(0) 'response.write sql_count 'response.end End Property '属性:orderby 字符串,sql 中的排序部分(不带order by); Public Property Let OrderBy(obj_orderby) sp_orderby = obj_orderby End Property '属性:每页显示个数; Public Property Let PageSize(obj_pagesize) if obj_pagesize="" or not(IsNumeric(obj_pagesize)) then sp_pagesize = 10 else sp_pagesize = obj_pagesize end if End Property Public Property Get PageSize PageSize = sp_pagesize End Property '属性:记录总数 Public Property Get InfoCount InfoCount = sp_infocount End Property '属性:总页数 Public Property Get PageCount PageCount = sp_pagecount End Property '属性:设置可见的分页导航个数 Public Property Let ShowedNum(obj_ShowedNum) sp_ShowedNum = obj_ShowedNum End Property Public Property Get ShowedNum ShowedNum = sp_ShowedNum End Property '初始化:初始化当前页面 Private Sub Class_Initialize sp_pagesize = 10 '设定分页的默认值为10 sp_ShowedNum= 5 '设定默认值为5 If request("page")="" or not(IsNumeric(request("page"))) or int(request("page"))<1 Then currentpage=1 Else currentpage=int(Trim(request("page"))) End If End Sub Private Sub GetPageCount '根据sp_infocount和pagesize计算总页数,并赋值给变量sp_pagecount; if sp_infocount mod sp_pagesize = 0 then sp_pagecount = int(sp_infocount/sp_pagesize) else sp_pagecount = int(sp_infocount/sp_pagesize) + 1 end if End Sub '属性:生成新的SQL语句 Public Property Get NewSql Call GetPageCount orderbyArray = split(sp_orderby,",") for i = 0 to ubound(orderbyArray) if instr(lcase(orderbyArray(i))," desc")>0 then orderbyNew = orderbyNew & replace(lcase(trim(orderbyArray(i)))," desc"," asc") elseif instr(lcase(orderbyArray(i))," asc")>0 then orderbyNew = orderbyNew & replace(lcase(trim(orderbyArray(i)))," asc"," desc") else orderbyNew = orderbyNew & orderbyArray(i)&" desc" end if orderbyNew = orderbyNew & "," next orderbyNew = left(orderbyNew,len(orderbyNew)-1) if currentpage>=sp_pagecount then currentpage = sp_pagecount current_pagesize = sp_infocount - sp_pagesize*(currentpage-1) else current_pagesize = sp_pagesize end if sp_newsql = "select * from(select top "¤t_pagesize&" * from("&replace(sp_sql,"select","select top "&sp_pagesize*currentpage)&" order by "&sp_orderby&") order by "& orderbyNew &") order by "&sp_orderby NewSql = replace(sp_newsql,"top 0","") '使用一次替换,排除记录为空时的分页错误 end Property '方法:分页导航 Public Sub ShowPage() url = GetURL() Call GetPageCount If currentpage-1 <=0 Then ShowFirst = "9 " ShowPrev = "7 " Else ShowFirst = "[9] " ShowPrev = "[7] " End If if sp_pagecount<=sp_showednum then snum = 1 cnum = sp_pagecount else if sp_showednum mod 2 = 0 then if currentpage<=sp_showednum/2 then snum = 1 cnum = sp_showednum elseif currentpage=>(sp_pagecount - (sp_showednum/2) ) then snum=sp_pagecount-sp_showednum+1 cnum=sp_pagecount else snum = currentpage - (sp_ShowedNum/2) + 1 cnum = currentpage + (sp_ShowedNum/2) end if else '判断是奇数的操作 if currentpage(sp_pagecount - (sp_showednum/2) ) then snum=sp_pagecount-sp_showednum+1 cnum=sp_pagecount else snum = currentpage - (sp_ShowedNum-1)/2 cnum = currentpage + (sp_ShowedNum-1)/2 end if end if end if For i=snum to cnum if i<>currentpage then ShowedPage = ShowedPage & "["&i&"] " else ShowedPage=ShowedPage & "["& i &"] " end if Next If currentpage+1 >sp_pagecount Then ShowNext = "8 " ShowLast = ": " Else ShowNext = "[8] " ShowLast = "[:]" End If str_PageTemp = ShowFirst & ShowPrev & ShowedPage & ShowNext & ShowLast & " 共"&sp_infocount&"条" &" 第"¤tpage&"/"&sp_pagecount&"页" & " 每页"&sp_pagesize&"条" Response.Write str_PageTemp End Sub '********************************************* '私有方法:自动形式 取得当前页面的URL,并在该URL之后 ' 添加"page=" '********************************************* Private Function GetURL() Dim strurl,str_url,i,j,search_str,result_url search_str="page=" strurl=Request.ServerVariables("URL") Strurl=split(strurl,"/") i=UBound(strurl,1) str_url=strurl(i) str_params=Trim(Request.ServerVariables("QUERY_STRING")) If str_params="" Then result_url=str_url & "?page=" Else If InstrRev(str_params,search_str)=0 Then result_url=str_url & "?" & str_params &"&page=" Else j=InstrRev(str_params,search_str)-2 If j=-1 Then result_url=str_url & "?page=" Else str_params=Left(str_params,j) result_url=str_url & "?" & str_params &"&page=" End If End If End If GetURL=result_url End Function End Class sub head %> 企业建站
 
 

本站动态

 

  中国养殖信息网创建于1999年5月,是中国畜牧行业最大、最具影响力的综合性商务信息门户网站,拥有雄厚的技术、资金和客户资源优势,在业内享有极高的知名度和影响力。
中国养殖信息网以发展企业电子商务、促进和引导畜牧行业信息化建设为己任,以"合作共赢"为发展理念,不断加强与同行业网站、媒体等的合作,并与政府机构、大专院校、科研单位建立了长期的友好合作关系。目前,中国养殖信息网各类用户达36000多家,日均点击量40多万次。
中国养殖信息网集网上交易、信息服务、价格发布、企业上网等服务功能为一体,将传统的交易方式和现代信息技术相结合,实现了交易的网络化、信息传播的电子化,帮助畜牧行业增加市场机会、降低交易成本、提高运营效率、扩大企业知名度,运行至今,为我国的畜牧行业的改革和企业经营管理水平的提高做出了贡献,取得了良好的经济效益和社会效益。
中国养殖信息网信息日趋多样化,并日渐成熟,多种机制并存的电子交易平台不断完善和发展,实力雄厚的计算机技术开发团队为畜牧行业信息化建设架起了一座座的数字化桥梁,对业内会员的优质服务得到了各界的一致好评。

  中国养殖信息网是您了解行业动态、树立企业形象、拓展产品销路的最佳选择


免费注册

 

1、 无限量浏览、使用中国养殖信息网提供的网上畜牧业行业信息、产品价格信息、市场分析预测等各类信息;
2、 中国养殖信息网免费提供便捷、快速的电子邮箱一个;
3、 免费三个月二级页面广告和网上推荐企业栏目图文并茂的一年期广告宣传;
4、 由中国养殖信息网专家、顾问解答企业生产经营过程中遇到的各方面难题;
5、 参加中国养殖信息网组织的知名企业参观、学习、考察活动;
6、 免费加入中国养殖信息网企业数据库;
7、 免费发布企业供求信息;
8、 免费通过短信每周为您及时发送价格行情、市场动态等文字信息;
9、 提供各类技术(计算机、网络、电子商务、办公系统等)咨询服务;
10、免费赠送由中国养殖信息网主编的配套月刊——《中国养殖信息》全年杂志;
11、会员订购公司的其它服务价格均享受八折优惠;
12、会员参加中国养殖信息网举办的电子商务、网上交易及其它培训活动,在费用方面给予八折优惠;
13、服务期内免费享受中国养殖信息网推出的新增值服务。


申请流程


项目制作

项目
制作说明
资费标准
备注
首页 全FLASH动画设计制作,宣传企业形象及主要栏目的入口 根据企业特点进行创意、总体设计、效果处理。 300—2000元 有 FLASH 版和 HTML 版之分
栏目页 根据网站结构及信息类别的分类,需要独立设计的栏目页:含导航按钮、 Logo 图、标题图片、文字链接、页面排版。 200元/页 首页的设计风格
内容页 1000 以内文字, 3 幅以内图片 。 60元/页 超出标准,费用另计
静态图片 包括图片扫描、调色、修补、减色及压缩 20元/幅  
GIF动画   60元/个  
FLASH动画 FLASH 动画格式文件制作 300元起 比如 flash 个性菜单、形象广告
JAVA 特效 一些网页特殊效果 100元/个(起) 比如随机飘菜单


类型制作

类型
制作说明
价格
内容发布系统 网站内容发布系统,是将网页上的某些需要经常变动的信息,类似新闻、产品发布等更新信息集中管理,并通过信息的某些共性进行分类,最后系统化、标准化发布 到网站上的一种网站应用程序。 1500元/年
在线招聘系统 本系统可以使企业在其网站上在线招聘人员,通过后台管理界面对招聘信息进行管理。 800-1200元/年
在线订单系统 本系统可以使企业在其网站上在线招聘人员,通过后台管理界面对招聘信息进行管理。 500-800元/年
信息检索系统 在WEB中,提供方便、高效的查询服务,查询可以按照分类,关键词等进行,也可以基于全文内容的全文检索。 支持对任意字段的复杂组合检索;支持智能化模糊检索。 600元/个
留言板 风格与网站完全统一,新留言可同时发信到版主信箱。 200元/个起
客户信息反馈表 风格与网站完全统一, A4幅为一页 500元/个起
电子公告板(bbs) 风格和整个网站统一 500元/个起
关系型数据库建库 支持标准的SQL语言,标准的Perl开发接口,(含基于www的管理界面) 6000元/个基础库
1000元/表
简单数据库开发 将用户现有的数据(Access、Excel、DBF)等转为文本文件数据,提供基于文本数据的检索等功能。 2000元/个起
数据库开发 支持标准的SQL语言,标准的Perl开发接口,(含基于www的管理界面) 视用户需求而定
约10000-30000元

项目说明

项目
说明
备注
展示型
1、 国际域名一个,虚拟主机100M。
2、 主页制作一页,内页不超过10页。含企业简介、产品介绍、销售网络、联系方式基础性栏目。
3、 产品图片处理不超过12张,适合于一般性企业宣传及产品介绍。
1800元

主页为 html 页

经济型
1 、国际域名一个,虚拟主机 100M 。
2 、主页制作一页,制作内页不超过 15 页。含企业简介、产品介绍、销售网络、联系方式、在线留言栏目。
3 、简单动画效果, Javascript 网页特效。图片处理不超过 20 张,网站空间支持 php ,支持数据库。
4 、含在线留言系统(具有简单的留言管理功能),网站计数器,适合于一般性企业宣传及产品介绍。
2800元
主页为 html 页
商务型
1 、国际域名一个,虚拟主机 100M 。
2 、主页制作一页,形象页面一页,各栏目页面和制作内页不超过 20 页。含企业简介、公司动态、产品介绍、销售网络、网上招聘、联系方式、在线订单、在线留言栏目。
3 、含动画效果, Javascript 网页特效。图片处理不超过 25 张。网站空间支持 asp 或者 php ,支持数据库。
4 、含新闻发布系统、产品发布系统,在线留言系统(具有删除、回复、修改留言功能),网站计数器,订单系统(发送至信箱),网上招聘系统(招聘信息发布)。
4800元

主页为 html 页形象页为精美设计的 flash 页,不超过 15 秒

智强型
1 、国际域名一个,虚拟主机 200M 。
2 、主页制作一页,形象页面一页,各栏目页面和内页不超过 30 页。含企业简介、公司动态、产品介绍、销售网络、联系方式、网上招聘、在线订单、在线留言栏目。
3 、含动画效果, Javascript 网页特效。图片处理不超过 25 张。网站空间支持 asp 或者 php ,支持数据库。
4 、含新闻发布系统、产品发布系统,产品搜索系统,在线留言系统(具有删除、回复、修改留言功能),网站计数器,订单系统(发布至数据库,具有订单管理功能)、在线调查系统、网上招聘系统(招聘信息发布、管理)。
7800元
主页为 html 页形象页为精美设计的 flash 页,不超过 30 秒
  E-mail aaabio@163.com  
 
fdsafda中国养殖信息网版权  Copyright1998—2008 All Rights Reserved  沪ICP备05005520号