Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > จากบทเรียนหัวข้อ การ Uploads ไฟล์ผ่าน Brownser เราสามารถเปลี่ยนชื่อไฟล์ที่ทำการ Upload ไม้ไหมครับ



 

จากบทเรียนหัวข้อ การ Uploads ไฟล์ผ่าน Brownser เราสามารถเปลี่ยนชื่อไฟล์ที่ทำการ Upload ไม้ไหมครับ

 



Topic : 020385

Guest




เราสามารถเปลี่ยนชื่อไฟล์ที่ทำการ Upload ไม้ไหมครับ
อยางเช่นว่า ไม่ว่าผู้ใช้งานจะ Upload File ชื่ออะไรมาโปรแกรมก็จะบันทึกไฟล์ชื่อตามลำดับที่เราระบุไว้ครับ
รบกวนดัวยนะครับ



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 9 มิ.ย. 2551 16:19:37 By : tongkku View : 1724 Reply : 1
 

 

No. 1

Guest


ทำได้ครับ ผมใช้ Persit Upload

filename.asp
<!-- AspUpload Code samples: filename.asp -->
<!-- Using memory uploads to access the file name -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->

<HTML>
<BODY>

<h3>Using memory uploads to access the file name</h3>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="filename_upload.asp">
<%
Dim intCounter
intCounter = 1
Do While(intCounter < 11)
%>
Up file no.<%=intCounter%>
<% if intCounter<10 then response.write "&nbsp;&nbsp;" end if %>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE<%=intCounter%>"><BR>
<%
intCounter = intCounter+1
loop
%>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>


filename_upload.asp
<!-- AspUpload Code samples: filename_upload.asp -->
<!-- Invoked by filename.asp -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->

<HTML>
<BODY>
<%
function getFileExt(fileName)
getFileExt = Mid(fileName, InstrRev(fileName, ".") + 1)
end function

Set Upload = Server.CreateObject("Persits.Upload")

' we use memory uploads, so we must limit file size
Upload.SetMaxSize 100000, False

' Save to memory. Path parameter is omitted
Upload.Save

' Check whether a file was selected

Dim ExtArray(3) 'Fixed size array
ExtArray(0) = "jpg"
ExtArray(1) = "gif"
ExtArray(2) = "png"
ExtArray(3) = "jpeg"

Dim intCounter, FileSize, todays, upped
upped = 0
intCounter = 1
Do While(intCounter < 11)

todays = now()
todays = replace(todays, "/","")
todays = replace(todays, ":","")
todays = replace(todays, " ","-")

Set File = Upload.Files("FILE"&intCounter)

If Not File Is Nothing Then

' Obtain file name
Filename = File.Filename
Ext = getFileExt(Filename)

intSizeK = Int((File.Size/1024) + .5)
'GetFileSizeType = "("&UCase(File.GetExtensionName(File))&", "&intSizeK&"K)"
Response.Write(Filename &" Size : "& intSizeK & "K <br>" )
'Response.Write "extension : " & Ext &"<br>"
'For Each Ext In ExtArray
'Response.Write("."&Ext & " Recomment File type<br />")
'Next
For x=0 to Ubound(ExtArray)
if Ext = ExtArray(x) Then
'Response.Write("."&Ext & " Recomment File type<br />")
else
'Response.Write("."&Ext & " Un-Recomment File type<br />")
exit for
End if
Next

'check if file exists in c:\upload under this name
If Upload.FileExists("c:\upload\" & filename ) Then
Response.Write "File with this name already exists."
Else
' otherwise save file
File.SaveAs "c:\upload\"&todays&File.Filename
'Response.Write "File saved as " & File.Path & "<br>"
'Response.Write "<br>"&todays
upped = upped+1
End If
Else ' file not selected
'Response.Write "File not selected."
End If

intCounter = intCounter+1
loop
Response.Write(upped & " files uploaded")
Response.Write("<meta http-equiv='refresh' content='3; URL=filename.asp'>")
%>
</BODY>
</HTML>


Date : 12 มิ.ย. 2551 11:47:32 By : trans
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : จากบทเรียนหัวข้อ การ Uploads ไฟล์ผ่าน Brownser เราสามารถเปลี่ยนชื่อไฟล์ที่ทำการ Upload ไม้ไหมครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่