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,027

HOME > ASP > ASP Forum > สอบถามเรื่องไฟล์อัฟโหลดหน่อยครับ ผมจะทำไฟล์อัฟโหลดขึ้น server แบบเลือกว่าจะเซฟไฟล็ไว้โฟลเดอร์ไหนประมาณนี้ครับ



 

สอบถามเรื่องไฟล์อัฟโหลดหน่อยครับ ผมจะทำไฟล์อัฟโหลดขึ้น server แบบเลือกว่าจะเซฟไฟล็ไว้โฟลเดอร์ไหนประมาณนี้ครับ

 



Topic : 069365



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



สถานะออฟไลน์




สอบถามเรื่องไฟล์อัฟโหลดหน่อยครับ ผมจะทำไฟล์อัฟโหลดขึ้น server แบบเลือกว่าจะเซฟไฟล็ไว้โฟลเดอร์ไหนประมาณนี้ครับ



Tag : ASP, VBScript







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-11-21 16:38:22 By : sununrak View : 1626 Reply : 2
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เขียนระบุไปในไฟล์ ASP ครับ

Go to : ASP aspSmartUpload (Upload Component) : การอัพโหลดไฟล์ด้วย ASP






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-21 22:09:10 By : webmaster
 


 

No. 2



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



สถานะออฟไลน์


นี้ครับ Code ที่เขี่ยนขึ้นมาแต่ เมื่อเรากด submit แล้วค่า Department และ DocType มันไม่จำค่าเดิมครับ คือมันจะเป็นค่าว่างไปเลยครับ
ไฟล์ที่ UPLoad ขึ้นไปมันไม่เข้าไปในโฟลเดอร์ที่ต้องการครับ มันไปหยุดที่ E:\home\it\testUPLoad\file ครับ รบกวนพี่ๆๆทุกคนช่วยดูให้หน่อยครับ....


<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
' All communication must be in UTF-8, including the response back from the request
Session.CodePage = 65001

'รับค่าตัวแปล DocType, Department
Dim DocType, Department

DocType = request("DocType")
Department=request("Department")
%>

<!-- #include file="freeaspupload.asp" -->

Department=<%=Department%><br/>DocType=<%=DocType%><br/>

<%
'กำหนดพื้นที่เก็บไฟล์
Dim uploadsDirVar
uploadsDirVar = "E:\home\it\testUPLoad\file\" & Department & "\" & DocType & "\"

%>
<%
function loadDepartment()

end function
%>
<HTML>
<HEAD>
<TITLE>Test Free ASP Upload 2.0</TITLE>
<script>
function onSubmitForm() {
var formDOMObj = document.frmSend;
if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "")
alert("àÅ×Í¡ä¿Åì....")
else
return true;
return false;
}
</script>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style>
BODY {background-color: white;font-family:arial; font-size:12}
</style>

</HEAD>

<BODY>

<form name="frmSend" method="POST" enctype="multipart/form-data" accept-charset="utf-8" action="uploadTester.asp" onSubmit="return onSubmitForm();">
File 1: <input name="attach1" type="file" size=35><br/><br/>
File 2: <input name="attach2" type="file" size=35><br/><br/>
<input type="hidden" name="dataDepartment" value="<%=Department%>">
<input type="hidden" name="dataDocType" value="<%=DocType%>">
<input style="margin-top:4" type=submit value="Upload">
</form>

<br><br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div>

<%
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
%>
TEST UP Load
<%
else
response.write "<div style=""margin-left:150"">"
response.write SaveFiles()
response.write "<br><br></div>"
end if
%>

<br><br>

</BODY>
</HTML>

<%
function SaveFiles

Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Files uploaded:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "เลือก File UPLoad to Server"
end if

SaveFiles = SaveFiles & "<br>Department = " & Upload.Form("dataDepartment") & "<br>"
SaveFiles = SaveFiles & "DocType = " & Upload.Form("dataDocType") & "<br>"

end function
%>


ประวัติการแก้ไข
2011-11-22 14:19:48
2011-11-23 07:42:39
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-22 14:17:26 By : sununrak
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามเรื่องไฟล์อัฟโหลดหน่อยครับ ผมจะทำไฟล์อัฟโหลดขึ้น server แบบเลือกว่าจะเซฟไฟล็ไว้โฟลเดอร์ไหนประมาณนี้ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่