01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & aspSmartUpload</title>
05.</head>
06.<body>
07.<%
08. Dim mySmartUpload
09.
10.
11. Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
12.
13.
14. mySmartUpload.Upload
15.
16.
17.
18. If mySmartUpload.Files("file1").FileName <> "" Then
19. mySmartUpload.Files("file1").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("file1").FileName))
20. Response.write mySmartUpload.Files("file1").Name & " Uploaded."
21. End If
22.
23.
24. If mySmartUpload.Files("file2").FileName <> "" Then
25. mySmartUpload.Files("file2").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("file2").FileName))
26. Response.write mySmartUpload.Files("file2").Name & " Uploaded."
27. End IF
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40. Set mySmartUpload = Nothing
41.%>
42.</body>
43.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
