<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 河南大通化工有限公司 优质 化工 化肥 复合肥 尿素 碳酸氢铵 工业甲醇 食品级CO2 生产基地 <% '------------------------------------------------------------ 'Author : HENAN DATONG CHEMICAL CO., LTD. 'Create Time : 2010/03/01 'Content : 包含文件统一调用 '------------------------------------------------------------ %> <% 'conCnnString = "DBQ="&server.MapPath("../ljfdate/ljfdate.mdb")&";driver={microsoft access driver (*.mdb)}" conCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../ljfdate/mydate.mdb") conCnnString02 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("ljfdate/mydate.mdb") %> <% '------------------------------------------------------------ 'Author : 李久福 'Create Time : 2006/01/12 'Content : 自定义函数 '------------------------------------------------------------ %> <% '自写iif函数 Function IIF(bValue, strTrue, strFalse) If bValue = True Then IIF = strTrue Else IIF = strFalse End If End Function %> <% Sub OpenConn() '建立数据库连接 set conn=server.CreateObject("adodb.connection") conn.open conCnnString End Sub %> <% Sub OpenCnn() '建立数据库连接 set conn=server.CreateObject("adodb.connection") conn.open conCnnString02 End Sub %> <% Sub CloseConn() '关闭数据库连接 conn.close set conn=nothing End Sub %> <% '弹出对话框1 Function MyMessage(text) response.write"" response.write"" End Function %> <% '弹出对话框2 Function MyMessage2(text) response.write"" End Function %> <% '替换IE浏览器的非法输入 function s(fqyString) fqyString = replace(fqyString, ">", "") fqyString = replace(fqyString, ":", "") fqyString = replace(fqyString, ":", "") fqyString = replace(fqyString, "<", "") fqyString = replace(fqyString, "&#", "") fqyString = replace(fqyString, chr(32), "") fqyString = replace(fqyString, chr(9), "") fqyString = replace(fqyString, chr(34), "") fqyString = replace(fqyString, chr(39), "") fqyString = replace(fqyString, chr(13), "") fqyString = replace(fqyString, chr(10) & chr(10), "") fqyString = replace(fqyString, chr(10), "") s = fqyString end function %> <% ' 判用户是否登陆 Sub UserLogin() IF Session("KeyUserID")="" or Session("KeyPassWord")="" or Session("KeyUserSort")="" or Session("KeyMySession")<>MySession Then response.Redirect"index.asp" End If End Sub %> <% '提取行业动态/新闻分类 Function GetNewsClass() set rst=server.CreateObject("adodb.recordset") sql="select * from NewsClass order by ClassID" rst.open sql,conn,1,1 End Function %> <% '关闭提取行业动态/新闻分类 Function CloseGetNewsClass() rst.close() set rst=nothing End Function %> <% '提取行业动态/新闻分类 Function GetNewsInfo(classID,newsID) set rsn=server.CreateObject("adodb.recordset") If classID=0 And newsID=0 Then sql="select * from NewsInfo order by newsID desc" ElseIf classID=0 And newsID<>0 Then sql="select * from NewsInfo where NewsID="&newsID&" order by NewsID desc" ElseIf classID<>0 And newsID=0 Then sql="select * from NewsInfo where ClassID="&classID&" order by NewsID desc" End If rsn.open sql,conn,1,1 End Function %> <% '关闭提取行业动态/新闻分类 Function CloseGetNewsInfo() rsn.close() set rsn=nothing End Function %> <% '提取行业动态/新闻分类02 Function GetNewsInfo02(ClassID,SmallID) If ClassID=0 And SmallID=0 Then Response.End() ElseIf SmallID<>0 And ClassID=0 Then sql="select top 6 * from NewsInfo where SmallID="&SmallID&" order by NewsID desc" ElseIf ClassID<>0 And SmallID=0 Then sql="select top 6 * from NewsInfo where ClassID="&ClassID&" order by NewsID desc" End If set rsn=server.CreateObject("adodb.recordset") rsn.open sql,conn,1,1 If rsn.Eof Then Response.Write"
没有记录
" Else Response.Write"" While Not rsn.Eof Response.Write"" Response.Write"" Response.Write"" rsn.MoveNext Wend rsn.close Set rsn=Nothing Response.Write"
  "&rsn("NewsTitle")&"
" Response.Write"" Response.Write"" If ClassID<>0 And SmallID=0 Then Response.Write"" ElseIf ClassID=0 And SmallID<>0 Then Response.Write"" Else Response.Write"" End If Response.Write"" Response.Write"
更多...
更多...
" End If End Function %> <% '关闭提取行业动态/新闻分类02 Function CloseGetNewsInfo02() rsn.close() set rsn=nothing End Function %> <% '提取图片 Function GetPicture(ClassID,SmallID) If ClassID=0 And SmallID=0 Then Response.End() ElseIf SmallID<>0 And ClassID=0 Then sql="select top 1 * from PictureInfo where SmallID="&SmallID&" order by PicID desc" ElseIf ClassID<>0 And SmallID=0 Then sql="select top 1 * from PictureInfo where ClassID="&ClassID&" order by PicID desc" End If set rsn=server.CreateObject("adodb.recordset") rsn.open sql,conn,1,1 If rsn.Eof Then Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
" Else Response.Write"" While Not rsn.Eof Response.Write"" Response.Write"" Response.Write"" rsn.MoveNext Wend rsn.close Set rsn=Nothing Response.Write"
" End If End Function %> <% '提取图片 Function ClosePicture() rsn.close() set rsn=nothing End Function %> <% '车源信息 Function GetVehicleInfo(userid,id) set rsn=server.CreateObject("adodb.recordset") If userid="" And id="" Then sql="select * from VehicleInfo order by id desc" ElseIf userid="" And id<>"" Then sql="select * from VehicleInfo where id="&id&" order by id desc" ElseIf userid<>"" And id="" Then sql="select * from VehicleInfo where userid="&userid&" order by id desc" End If rsn.open sql,conn,1,1 End Function %> <% '关闭提取车源信息 Function CloseGetVehicleInfo() rsn.close() set rsn=nothing End Function %> <% '货源信息 Function GetGoodsInfo(userid,id) set rsn=server.CreateObject("adodb.recordset") If userid="" And id="" Then sql="select * from GoodsInfo order by id desc" ElseIf userid="" And id<>"" Then sql="select * from GoodsInfo where id="&id&" order by id desc" ElseIf userid<>"" And id="" Then sql="select * from GoodsInfo where userid="&userid&" order by id desc" End If rsn.open sql,conn,1,1 End Function %> <% '关闭提取货源信息 Function CloseGetGoodsInfo() rsn.close() set rsn=nothing End Function %> <% '------------------------------------------------------------ 'Author : datong chemical 'Create Time : 2010/03/12 'Content : 配置文件 '------------------------------------------------------------ %> <% Const mySite="河南大通化工有限公司 优质 化工 化肥 复合肥 尿素 碳酸氢铵 工业甲醇 食品级CO2 生产基地" '网站名称 Const myKey="河南大通化工有限公司 提供 化工 化肥 复合肥 尿素 碳酸氢铵 工业甲醇 食品级CO2 农业 产品" Const myDes="河南大通化工有限公司 以专利技术生产化工 化肥 农业产品 注重环境保护 实施绿色经济 生产 销售 优质 复合肥 尿素 碳酸氢铵 工业甲醇 食品级CO2" Const mySession ="aaaaaa" '判断登陆session,建议经常改变 %>
  • screen 1

    公司简介

    河南大通化工有限公司成立于2000年,是河南省首家民营化肥企业。公司位于中国河南省焦作市,占地约15公顷,公司年产尿素15万吨,碳铵5万吨,甲醇3万吨,食品级二氧化碳3万吨。公司产品畅销中国十三个省市,年平均销售额约三亿元人民币。 公司现有员工815人,其中各类专业技术人员82人,技术工人700人,管理人员33人。公司在2004年已通过ISO9001国际质量管理体系认证,和ISO1400国际环境管理体系认证。

    view

  • screen 2

    公司产品

    公司年产尿素15万吨,碳铵5万吨,甲醇3万吨,食品级二氧化碳3万吨。公司产品畅销中国十三个省市,年平均销售额约三亿元人民币。公司利用专项技术每年回收工艺废气中的二氧化碳约3万吨/年,质量达到国际食品级,并通过了世界500强企业——美国可口可乐公司严格的产品认证,已成为其中国供货商;公司利用专有专项技术回收工艺废气中的硫磺约150吨/年。

    view

  • screen 3

    循环经济

    公司拥有十年的化肥生产经验及多项专有专项生产技术,以发展循环经济、制造绿色化肥为公司的发展理念。公司利用专项技术每年回收工艺废气中的二氧化碳约3万吨/年,质量达到国际食品级,并通过了世界500强企业——美国可口可乐公司严格的产品认证,已成为其中国供货商;公司利用专有专项技术回收工艺废气中的硫磺约150吨/年,全面实现达标排放,是河南省环保部门认定的优秀示范单位。

    view

公司发展

picture

公司拥有十年的化肥生产经验及多项专有专项生产技术,以发展循环经济、制造绿色化肥为公司的发展理念。 ...

Read More

商务服务

picture

公司利用专项技术每年回收工艺废气中的二氧化碳--质量达到国际食品级,已成为美国可口可乐公司的中国供货商; ...

Read More

产品支持

picture

技术成员:专业技术人员,技术工人。已通过ISO9001国际质量管理体系认证,和ISO1400国际环境管理体系认证。 ...

Read More

欢迎访问河南大通化工有限公司

河南大通化工有限公司成立于2000年,是河南省首家民营化肥企业。公司位于中国河南省焦作市,占地约15公顷,公司年产尿素15万吨,碳铵5万吨,甲醇3万吨,食品级二氧化碳3万吨。公司产品畅销中国十三个省市,年平均销售额约三亿元人民币。 公司现有员工815人,其中各类专业技术人员82人,技术工人700人,管理人员33人。公司在2004年已通过ISO9001国际质量管理体系认证,和ISO1400国际环境管理体系认证。 公司拥有十年的化肥生产经验及多项专有专项生产技术,以发展循环经济、制造绿色化肥为公司的发展理念。公司利用专项技术每年回收工艺废气中的二氧化碳约3万吨/年,质量达到国际食品级,并通过了世界500强企业——美国可口可乐公司严格的产品认证,已成为其中国供货商;公司利用专有专项技术回收工艺废气中的硫磺约150吨/年,全面实现达标排放,是河南省环保部门认定的优秀示范单位。 read more

 

政策法规

工信部:年内出台十大产业兼并重组政策

工信部刚下发限时淘汰落后产能令后,兼并重组风声再从工信部传来。   近日有媒体称,工信部起草的“支持行业兼并重组”政策已上报国务院,将主要从金融、财税、资源配给三方面支持大型企业进行兼并重组。 read more

picture

十二五煤化工产业政策收紧 资源大省比拼煤化工
煤化工产业政策闸门将再度收紧。    8月25日,工信部总工程师朱宏任在“中国煤化工论坛”上透露,“十二五”期间煤化工行业将严格行业准入,加快结构调整,严格限制煤炭调入区发展煤化工。 read more

picture

六个政策或将解决氮肥业困境
2010年上半年石油和化工行业经济运行报告中了解到:“今年下半年,化肥市场将会略好于上半年,但低迷局面不会有根本性扭转,特别是氮肥行业,将会延续低迷态势”。 read more

化工资讯


more news

 

友情链接