Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > แปลงหน่วย ไบต์ เป็น เมก คือผมมี script upload (เอามาจากเว็บนี้หล่ะครับ)

[ASP] แปลงหน่วย ไบต์ เป็น เมก คือผมมี script upload (เอามาจากเว็บนี้หล่ะครับ)

เริ่มหัวข้อใหม่

Guest

คือผมมี script upload (เอามาจากเว็บนี้หล่ะครับ) แล้วผมเก็บขนาดไฟล์ลงฐานข้อมูลแต่ติดตรงที่ว่าหน่วยที่เก็บเป็นไบต์ครับ บางไฟล์ใหญ่ทำให้อ่านยากผมเลยรู้ว่าแปลงยังไงที่ต้องการ เช่น

ไฟล์ไม่ถึงเมกก็เป็น
0.78 MB

ไฟล์ร้อยเมก
988 MB

ไฟล์เกิน 1024 เมก ก็เป็น
1.82 GB
อยากได้แบบนี้ครับ

Tag : - - - -

Date : 2009-11-09 11:37:04

By : เด็กน้อยหน้าแก่

View : 3007

Reply : 3

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

เขียนเงื่อนไขเอาครับ ไม่ยากครับ

ในการแปลงให้เอา Bytes * 1024 * 1024

Date : 2009-11-09 13:34:48

By : webmaster

No. 2

The Asp-Tuy

โพสกระทู้ ( 64 )
บทความ ( 0 )

aspSmartUpload : Sample 2

<%
Function ConvertBytes(ByRef anBytes)
    Dim lnSize          ' File Size To be returned
    Dim lsType          ' Type of measurement (Bytes, KB, MB, GB, TB)
     
    Const lnBYTE = 1
    Const lnKILO = 1024                     ' 2^10
    Const lnMEGA = 1048576                  ' 2^20
    Const lnGIGA = 1073741824               ' 2^30
    Const lnTERA = 1099511627776            ' 2^40
    '    Const lnPETA = 1.12589990684262E+15        ' 2^50
    '    Const lnEXA = 1.15292150460685E+18        ' 2^60
    '    Const lnZETTA = 1.18059162071741E+21    ' 2^70
    '    Const lnYOTTA = 1.20892581961463E+24    ' 2^80
     
    If anBytes = "" Or Not IsNumeric(anBytes) Then Exit Function
     
    If anBytes < 0 Then Exit Function  
'    If anBytes < lnKILO Then
'        ' ByteConversion
'        lnSize = anBytes
'        lsType = "bytes"
'    Else        
        If anBytes < lnMEGA Then
            ' KiloByte Conversion
            lnSize = (anBytes / lnKILO)
            lsType = "kb"
        ElseIf anBytes < lnGIGA Then
            ' MegaByte Conversion
            lnSize = (anBytes / lnMEGA)
            lsType = "mb"
        ElseIf anBytes < lnTERA Then
            ' GigaByte Conversion
            lnSize = (anBytes / lnGIGA)
            lsType = "gb"
        Else
            ' TeraByte Conversion
            lnSize = (anBytes / lnTERA)
            lsType = "tb"
        End If
'    End If
    ' Remove fraction
    'lnSize = CLng(lnSize)
    lnSize = FormatNumber(lnSize, 2, True, False, True)
     
    ' Return the results
    ConvertBytes = lnSize & " " & lsType
End Function
'<-----------------------จบส่วนฟังก์ชั่นที่เพิ่มเข้าไป--------------------------->
 
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim intCount
   intCount=0
         
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
'  Upload
'  ******
   mySmartUpload.Upload
 
'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
         file.SaveAs(Server.MapPath("Upload/" & file.FileName))
         ' sample with a physical path 
         ' file.SaveAs("c:\temp\" & file.FileName)
        Size1 = ConvertBytes(file.Size) '<------ สั่งให้คำนวน
      '  Display the properties of the current file
      '  ******************************************
         Response.Write("Name = " & file.Name & "<BR>")
         Response.Write("Size = " & Size1 & "<BR>") '<------ แสดงขนาดที่คำนวนแล้ว
         Response.Write("FileName = " & file.FileName & "<BR>")
         Response.Write("FileExt = " & file.FileExt & "<BR>")
         Response.Write("FilePathName = " & file.FilePathName & "<BR>")
         Response.Write("ContentType = " & file.ContentType & "<BR>")
         Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
         Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
         Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
         intCount = intCount + 1
      End If
   Next
 
'  Display the number of files which could be uploaded
'  ***************************************************
   Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
 
'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " file(s) uploaded.<BR>")
%>

ผมลองกับ aspSmartUpload Sample 2 แล้วได้ผลครับ แปลงได้ทั้ง kb mk gb tb ครับ จากนั้นค่อยเอาไปจัดการลงฐานข้อมูลเองนะครับคงไม่ยากแล้ว

Date : 2009-11-09 22:53:36

By : asptuy

No. 3

The Asp-Tuy

โพสกระทู้ ( 64 )
บทความ ( 0 )

พิมพ์ผิด mb ไม่ใช่ mk คิดไปได้ตรูสงสัยหิว

Date : 2009-11-09 22:55:47

By : asptuy

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : แปลงหน่วย ไบต์ เป็น เมก คือผมมี script upload (เอามาจากเว็บนี้หล่ะครับ)

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038