 |
 |
 |
 |
 |
 |
|
 |
 |
  横梁式货架---组合式结构层高可随意调节。配以各种类型的托盘和叉车，可实现货物的快速存取。横梁式货架分为：轻、中、重量型。每层承重可达500-5000公斤，是最常用的储存方式。   驶入式货架---组合式结构，层高可随意调节，配以各种型号的叉车和托盘，存取货物时，叉车需直接进入货架作业区操作，每层承重500-2000公斤，适合存储大批量、少品种的货物，能充分利用仓库面积。   窄巷式货架---组合式结构，层高可随意调节，巷道设计成1400-1800mm。配以特殊规格的叉车及导轨，可实现货物的快速存取，每层承重500-5000公斤，其优点是库房可充分利用。   重力式货架---组合式结构，把货架巷道设计成一定斜度，利用货物自重，配上滚筒及定位装置和减速装置等。达到先进先出，快速存取。   移动式货架---电机驱动装置，配有轨道和滚轮及控制等，特点是可节约仓库面积。   流利式货架---货物从坡度的一端放入，货物靠自重下滑，滑道配上流利条，适用于电子、医药、化工及零部件配送等。   悬臂式货架---悬臂式货架适用于存方长物料，棒料和环形物品，托臂可分单面或双面，也可配搁板，每层承重300-2000公斤。 |
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 "