设为首页
加入收藏
企业邮箱
 
 
<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = RS("TODAY") Rs("BMONTH") = Rs("MONTH") Rs("MONTH") = 1 Rs("TODAY") = 1 Rs.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = Rs("TODAY") Rs("TODAY") = 1 Rs.Update END IF END IF Rs("TOTAL")=Rs("TOTAL") + 1 Rs("TODAY") =Rs("TODAY") + 1 Rs("MONTH")=Rs("MONTH") + 1 Rs.Update %> <% N=now D2 = DateValue(N) D1 =#11/6/2005# ' 开始统计日期(月/日/年) Response.write"
企业简介
产品介绍
设备介绍
质量认证
销售网络
供货业绩
用人需求
留 言 簿
联系方式
企业邮局
   
开站至今日天数:" MyCounter( DateDiff("d", D1, D2) ) D3 = DateDiff("d", D1, D2) Response.write"平均一日人数:" MyCounter( Rs("TOTAL")\D3 ) CONN.CLOSE Function MyCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next Response.write G End Function %>
     
 

序号

使用用户

工程项目及设备名称 日期 

公司
类别

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
石横、平圩电厂 T12运煤漏斗车、厂房钢结构 1999




沙岭子电厂 双车翻车机、厂房钢结构 2000
伊川电力集团 铝厂一期工程、二期工程 2002~2006
扬州第二发电厂 卸船机、轨道 2002
宁波北仑港电厂 堆取料机及工程 2001
九冶承建内蒙古电厂 厂房钢结构 2002
湖南耒阳电厂 厂房钢结构 2004
许继集团变压器有限公司 变压器及立体车库 2000~2006








郑州宇航电力设备公司 厂房改造及变压器生产 2000~2006
铁道部保定变压器厂 变压器 2000
天威集团保定变压器厂 变压器 2000
辽宁省绥中火力发电厂 发电机组及机房钢结构 1999
铁道部保定制品厂 铁道电气网架 2004~2006
山东省荷泽发电厂 发电机组及机房钢结构 2003
西安捷瑞通讯有限公司 通讯塔架 2000

通信
公司

中国航天工业部 神舟三号发射塔 2002
葛洲坝集团公司 三峡工程桥梁及闸门 2000~2006




龙滩水电工程 厂房及闸门 2004
惠滩水电工程 厂房及闸门 2004
小浪底工程 闸门及发电机房钢结构 1999
郑州水工机械厂 水利机械 1998

上一页  下一页


© Copyright, 河南省鹤壁标准件制造有限公司 2005~2007
豫ICP备05006959号