 |
|
| |
|
|
|
|
|
 |
企业简介 |
|
产品介绍 |
|
设备介绍 |
|
质量认证 |
|
销售网络 |
|
供货业绩 |
|
用人需求 |
|
留 言 簿 |
|
联系方式 |
|
企业邮局 |
| |
|
<%
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
%>
|
|
 |
 |
 |
|
 |
| |
|
|
| |
|
|
|
营销网络化
|
|
引 言
|
|
市场与未来，代表了鹤标人的价值观念，把质优价廉的产品奉献给顾客，是全体鹤标人共同的信念，面各全国、走向世界的营销策略，将确保“鹤牌”产品延伸无限，鹤标人深信，技术领先、品质一流是“鹤牌”产品常胜不衰的成功所在。
|
| |
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
使用在工程机械上 |
使用在通信铁塔上 |
使用在火车机车上 |
|
|
|
|
|
使用在钢结构厂房上
|
|
下一页
|
|
我公司主要销售网点：
|
| 公司名称 |
负责人 |
电话 |
地址 |
| 河南省鹤壁标准件制造有限公司十堰销售分公司 |
刘发军 |
07198688138 |
人民中路66号 |
| 河南省鹤壁标准件制造有限公司洛阳销售分公司 |
杨小宏 |
037963253799 |
洛阳道南路3-8号 |
| 河南省鹤壁标准件制造有限公司济宁销售分公司 |
王
晶 |
05372355581 |
山东省济宁市 |
| 河南省鹤壁标准件制造有限公司北京销售分公司 |
于长兴 |
01087742651 |
朝阳区广渠路6号 |
|
|
|
|
| 点击进入详细销售及使用商目录
点击查找销售及使用商 |
|
|
|
|
|
|
