 |
|
| |
|
|
|
|
|
 |
企业简介 |
|
产品介绍 |
|
设备介绍 |
|
质量认证 |
|
销售网络 |
|
供货业绩 |
|
用人需求 |
|
留 言 簿 |
|
联系方式 |
|
企业邮局 |
| |
|
<%
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 & "![](./gif/") "
Next
Response.write G
End Function
%>
|
|
 |
 |
 |
|
 |
| |
|
|
| |
|
|
| 序号 |
使用用户
|
工程项目及设备名称 |
日期 |
公司
类别 |
| 1 |
| 2 |
| 3 |
| 4 |
| 5 |
| 6 |
| 7 |
| 8 |
| 9 |
| 10 |
| 11 |
| 12 |
| 13 |
| 14 |
| 15 |
| 16 |
| 17 |
| 18 |
| 19 |
| 20 |
| 21 |
|
| 天津钢铁公司 |
方坯连铸机 |
2000 |
钢
铁
公
司 |
| 宝山钢铁公司 |
铸锭车和连铸机 |
2000 |
| 马鞍山钢铁公司 |
方坯连铸机、高速线材轧机、厂房钢结构 |
2000 |
| 昆明钢铁公司 |
方坯连铸机 |
2000 |
| 西北铁合金总厂 |
铁合金电炉及固定塔架 |
2001 |
| 邯郸钢铁公司 |
高速线材轧机及厂房钢结构 |
2001~2006 |
| 宝钢集团公司 |
混铁车、平底盛钢桶、板坯连铸机 |
2002 |
| 陕西钢铁公司 |
合金钢连铸机 |
2001 |
| 安阳钢铁公司 |
方坯连铸机、厂房钢结构、120T冶钢炉 |
2001~2006 |
| 西宁特钢集团公司 |
大方坯连铸机、厂房钢结构 |
2001 |
| 本溪钢铁公司 |
碳化室、板坯连铸机 |
2001 |
| 武汉钢铁公司 |
大包转台 |
2001 |
| 太原钢厂 |
太钢工程 |
1998~2006 |
| 日照港煤码头 |
双车翻车机及集装箱岸桥 |
1999 |
主
要
码
头 |
| 秦皇岛煤码头 |
三车翻车机 |
1999 |
| 秦皇岛粮食码头 |
装卸船机 |
1999 |
| 上海港张华浜集装箱码头 |
集装箱岸桥 |
2000 |
| 大连大窑湾港 |
集装箱岸桥 |
2000 |
| 青岛前湾港 |
堆取料机、桥梁 |
2000 |
| 广州黄浦新沙港 |
堆取料机、桥梁 |
2000 |
| 宝钢马迹山港 |
堆取料机、桥梁 |
2001 |
|
|
|
|
|
下一页
|
|
|
|
|
|
|
|
