 |
 |
 |
 |
 |
 |
|
 |
 |
  中量型搁楼式货架---组合式结构，层高可调。搁板可选用木搁板或钢搁板，货架可设计成2层或多层，适合用于汽车4S店，电子元器件及制造业的零部件存放，承重每层100-500公斤。   重量型搁楼式货架---组合式结构，层高可调，搁板可选木搁板或钢搁板，货架可设计成平台式多层。适用于大型工厂或物流配送，每层承重300-2000公斤。   自动化立体仓储--- 托盘式自动立体仓库，配以各种型号堆垛机、各种规格的托盘、仓储笼等。可以储存各种型态的货物。适用于制造行、商业储运及每三方物流的企。 系统可同时连接多个MMS客户机和ECS服务器。可视化、图表货的反映货位信息、货物移动及设务的各种状态等信息。合理的设计可使货物先进先出，出入库的作优先、货架的下重上轻、堆垛机的取货行程的原则。 堆垛机采用模块一体化设计、激光测距、变频电机、红外线通信、可编程序控制系统。彩色大屏幕显示出入库拣选作等信息。 |
COPYRIGHT(C)2007 上海得恩物流设备集成有限公司
沪ICP备 05008866号
<% '变量元素 Dim fsoObject '文件系统对象 Dim tsObject '文字系统对象 Dim filObject '文件对象 Dim lngVisitorNumber '保存来访者数量 Dim intDisplayDigitsLoopCount '循环计数显示 On Error Resume Next lngVisitorNumber = 0 Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If Session("lngSessionVisitorNum") = "" Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber Else 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber End if Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing Response.Write "浏览人数
" For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber) Response.Write "![]()
"
Next
%>
沪ICP备 05008866号
<% '变量元素 Dim fsoObject '文件系统对象 Dim tsObject '文字系统对象 Dim filObject '文件对象 Dim lngVisitorNumber '保存来访者数量 Dim intDisplayDigitsLoopCount '循环计数显示 On Error Resume Next lngVisitorNumber = 0 Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If Session("lngSessionVisitorNum") = "" Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber Else 'Place the Visitor number in the session visitor number Session("lngSessionVisitorNum") = lngVisitorNumber End if Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing Response.Write "浏览人数
" For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber) Response.Write "