עזרה ב ASP
שלום אני בונה אתר בשפת ASP+JavaScript+SQL בניתי דף שדרכו מנהל האתר מעלה תמונות לאת רציתי לשאול כיצד אני עושה שהתמונה תישב במיקום מסוים בדף תודה הקוד של העלאת התמוה הוא:
שלום אני בונה אתר בשפת ASP+JavaScript+SQL בניתי דף שדרכו מנהל האתר מעלה תמונות לאת רציתי לשאול כיצד אני עושה שהתמונה תישב במיקום מסוים בדף תודה הקוד של העלאת התמוה הוא:
<html> <head> <title> העלאת תמונה</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1255"> <script language="javascript" type="text/javascript"> var oSize; function validate(frm){ if(!(/\.(?:jpg|gif|png)$/.test(frm.sPicture.value.toLowerCase()))){ alert("סוגי הקבצים המותרים הם: jpg gif png") return false; } if(oSize&&oSize>50){ alert("משקל הקובץ לא יהיה גדול מ-50K") return false; } return true; } function check(){ //made by xyxyxy. var oPic = document.createElement("img"); oPic.onload = function(){ oSize=(oPic.fileSize/1024).toFixed(1) } oPic.src = document.getElementById("oFile").value; } </script> </head> <body bgcolor=#dda0dd style="margin:0; overflow:hidden;"> <table style="height:100%; width:100%; text-align:center; direction:rtl;" border="0" cellpadding="0" cellspacing="0"> <tr><td style="font:28px Arial; font-weight:bolder; text-align:right; padding:10px 15px 2px 0; border-bottom:3px solid #808080; background-color:#efefef">העלאת תמונה אישית</td></tr> <tr> <td style="height:100%;"> <form method="post" action="UploadScript1.asp" enctype="multipart/form-data" onsubmit="return validate(this)"> <br /> <input type="file" id="oFile" name="sPicture" onchange="check()" style="width:300px; font:13px Arial;" /><br /><br /> <input type="submit" value="העלה את התמונה" style="font:13px Arial;" /> </form> </td> </tr> <tr><td style="font:13px Arial; font-weight:bolder; padding:10px; border-top:3px solid #808080; background-color:#efefef">סוגי הקבצים המותרים: png ,gif ו-jpg, במשקל של עד 50k</td></tr> </table> </body> </html>
הקוד של שמירת התמונה הוא:<HTML> <body bgcolor=#dda0dd> <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False Count = Upload.Save("c:\upload") %> Files:<BR> <% For Each File in Upload.Files Response.Write File.Name &"= "& File.Path &" ("& File.Size &" bytes)<BR>" Next %> </BODY> </HTML>