Forgot Password ??

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

	Registered : 109,027

HOME > ASP > ASP Forum > ต้องการเปลี่ยนชื่อรูปภาพที่ upload ลงในเว็บคับ

ต้องการเปลี่ยนชื่อรูปภาพที่ upload ลงในเว็บคับ

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

Guest

upload.asp
<%
Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop

End Sub

Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

%>

outputfile.asp

<%
len1=Len(request("url"))-InstrRev(request("url"),"/")
pathinfo=Server.mappath(Request.ServerVariables("PATH_INFO"))
pathEnd = Len(pathinfo)-len1
filepath=left(pathinfo,pathEnd) & "image\"
Response.Expires=0
Response.Buffer =TRUE
Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'email = UploadRequest.Item("email").Item("Value")
detail = UploadRequest.Item("detail").Item("Value")
subjectID = UploadRequest.Item("subjectID").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
if left(ContentType,5) <>"image" then
response.write "<center> Upload ä´Eà©¾ÒÐÃÙ»ÀÒ¾à·èÒ¹Ñé¹</center>"
response.end
end if
filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

response.write "Type: "&contentType & " "

'-------------------- upload to server ------------------------
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
response.write "Filename: " & filename & " "
response.write "Path: " & filepath & " "

Set fileObj = ScriptObject.CreateTextFile(filepath & filename)
For i = 1 to LenB(value)
fileObj.Write chr(AscB(MidB(value,i,1)))
Next
fileObj.Close

%>
ช่วยแก้ไขโค้ดให้ผมหน่อครับ ผม upload รูปลงเว็บ แต่อยากเปลี่ยนชื่อของรูปที่จะ upload ลงเว็บไม่ให้ชื่อซำกันคับและอยากถามว่า โค้ดที่ผมใช้ upload รูปภาพนี้ ควรเพิ่มเติมอะไรอีกบ้างหรือป่าวคับ ถ้าผู้รู้ทราบช่วยปรับปรุงให้ผมด้วยนะครับ ขอบคุณมากครับ

Tag : - - - -

Date : 4 ก.พ. 2548 14:46:44

By : nature_life19

View : 3657

Reply : 3

No. 1

TC Admin

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

ใช้เวลามาจัดการเกี่ยวกับตัวนี้ครับ
จะได้ข้อมูลภาพที่ชื่อไม่ซ้ำกันครับ
ช่น

TimeNow=Replace(Time, ":", "")
' จะได้เวลาปัจจบันมาแทนชื่อไฟล์ครับเช่น 154400filename.gif
filename_new=TimeNow&Mid(filename,pos_filebegin+1,pos_fileend-pos_filebegin)

Date : 4 ก.พ. 2548 18:29:08

By : @W_IN

No. 2

TC Admin

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

ASP aspSmartUpload (Upload Component)

Date : 2009-04-26 09:48:17

By : webmaster

No. 3

Guest

ถ้าจำกำหนดที่อยู่ในการจัดเก็บจะต้องแก้หรือเพิ่มตรงไหนครับ .. เช่น D:\Temporary\New Folder\1234.jpg

Date : 2015-05-23 10:30:39

By : ณัฐชนนท์

ค้นหาข้อมูล

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

Re : ต้องการเปลี่ยนชื่อรูปภาพที่ upload ลงในเว็บคับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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