האם זה יתכן? הקוד שלי מול רכיב ושלי

כן עשיתי גם אפשרות של הגלת גודל של
קובץ
ומה זאת אומרת progress bar?
ועוד כמה דברים שעשיתי בפונציות:
הפונקציה מחזירה אם הקובץ נשמר
יש אפשרות לקבל את מספר הבקשה
או סתם אתה רוצה לשמור קובץ מצורה שלא יעבור עליה שוב:

Call AspTransferUploadSaveAs("file1","__path__/uploads/__id__.__post__.__now__.__type__",SizeMB(1….100 וכו) or SizeKB(…..number))

יש את האפשרויות הבאות:
__id__ = מחזיר את זיהוי הבקשה
__post__ = מחזיר את שם הInput
__now__ = מחזיר את התאריך והשעה במקום  / ו : יש מקב(-)
__type__ = מחזיר את סוג הקובץ (gif,asp…..)
__name__ = יחזיר את שם הקובת ללא סיומת
__filename__ = יחזיר את שם הקובץ עם הסיומת
__path__  = יחזיר את מיקום בשרת כלומר Server.MapPath() עשיתי את זה בשביל שלא יצרכו לעבוד קשה
הוספתי עוד פונקציה למקרה שרוצים לשמור במסד נתנונים את שם הקובת או לקבל את סוג הקובץ ללא הרבה עבודה בעזרת הפונקציה
FileType = AspTransferUploadFunctions("file1","__type__")
זה יחזיר את סיומת הקובץ שנשלח בinput file1
אם רוצים לקבל את שם הקובץ המלא
FileNameSave = AspTransferUploadFunctions("file1",__id__.__post__.__now__.__type__")
וסתם אם לא רוצים לעבוד עם הפוקנציה הזו עבדתי עם Scripting.Dictionary
נגיד אתם רוצים לשמור את הקובץ במסד ואתם רוצים לקבל את הערך שלו אז ככה:
אז קודם כל צריך לבדוק אם הוא נשמר:
If AspTransferUpload.Exists("file1") Then
Response.Write(AspTransferUpload.Item("file1").Item("FileValue"))
Else
Response.Write("הקובץ אינו נשמר")
End If
ואם אתה רוצה לקבל את רשימת כל הקבצים שנשלחו אז ככה:
For Each oUpload In AspTransferUpload.Items
Response.Write(oUpload.Item("FileName") & "<HR />")
Next
אם ברצונך לשמור את כ להקבצים שהתקבלו + לכתוב אם הם נשמרו בשרת
For Each oUpload In AspTransferUpload.Items
FileUpload = AspTransferUploadSaveAs(oUpload.Item("Post"),"__path__/uploads/__filename__SizeMB(1….100 וכו) or SizeKB(…..number))

Response.Write(oUpload.Item("Post") & ": " & FileUpload & "<HR />")
Next

קיצורררר שזה ארוך יש עוד הרבה הסברים על הפוקנציות
מה אתה אומר ניר שווה לחלק את הקוד או למכור אותו

נ.ב
לאלה ששואלים אותם למה זה טוב לעבוד עם קוד ולא רכיב אז זה התשובה:
אתם בונים אתר ואתם כל פעם צריכים לעבור שתים בלה בלה ובלה אז קוד asp יהיה יותר מתאים לשרת כלומר לא תצרך לפש שרת עם הרכיב הרציו או לשנות את קוד הרכיב
קיצור שווה לעבוד עם קוד asp

וניר תסביר מזה progress bar ב aspupload

טוב אני רואה שאני לא יצליח היום
תנסו להבין מה קוד ומה לא

כן כבר נכנסתי לשם וראיתי שאלה חדשה~
אני מנסה לטעון תמונה והדפיס אותה על העמוד הנה הקוד , זה ברור לא מצליח לי.

<%@ Language="VBScript" Codepage="1255" %>
<%
Option Explicit

Dim FSO
Dim getFSO

Response.ContentType = "image/gif"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
  Set getFSO = FSO.OpenTextFile(Server.MapPath("Blue hills.jpg"),1,true,-1)
   Response.BinaryWrite(getFSO.ReadAll)
  Set getFSO = Nothing
Set FSO = Nothing
%>

מישהו יודע למה?

התמונה לא עולה