/beta/order/files_sam_recicel.asp
ASP | 47 lines | 47 code | 0 blank | 0 comment | 3 complexity | 33199105792a1336537c0bc47660ac5c MD5 | raw file
1 <TABLE Class="OrderFile" cellspacing='1' align=center style='width:700;background-color:red;border:2 solid black;'> 2 <tr> 3 <td colspan="2" class="orderTableHeader" style="text-align:center;">فايلهاي مربوط به اين سفارش</td> 4 <td colspan='2' class="orderTableHeader" style="text-align:left;"> 5 <input class="GenButton" type="button" value="اضافه کردن فايل" onclick="window.location='file://///intelserver2500/OrdersStorage/<%=cstr(Order)%>';"> 6 <input type='file' value='اضافه کردن فايل'> 7 </td> 8 </tr> 9 <% 10 dim fso, fld, file 11 set fso = Server.CreateObject("Scripting.FileSystemObject") 12 on error resume next 13 set fld = fso.GetFolder("\\intelserver2500\OrdersStorage\" & cstr(Order)) 14 tmpCounter = 0 15 for each file in fld.Files 16 tmpCounter = tmpCounter + 1 17 %> 18 <tr class="<%if (tmpCounter MOD 2) = 1 then response.write "CusTD3" else response.write "CusTD4"%>"> 19 <td> 20 <a href='file://///intelserver2500/OrdersStorage/<%=cstr(Order)%>/<%=file.Name%>'> 21 <%=left(file.Name,inStrRev(file.Name,".") - 1)%> 22 </a> 23 </td> 24 <td> 25 <%=file.Type%> 26 </td> 27 <td> 28 <%=separate(file.Size)%> 29 </td> 30 <td> 31 <%=file.DateCreated%> 32 </td> 33 </tr> 34 <% 35 next 36 if tempCounter = 0 then 37%> 38 <tr class="CusTD3"> 39 <td colspan="4">هيچ</td> 40 </tr> 41 <% 42 end if 43 set fso = nothing 44 set fld = nothing 45 set file = nothing 46 %> 47 </TABLE>