تبیان، دستیار زندگی

احتمالا به این نکته تا به حال اندیشیده اید که چگونه ما می توانیم یک وب سایت را مشاهده کنیم در حالی که وب سایت مورد نظر در فرسنگ ها دورتر از ما قرار دارد. اصلا چگونه این وب سایت مورد پردازش قرار می گیرد که ما می توانیم به راحتی آن را مشاهده و از آن بهره ببریم؟ سوالات زیادی در این باره پیش می آید.معمولا نکاتی در مورد یک سایت که کاربران می توانند به مشاهده آن بپردازند دارای ارزش دانست است. معمولا سایت ها از نظر بارگزاری و میزبان به دو دسته تقسیم می شوند. سایت هایی که برروی سرورهای لینوکس قرار دارند و هاست هایی که برروی ویندوز بارگزاری می شوند. لینوکس یک سیستم عامل کدباز و رایگان بوده و همه می توانند از آن استفاده کنند ، اما در مقابل سیستم عامل ویندوز ساخته شرکت مایکروسافت بوده و قیمت فوق العاده بالایی دارد. ویندوز سرور در نسخه های متعددی ارائه می گردد که غالبا می توان برروی آن ها سایتی را آماده بازدید کاربران نمود. برای این که سیستم عامل ها بتوانند یک سایت را پردازش کرده و اطلاعات کدشده را قابل دسترس قرار دهند نیاز به یک پردازشگر دارند که وب سرور نامیده می شود.

وب سرور این امکان را فراهم می کند تا با پردازش کدهای صفحات وب ، سایت قابل دسترس باشد. زمانی که کاربری به آدرس یک سایت مراجعه می کند در حقیقت درخواستی مبنی بر گشودن این سایت داشته و بدین ترتیب وب سرور به آدرس سایت در سرور مراجعه کرده و اقدام به بارگزاری آن می نماید. نکته مهم در مورد وب سرورها این است که وقتی کاربر درخواستی می دهد قاعدتا نام سایت را همان دامین را وارد می کند اما در عمل وب سرور با آدرس IP ها کار می کند .

به طور کلی دو نوع وب سرور معروف وجود دارد. وب سرور شرکت مایکروسافت که IIS نام دارد و برروی سیستم عامل ویندوز اجرا می گردد. در مقابل وب سرور Apache هم به مانند لینوکس یک پردازشگر رایگان بوده و برروی سرورهای لینوکس قابل اجرا می باشد.

زمانی یک سرور قابل بارگزاری صفحه وب است که یکی از وب سرورها را برروی خود نصب شده ببیند. IIS که نسخه ۷ از آن هم ارائه شده و در ویندوزسرور ۲۰۰۸ قابل استفاده است برروی ویندوزها به صورت پیش فرض قرار دارد اما نصب نیست و باید نصب شود. IIS قادر است علاوه بر HTML ، زبان برنامه نویسی معروف و تحت وب ASP را پردازش نماید. تقریبا همه می دانند که ASP یا PHP چه کاری انجام می دهد اما برای کسانی که این دو را نمی شناسند تنها با مثالی ساده می توان این نکته را مشخص کرد.

برای مثال اگر در صفحه وب طراحی شده از سوی طراح که با زبان HTML نوشته شده است ، ۲+۲ را تایپ نمائیم ، به همین صورت در صفحه مرورگر قابل مشاهده خواهد بود. اما در PHP یا ASP اگر همین ۲+۲ را بنویسیم حاصل که عدد ۴ می باشد به نمایش در خواهد آمد. به طور کلی این دو زبان پردازشی یا اسکریپ نویسی نامیده می شوند. البته این تنها مثالی ساده بوده و در PHP یا ASP نوع دستورات به این سادگی نیست.

در مقابل ASP رقیب اصلی آن یعنی PHP قرار دارد. PHP هم مانند لینوکس و آپاچی کاملا کد باز و رایگان می باشد. آپاچی که وب سرور اختصاصی لینوکس است می تواند علاوه بر PHP ، زبان HTML و تعدادی از زبان های تحت وب را مورد پردازش قراردهد. نکته این که IIS با افزونه ای می تواند PHP را هم اجرا و پردازش نماید. به طور کلی چون PHP رایگان می باشد در دنیای برنامه نویسی خواستار بیشتری نسبت به ASP دارد .

اما همه این موارد مقدمه ای بود تا این که بدانیم چه طور یک سایت قابل مشاهده خواهد بود. در ادامه می خواهیم تا در کمتر از ۱۰ دقیقه یک وب سرور را راه اندازی و از آن به عنوان یک وب سرورشخصی بهره ببریم.

تنها یک ارتباط اینترنت و یک رایانه لازم است تا این وب سرور راه اندازی شود. برای راه اندازی این وب سرور که از نوع آپاچی می باشد ابتدا می بایست با مراجعه به آدرس سایت آپاچی ( www.apache.org ) به دنبال کلمه HTTP Server بوده و با رفتن به این صفحه از گزینه های موجود آخرین نسخه را بارگزاری نمائیم. آخرین نسخه ۲.۲.۱۱ نیز می باشد. از میان نسخه های موجود می بایست نسخه Win۳۲ دریافت شود ، پس از دریافت و نصب آن برروی سیستم عامل ویندوز که تنظیمات خاصی را نیاز ندارد می بایست برای تست کردن آن اقدام نمود. برای تست کافی است پس از نصب وب سرور آپاچی در مرورگر کلمه Localhost و یا ۱۲۷.۰.۰.۱ را وارد نمائیم ، اگر صفحه ای ظاهر شود معلوم است که به درستی وب سرور نصب شده است.

این مرحله به پایان رسیده و مرحله بعدی بازکردن پورت ها است . اگر پورت ها باز نباشد تنها رایانه شخصی و کسانی که با این رایانه شبکه هستند می توانند به وب سرور دسترسی داشته باشند. برای بازنمودن پورت ها باید به چند نکته توجه داشت ، IP Valid یکی از مهمترین موارد است ، gateway و یکی دو مورد دیگر که می توان از گرفتن IP بدست آورد.

برای بدست آوردن IP لازم است از منوی Start گزینه Run اجرا شده و با تایپ کلمه CMD صفحه داس را مشاهده نمائیم. سپس با تایپ ipconfig /all تمامی موارد موجود در مورد IP آدرس رایانه را بدست آورده تا مراحل بعدی انجام پذیرد . مرحله بعدی این است که از مرحله قبلی default gateway بدست آمده را درآدرس بار مرورگر وارد نمائیم ، در اینجا پس از وارد نمودن  default gateway صفحه مربوط به مودم باز خواهد شد. البته می بایست پسورد مودم را داشته باشیم که معمولا یوزر Admin و پسورد ۱ خواهد بود. پس از بازشدن صفحه مربوط به مودم باید به دنبال Port Forwarding باشیم ، در این جا می بایست پورتی را که می خواهیم بازشود را انتخاب کنیم که معمولا پورت ۸۰ است . مرحله آخر ذخیره سازی اعمال انجام شده است.

در مرحله بعد با مراجعه به آدرس ( www.whatismyip.com ) می بایست IP حقیقی خود را بدست آورده و سپس با وارد کردن آن در آدرس بار منتظر اجرای وب سایت خود در وب سرور شخصی باشیم.

منبع : قصه های مجید 

upload_page.asp       :

<!-- #include file="upload_class.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
"-----------------------------------------------------------------------------------
%>

       تا به حال الگوریتم‌های زیادی برای نمایش تاریخ جاری بر اساس تقویم جلالی ارائه شده‌اند . در زیر یک نمونه ساده ولی کارآمد آن ارائه می شود . این نمونه تاریخ Server را نشان می دهد . برای اینكه تاریخ از روی كامپیوتر بازدیدكننده محاسبه شود كافیست runat=server  را از كد حذف كنید .

<script language="vbscript" runat="server">
Function IranDate()
Dim ifday,ifmonth,ifyear,ifdayofyear
Dim iyear,idayofyear
Dim inumdayofyear
Dim aifmonthdays
aifmonthdays = Array(31,31,31,31,31,31,30,30,30,30,30,29)
inumdayofyear = 365
iyear =year(date)
idayofyear = datepart("y", date)
If isleapyear(iyear-1) then
inumdayofyear = 366
aifmonthdays(11) = 30
End if
If (idayofyear > 79 ) then
ifyear = iyear -621
ifdayofyear = idayofyear - 79
Else
ifyear = iyear - 622
ifdayofyear = (inumdayofyear - 79 ) + idayofyear
End if
ifday = ifdayofyear
While ( ifday > aifmonthdays(ifmonth) )
ifday = ifday - aifmonthdays(ifmonth)
ifmonth = ifmonth + 1
Wend
ifmonth = ifmonth + 1
IranDate = ifyear & "/" & ifmonth & "/" & ifday
End Function
Function isleapyear(nyear)
isleapyear = ( ( (nyear mod 4) = 0 And (nyear mod 100) <> 0 ) or (nyear mod 400) = 0 )
End Function
Sub Showfdate
End sub
</script>



<%= (IranDate) %>

     با این کد ساده می توان صفحه‌ای برای ارسال ایمیل ایجاد کرد . این کُد را یک هندی به نام مستعار Prince Joseph نوشته است و آنطور که گفته ملزومات سیستمی آن برای اجرا عبارتند از : یک ویندوز نسخه سرویس دهنده و SMTP Service بر روی IIS . این دو صفحه با استفاده از کامپوننت یا ابزار CDO که توسط شرکت مایکروسافت ارائه شده کار می کنند .

 : mailSend.htm 

 mailSend.asp : 

<%@ Language=VBScript %>
<%
Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("txtFrom")
objMail.To= Request.Form("txtTo")
objMail.Subject= Request.Form("txtSubject")
objMail.Body= Request.Form("txtBody")
objMail.Send
Set objMail = Nothing
Response.Write "Mail should have been sent"
%>