بهترین اطلاعات کامپیوتری

فرستادن فایل یا Upload از صفحه وب | ASP , | علی فیروزجنگ

فرستادن فایل یا Upload از صفحه وب
در اینجا به ذكر نمونه ای از یك كد آماده برای بارگزاری فایل از طریق صفحه وب ( Upload ) به یك سرویس دهنده می پردازیم . در ابتدا باید هر دو فایل زیر را بسازید :
upload_page.asp :
 <% Server.ScriptTimeout = 300 'now i can upload and save files upto ~8Mb Dim intLevel, intUpload, intSave, strError, strContenType, strFilename, lngFileSize Dim objUpload Dim lngTime, lngUploadTime, lngSaveTime intLevel = Request.QueryString("level") '-------------------------------------- wrHead If intLevel = 1 Then Set objUpload = New FileUpload With objUpload .Path = "D:\Inetpub\wwwroot\test" lngTime = Timer() intUpload = .Upload lngUploadTime = Round((Timer() - lngTime) * 1000,3) lngTime = Timer() intSave = .Save(true) lngSaveTime = Round((Timer() - lngTime) * 1000,3) strError = .Error strFilename = .Filename lngFilesize = .Size strContentType= .ContentType End With Set objUpload = Nothing End If wrForm wr "<hr style=""height:1px;width:100%;"" />" wr "Upload = " & intUpload & "<br />" wr "Save = " & intSave & "<br />" wr "Error = " & strError & "<br />" wr "Filename = " & strFilename & "<br />" wr "Filesize = " & lngFilesize & "<br />" wr "Content-Type = " & strContentType & "<br />" wr "Upload time = " & lngUploadTime & " ms<br />" wr "Save time = " & lngSaveTime & " ms <br />" wr "<hr style=""height:1px;width:100%;"" />" wrFoot '-------------------------------------- Sub wrForm wr "<form method=""post"" enctype=""multipart/form-data"" action=""?level=1"">" wr "<input type=""file"" name=""file""></input>" wr "<input type=""submit""></input>" wr "</form>" End Sub Sub wrHead wr "<html>" wr "<head>" wr "<title>upload</title>" wr "</head>" wr "<body>" End Sub Sub wrFoot wr "</body>" wr "</html>" Response.End End Sub Sub wr(byval sText) If sText <> "" Then Response.Write sText & vbNewLine End Sub %>
upload_class.asp :
<% '+--------------------------------+ '|Class: FileUpload | '|Date: 11:01 PM 7/23/2002| '|By: M.Meijer | '|Version: 1.0 | '+--------------------------------+ ' 'To upload and save a file submitted within a html form ' '**Remarks: 'Uploading files with this class is not recommended for huge files, 'it takes alot of time saving the file to a textstream (as it the function 'save' does). 'It takes 7.812ms to upload a file from 'localhost', with a size of 40,000 bytes. 'Saving this file however costs 1078.125ms, and it takes 145828.1ms to save a file of 5.5Mb. 'Conclusion don't save big files, use the maxfilesize property to limit the filesize. 'The class can only handly one file on a submission. 'The file will be saved in the specified 'Path', if there is no 'path' set, it can't save the file. (doh!) ' 'Properties: '----------- ' ' ContentType string read Content-Type of the file ' Filename string read/write Name of the file ' Path string read/write A path to a directory with permissions to write the file ' Size long read The size of the file in bytes ' AllowedFiles string read/write Allowed file extension(s), multiple seperated with a comma ' Maxfilesize long read/write Maximum allowed size of the file ' Error string read The explenation of an error if occured ' 'Methods '------- ' ' Upload() = Status ' Copies the result of Request.Binaryread to a file ' ' Status integer 0 Upload success ' 1 A file has not been posted ' 2 File exceeds the maximum allowed filesize ' 3 Type is not allowed ' ' Save(Overwrite) = Satus ' Slaat de bytearray op in een bestand met de in Filename gedefineerde bestandsnaam, ' in de in Path gedefineerde diretorie. ' ' Overwrite boolean true If the file exists it will be overwritten ' false If the file exists it will not be overwritten ' ' Status integer 0 The file has been saved ' 1 The binary value could not be written to a file ' 2 There is no binary value ' 3 The filename is empty ' 4 An error already occured, can't continue ' ' ' 'Code: '----------------------------------------------------------------------------------- Class FileUpload Private strContentType Private bytData Private strFilename Private strPath Private lngTotalbytes Private strAllowedFiles Private lngMaxFileSize Private strError Private Sub Class_initialize() strContentType = "" bytData = chrB(10) strFilename = "" strPath = "" lngTotalbytes = 0 strAllowedFiles = "" lngMaxFileSize = 0 strError = "" End Sub Private Sub CLass_Terminate() bytData = Null End Sub Public Property Get Size Size = lngTotalbytes End Property Public Property Let MaxFileSize(byval vData) If isNumeric(vData) > 0 Then lngMaxFileSize = vData End If End Property Public Property Get MaxFilesize MaxFilesize = lngMaxFileSize End Property Public Property Let AllowedFiles(byval vData) If Len(vData) > 0 Then strAllowedFiles = vData End If End Property Public Property Get AllowedFiles AllowedFiles = strAllowedFiles End Property Public Property Get Error Error = strError End Property Public Property Get ContentType ContentType = strContentType End Property Public Property Let Path(byval vData) If Len(vData) > 0 Then strPath = vData End If End Property Public Property Get Path Path = strPath End Property Public Property Let Filename(byval vData) If Len(vData) > 0 Then strFilename = vData End If End Property Public Property Get Filename Filename = strFilename End Property Public Function Upload()' as integer Dim bytAllData lngTotalbytes = Request.Totalbytes If lngTotalbytes > 0 Then If lngMaxFilesize <> 0 Then If lngTotalBytes > lngMaxFileSize Then strError = "The file exceeds the allowed capacity." Upload = 2 Exit Function End If End If bytAllData = Request.BinaryRead(lngTotalbytes) strContentType = GetContentType(bytAllData) strFilename = GetFilename(bytAllData) If strAllowedFiles <> "" Then If Not AllowedFile(strFilename) Then strError = "Filetype is not allowed." Upload = 3 Exit Function End If End If bytData = GetData(bytAllData) Upload = 0 Else Upload = 1 strError = "No data recieved." End If End Function Public Function Save(byval bOverwrite) If strError <> "" Then Save = 4 Exit Function End If If strPath <> "" Then If Mid(strPath,Len(strPath)-1,1) <> "\" Then strPath = strPath & "\" If strFilename <> "" Then If LenB(bytData) > 1 Then If SaveBinaryData(bytData,strPath & strFilename,bOverwrite) Then Save = 0 Else Save = 1 End If Else Save = 2 strError = "No data." End If Else Save = 3 strError = "Not a valid filename specified." End If Else Save = 4 strError = "No path specified." End If End Function Private Function AllowedFile(byval sFilename)'as boolean Dim arrAllowedFiles, intCount Dim strExtension If Len(sFilename) > 0 Then If inStr(sFilename,".") > 0 Then strExtension = Mid(sFilename,Len(sFilename) - inStr(strReverse(sFilename),".")+2) arrAllowedFiles = Split(strAllowedFiles,",") AllowedFile = False For intCount = 0 To Ubound(arrAllowedFiles) If arrAllowedFiles(intCount) <> "" Then If Lcase(strExtension) = Lcase(Trim(arrAllowedFiles(intCount))) Then AllowedFile = True Exit For End If End If Next Else AllowedFile = False End If Else AllowedFile = False End If End Function Private Function SaveBinaryData(byval bData, byval sFilename, byval bOverwrite) 'as boolean Dim objFs, objTextFile Dim intCount, strFile If LenB(bData) < 2 Then strError = "No data." SaveBinaryData = False Exit Function End If Set objFs = Server.CreateObject("scripting.filesystemobject") If Not objFs.FolderExists(strPath) Then strError = "Directory does not exists." SaveBinaryData = False Exit Function End If If Not bOverwrite And objFs.FileExists(sFilename) Then strError = "File already exists." SaveBinaryData = False Exit Function End If Set objTextFile = objFs.CreateTextFile(sFilename,True,False) For intCount = 1 To LenB(bData) objTextFile.Write Chr(AscB(MidB(bData,intCount,1))) Next objTextFile.Close Set objTextFile = Nothing Set objFs = Nothing Session("file") = Null SaveBinaryData = True End Function Private Function GetData(byval bFile)'as bytearray Dim intStart, intEnd If LenB(bFile) < 1 Then GetData = ChrB(10) Exit Function End If intStart = inStrB(bFile,ChrB(13) & ChrB(10) & ChrB(13) & ChrB(10)) + 4 intEnd = inStrB(bFile,ChrB(13) & ChrB(10) & ChrB(45) & ChrB(45)& ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45) & ChrB(45)) If intStart > 0 Then If intStart < intEnd Then GetData = MidB(bFile, intStart, intEnd - intStart) Else GetData = ChrB(10) End If Else GetData = ChrB(10) End If End Function Private Function GetFilename(byval bFile)' as string Dim bytFilename, bytChar, strFilename Dim intStart, intCount If LenB(bFile) < 1 Then GetFilename = "" Exit Function End If If LenB(bFile) > 0 Then If inStrB(bFile,ChrB(102) & ChrB(105) & ChrB(108) & ChrB(101) & ChrB(110) & ChrB(97) & ChrB(109) & ChrB(101) & ChrB(61)) Then intStart = inStrB(bFile, ChrB(102) & ChrB(105) & ChrB(108) & ChrB(101) & ChrB(110) & ChrB(97) & ChrB(109) & ChrB(101) & ChrB(61)) + 10 For intCount = intStart To LenB(bFile) bytChar = MidB(bFile, intCount,1) If bytChar = ChrB(34) Then Exit For End If bytFilename = bytFilename & bytChar Next End If End If For intCount = 1 To LenB(bytFilename) strFilename = strFilename & Chr(AscB(MidB(bytFilename,intCount,1))) Next strFilename = Mid(strFilename,Len(strFilename) - inStr(strReverse(strFilename),"\")+2) GetFilename = strFilename End Function Private Function GetContentType(byval bFile) Dim bytContentType, strContentType, bytChar Dim intStart, intCount If LenB(bFile) < 1 Then GetContentType = "" Exit Function End If If inStrB(bFile,ChrB(67) & ChrB(111) & ChrB(110) & ChrB(116) & ChrB(101) & ChrB(110) & ChrB(116) & ChrB(45) & ChrB(84) & ChrB(121) & ChrB(112) & ChrB(101) & ChrB(58)) > 0 Then intStart = inStrB(bFile,ChrB(67) & ChrB(111) & ChrB(110) & ChrB(116) & ChrB(101) & ChrB(110) & ChrB(116) & ChrB(45) & ChrB(84) & ChrB(121) & ChrB(112) & ChrB(101) & ChrB(58)) + 14 For intCount = intStart To LenB(bFile) bytChar = MidB(bFile, intCount,1) If bytChar = ChrB(13) Then Exit For End If bytContentType = bytContentType & bytChar Next End If For intCount = 1 To LenB(bytContentType) strContentType = strContentType & Chr(AscB(MidB(bytContentType,intCount,1))) Next GetContentType = strContentType End Function End Class '----------------------------------------------------------------------------------- %>
حالا كافیست در فایل اول در خط 15 مسیر را برای ذخیره فایلها روی سرویس‌دهنده خود مشخص كنید :
.Path = "D:\Inetpub\wwwroot\test";

مسیر تعیین شده باید حتماً موجود باشد

|+| نظرات ()

تاریخ ثبت : سه شنبه 22 شهریور 1384 ساعت : 03:09 ق.ظ

ارسال ایمیل با کمک ASP | ASP , | علی فیروزجنگ

ارسال ایمیل با کمک ASP
استفاده از آبجکت CDONTS که یکی از کامپوننتهای ویندوز سرور 2000 و ان تی می باشد به راحتی می توان در اسکریپتهای سمت سرور
ایمیل ارسال کرد.
طریقه استفاده به شکل زیر می باشد
<%
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
%>
مقادیر قابل تنظیم برای این آبجکت به شرح جدول زیر می باشد.
From
یک مقدار رشته ای که آدرس پست الکترونیکی فرستنده را مشخص می کند
(به طور مثال Me@somewhere.com)
To
یک مقدار رشته ای که آدرس پست الکترونیکی گیرنده را مشخص می کند.
(به طور مثال, someone@somewhere.com)
آدرس گیرنده های مختلف با استفاده از علامت روبرو امکان پذیر میباشد ";"
Subject
عنوان پیام
Body
متن پیام
Cc
آدرس پست الکترونیکی شخصی که قرار است یک کپی از نامه را دریافت کند
Bcc
آدرس الکترونیکی شخصی که قرار است یک کپی از نامه را دریافت کند ( بدون اطلاع دریافت کننده نامه)
Importance
یک مقدار عددی که نشان دهنده در جه اهمیت نامه می باشد
(برای مثال خیلی مهم , مهم , عادی )
BodyFormat
یک مقدار عددی که نشان دهنده فرمت اطلاعات متن نامه می باشد
ObjMail.BodyFormat = 0 (HTML format)
ObjMail.BodyFormat = 1 (متن عادی)
MailFormat
یک مقدار عددی که نشان دهنده فرمت اطلاعات نامه می باشد
ObjMail.MailFormat = 0 (Mime format)
ObjMail.MailFormat = 1 (متن عادی)

متودهای این آبجکت
AttachFile
این متود یک فایل را به نامه پیوست می کند
AttachURL
این متود آدرس فایل پیوست شده را تخصیص می دهد
Send
این متود نامه را ارسال می کند
بعد از ارسال ایمیل مقادیر در حافظه باقی می ماند و شما باید حافظه را خالی کنید. همچنین برای ارسال یک ایمیل جدید باید یک آبجکت جدید
ایجاد کرده و از آن استفاده کنید. کد زیر نحوه استفاده از این آبجکت را در asp نشان می دهد.
<%
Option Explicit

Dim objNewMail

' ابتدا یک آبجکت از نوع cdonts ایجاد می کنیم
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' بعد از ایجاد آبجکت ما باید مقادیر مربوط به آن را تنظیم کنیم

objNewMail.From = "webmaster@iran.com"
objNewMail.To = "test@yahoo.com"

objNewMail.Subject = "این یک ایمیل تستی است"
objNewMail.Body = "این متن نامه است"
objNewMail.Send

' بعد از ارسال ایمیل با استفاده از کد زیر فضای حافظه را خالی می کنیم

Set objNewMail = Nothing

Response.Write "ایمیل ارسال شد"

%>

|+| نظرات ()

تاریخ ثبت : دوشنبه 21 شهریور 1384 ساعت : 01:09 ق.ظ

شی RESPONSE و استفاده از فایل های include | ASP , | علی فیروزجنگ

شی RESPONSE و استفاده از فایل های include
برای پاسخ گویی به مرورگر ، از متدهای شیء Response استفاده می شود . در واقع شیء Response راهی برای برقراری ارتباط با سرویس گیرنده است .

شیء Scripting Context :
این شیء امكان دسترسی اشیاء ActiveX خارجی به اشیاء درونی ASP را فراهم می كند. البته بهتر است به جای این شیء از شیء Object Context استفاده كنید . برای گرفتن شیء Object Context نیز باید متد Object Context() را فراخوانی كنید .
شیء Scripting Context ، تمام اشیاء ASP را درون خود جمع می كند . هنگامی كه یك صفحه ASPكه شامل رفرنس هایی به اشیاء ActiveX می باشد اجراء میشود ، ابتدا موتور ASP متد On Start Page هر یك از آن اشیاء ActiveX را فراخوانی كرده و شیء Scripting Context را به عنوان پارامتر به آن می فرستد. اشیاء ActiveX با استفاده از این پارامتر می توانند اشاره گر هایی به اشیاء Server ، Application ، Request و Response به دست آورند. در این جا لیستی از ویژگی های شیء Scripting Context را ملاحظه می كنید :
• Server
• Application
• Session
• Request
• Response

هر یك از این 5 ویژگی یك اشاره گر ( Pointer ) به یكی از اشیاء درونی ASP بر می گردانند .
• توجه : Microsoft توصیه می كند كه به جای استفاده از شیء Scripting Context از متد
get Object Context اگر چه امكان استفاده از شیء Scripting Context كماكان وجود دارد، ولی باید بدانید كه این شیء از رده خارج شده و در برنامه های جدید خود نباید از آن استفاده كنید .

شیء Object Context :
شیء Object Context به عنوان پل ارتباطی با MTS ( Microsoft Transaction Server ) تلقی می شود. با MTS شما می توانید كاری كنید كه اشیاء ActiveX در تراكنش هایی كه صفحه ASP آغاز شده اند شركت كنند. همچنین با استفاده از شیء Object Context در هنگام نوشتن اشیاء ActiveX می توانید به اشیاء درونی ASP دسترسی پیدا كنید .
آشنایی با ساختار یك برنامه ASP
از نظر موتور ASP ، یك برنامه كاربردی عبارت است از مجموعه ای از تمام فایل و زیر دایركتوری های ( Subdirectory ) موجود در یك دایركتوری كه شامل فایل Global . asa باشد . بیشتر برنامه های كاربردی ASP شامل فایل های ASP و فایل های Include ( با پسوند .inc ) هستند كه هر دوی آنها می توانند تركیبی از HTML ، كد و فایل های گرافیكی باشند. البته شما می توانید فایل های ASP را با فایل های HTML یا هر فایل دیگری كه برای سرویس دهنده قابل شناسایی باشد تركیب كنید .

بالاترین دایركتوری در این ساختار شامل فایل Global . asa است . این فایل دایركتوری ریشه ( Root Directory )
برنامه كاربردی را مشخص می كند .
اولین باری كه یك كاربر یكی از فایل های ASP موجود در یكی از دایركتوری های برنامه را درخواست می كند ، موتور ASP ساختار درختی درختی دایركتوری ها را به سمت بالا طی میكند تا فایل Global . asa را پیدا كند و یا به ریشه وب ( Root Web Directory ) برسد . این نكته از اهمیت زیادی برخوردار است ، چون اگر شما چند برنامه كاربردی را درون هم قرار دهید ( كه به آنها برنامه های كاربردی تودرتو – Nested Applications - می گویند ) ، فایل Global . asa كه برای هر درخواست كاربر اجرا می شود بستگی دارد به این كه كاربر ابتدا كدام فایل را درخواست نماید . چون نمی توان اولین درخواست كاربر را كنترل نمود ، بهتر است برنامه های ASP را درون هم قرار ندهید ؛ مگر این كه دلیل موجهی برای این كار داشته باشید .
ساختن یك برنامه كاربردی وب تحت IIS 4.0 به یك مرحله دیگر نیز دارد : شما باید به IIS بگویید كه دایركتوری مجازی ( Virtual Directory ) در برگیرنده فایل Global . asa ، دایركتوری ریشه برنامه كاربردی است .
صرف نظر از این كه كدام فایل درخواست شود، فایل Global . asa همواره اولین فایلی خواهد بود كه اجرا میشود. بنابراین اگر در نظر دارید كاربر برنامه كاربردی شما را با صفحه خاصی كه مورد نظر شماست آغاز كند ، این فایل بهترین جایی است كه میتوانید مرورگر را به آن صفحه هدایت كنید .
برنامه كاربردی كه درشكل قبل ملاحظه فرمودید ، شامل چندین فایل ASP و دو زیردایركتوری به نام های images و include می باشد. البته از نظر تعیین ساختار دایركتوری های یك برنامه كاربردی هیچ محدودیتی وجود ندارد ؛ شما می توانید همه فایل ها را درون یك دایركتوری قرار دهید . ولی در عمل ، بهتر است كه فایل ها را بر اساس كارایی آنها دسته بندی كنید چون این كار ساختن و نگهداری برنامه را بسیار آسان تر می كند .
• توجه : دایركتوری ریشه وب و دایركتوری ریشه برنامه ASP لزوما نباید یكسان باشند. به عنوان مثال ،
می توانید برای چندبرنامه كاربردی ASP ازیك فایل Global . asa استفاده كنید. در این شرایط می توانید فایل Global . asa را درون یك دایركتوری قرار داده و سپس هر یك از زیر دایركتوری های درون آن را به عنوان یك دایركتوری مجازی تعریف كنید كه بر اساس برنامه كاربردی مربوطه نامگذاری شده اند . ساختار دایركتوری موجود در شكل زیر ، شامل 4 برنامه كاربردی است : 401k ، Paycheck ، Retirement ، Timesheet .

بالاترین دایركتوری ، كه HR Applications نام دارد، شامل فایل Global . asa است . هر زمان كه یك كاربر به یكی از 4 برنامه كاربردی موجود متصل شود ، موتور ASP ساختار درختی دایركتوری هارا بالا می رود تا به دایركتوری
HR Applications كه در بر گیرنده فایل كه Global . asa است برسد . یكی از دلایلی كه می توان برای مرتب كردن برنامه ها به این شكل در نظر گرفت ، این است كه ممكن است هر چهار برنامه از یك روش امنیتی استفاده كنند و یا ممكن است تمام برنامه ها از یك نوع روش برای برقرای ارتباط با پایگاه داده و یا از یك پایگاه داده مشترك استفاده كنند و شما بخواهید اطلاعات اولیه را در فایل Global . asa تنظیم كنید .

استفاده از فایل های Include :
برای جلوگیری از تكرار كد یا دستورات HTML در صفحات ASP ، می توانید از فایل های خارجی استفاده كرده و آنها را در صفحات ASP خود بگنجانید . یك فایل Include در یك فایل ASP از دستور INCLUDE استفاده می شود . دستور INCLUDE مشابه این است كه محتویات فایل include مورد نظر را درون یك صفحه دیگر قرار دهید.در این جا مثالی از یك دستور INCLUDE را مشاهده می كنید :
<!--# INCLUDE = “C:\ include \my Include .inc” -- >

این دستور سبب می شود كه سرویس دهنده آن را با محتویات فایل مشخص شده جایگزین كند. دو نوع دستور INCLUDE موجود است : یكی # INCLUDE FILE و دیگری # INCLUDE VIRTUAL . نوع اول برای مشخص كردن فایل به یك آدرس فیزیكی نیاز دارد در حالی كه نوع دوم به آدرس مجازی به فایل اشاره می كند . به هر حال از هر روشی كه استفاده كنید، موتور ASP قبل از شروع پردازش دستورات ، آن را با محتویات فایل مورد نظر جایگزین می كند . بنابر این برای گنجانیدن یك فایل نمی توانید از دستورات شرطی استفاده كنید . به عنوان مثال ، كد زیر به گونهای كه انتظار می رود عمل نخواهد كرد ؛ موتور ASP هر دو فایل را خواهد گنجاند :
< %
if my Var = True than
% >
< ! -- # INCLUDE FILE = “ C: \ include \ my Include . inc” -- >
< %
else
%>
< ! -- # INCLUDE FILE = “ C: \ include \ your Include . inc” -- >
< %
end if
% >
هنگامی كه موتور ASP این فایل را تحلیل می كند ، دو دستور INCLUDE را با فایل های نامبرده جایگزین می كند و این كار را قبل از اجرای دستور if…end if انجام می دهد . پس باز هم تاكید می كنم : شما با استفاده از كد نمی توانید برای موتور ASP تعیین كنید كه كدام فایل را بگنجاند و یا این كه اصلا یك فایل را بگنجاند یا خیر.

|+| نظرات ()

تاریخ ثبت : دوشنبه 21 شهریور 1384 ساعت : 01:09 ق.ظ

برنامه کاربردی تحت وب چیست ؟ | ASP , | علی فیروزجنگ

برنامه کاربردی تحت وب چیست ؟
یك برنامه كاربردی تحت وب بایك وب سایت تفاوت دارد . یك وب س

برنامه کاربردی تحت وب چیست ؟
یك برنامه كاربردی تحت وب بایك وب سایت تفاوت دارد . یك وب س