تعداد مطالب : 27
تعداد نظرات : 22
زمان آخرین مطلب : 2832روز قبل

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

وب سرور این امکان را فراهم می کند تا با پردازش کدهای صفحات وب ، سایت قابل دسترس باشد. زمانی که کاربری به آدرس یک سایت مراجعه می کند در حقیقت درخواستی مبنی بر گشودن این سایت داشته و بدین ترتیب وب سرور به آدرس سایت در سرور مراجعه کرده و اقدام به بارگزاری آن می نماید. نکته مهم در مورد وب سرورها این است که وقتی کاربر درخواستی می دهد قاعدتا نام سایت را همان دامین را وارد می کند اما در عمل وب سرور با آدرس 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 حقیقی خود را بدست آورده و سپس با وارد کردن آن در آدرس بار منتظر اجرای وب سایت خود در وب سرور شخصی باشیم.

 

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

جمعه 3/7/1388 - 8:32
<SCRIPT LANGUAGE="JavaScript">
document.write("<FORM><INPUT TYPE=HIDDEN NAME="saved" value="1"></FORM>")
function welcome()
    {
if(document.cookie == "")
    {
var counting = "1";
var when = new Date()
document.cookie = "counting=; expires=" + when.toGMTString();
when.setMonth(when.getMonth() + 1)
var counting = document.forms[0].saved.value;
document.cookie = "counting="+counting+" `; expires=" + when.toGMTString()
document.all.welcomebox.innerHTML = " <<:::welcome :::>> ";
    }
else
    {
var get = document.cookie;
get = get.substring((get.indexOf("=")+1),get.length);
var count = get.split(" ");
count[0]++
document.all.welcomebox.innerHTML = "" + count[0] + " :آمار بازدید";
document.forms[0].saved.value=count[0];
saveit()
    }
    }

function saveit()
    {
var when = new Date()
document.cookie = "counting=; expires=" + when.toGMTString();
when.setMonth(when.getMonth() + 1)
var counting = document.forms[0].saved.value;
document.cookie = "counting="+counting+"; expires=" + when.toGMTString()
    }
welcome()
</SCRIPT>
</BODY>
<a href="www.hjtmh.persiangig.com">Top java codes</a>


جمعه 3/7/1388 - 8:2
<!--
Start of Text Counter -->
<!-- Description: This will display a text counter on your webpage.
Instructions: Place the entire script in your webpage where you want
the counter to appear. To change the look of the sentence that appears
on your webpage simply adjust the HTML properties on the last script
line.
-->
<SCRIPT LANGUAGE="JavaScript">
<!--
var caution = false
function setCookie(name, value, expires, path, domain, secure) { var
curCookie = name + "=" + escape(value) + ((expires) ? "; expires=" +
expires.toGMTString() : "") + ((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") + ((secure) ? "; secure" : "")
if (!caution || (name + "=" + escape(value)).length <= 4000)
document.cookie = curCookie else if (confirm("Cookie exceeds 4KB and
will be cut!")) document.cookie = curCookie
}
function getCookie(name) { var prefix = name + "=" var cookieStartIndex
= document.cookie.indexOf(prefix) if (cookieStartIndex == -1) return
null var cookieEndIndex = document.cookie.indexOf(";", cookieStartIndex
+ prefix.length) if (cookieEndIndex == -1) cookieEndIndex =
document.cookie.length return
unescape(document.cookie.substring(cookieStartIndex + prefix.length,
cookieEndIndex))
}
function deleteCookie(name, path, domain) { if (getCookie(name)) {
document.cookie = name + "=" + ((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") + "; expires=Thu, 01-Jan-70
00:00:01 GMT" }
}
function fixDate(date) { var base = new Date(0) var skew =
base.getTime() if (skew > 0) date.setTime(date.getTime() - skew)
}
var now = new Date()
fixDate(now)
now.setTime(now.getTime() + 365 * 24 * 60 * 60 * 1000)
var visits = getCookie("counter")
if (!visits) visits = 1
else visits = parseInt(visits) + 1
setCookie("counter", visits, now)
// YOU CAN EDIT THE SENTENCE THAT APPEARS ON YOUR WEBPAGE ON THE NEXT
LINE
document.write("<CENTER><FONT FACE=tahoma SIZE=5>شما بازدید
کننده =<B>" + visits + "</B></FONT></CENTER>")
// -->
</SCRIPT>
<!-- End of Text Counter -->
جمعه 3/7/1388 - 7:54
<a
href="ymsgr:sendim?YOURID"> <img
src="http://opi.yahoo.com/online?u=YOURID&m=g&t=1" border="0"
bordercolor="#C0C0C0"></span></a>

جمعه 3/7/1388 - 7:14
<! Excellence Java Pixie >
<! Excellence Software, Inc.   Website http://www.excellencesoft.com>
<! Insert to any space>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert("کلک هنوز نیومدی میخوای چکار وکنی؟")
}
}
document.onmousedown=click
</SCRIPT>

جمعه 3/7/1388 - 7:12
<SCRIPT language=javascript>
msg = "Hjtmh.Persiangig.com";
msg = "..." + msg;pos = 0;
function scrollMSG() {
document.title = msg.substring(pos, msg.length) + msg.substring(0, pos);
pos++;
if (pos >  msg.length) pos = 0
window.setTimeout("scrollMSG()",200);
}
scrollMSG();
    </SCRIPT>

جمعه 3/7/1388 - 7:5

· عدم درج قیمت محصولات : برای بسیاری از مشتریان یافتن سریع قیمت یك كالا مهم است .
· موتوری جستجوی انعطاف ناپذیر : كه كاربر را ملزم به ورود پارامترهای زیادی می كنند .
· پیمایش عرضی صفحات : كاربران علاقه ای به پیمایش افقی صفحات ندارند .
· اندازه ثابت فونت ها ومتون : افراد بالای 40 سال با حروف نازك یا كوچك مشكل دارند .
· انبوهی متون : معمولا سایت های حاوی متون حجیم ، خسته كننده هستند .
· پنجره های بازشونده خودكار : كاربران ترجیح می دهند كه خودشان مقصد را تعیین كنند .
· جمع آوری آدرس پست الكترونیك بدون هیچ روند امنیتی : كاربران باید كاملا مطمئن و متقاعد شود .
· آدرسهای طولانی یا پیچیده صفحات :كار بر روی آدرسهایی كه بیش از 75 كاراكتر دارند مشكل است .
· لینك های ایمیل در مكان نامناسب : باید كاملا برجسته ومشخص و در مكانهای مناسب باشد.
· بازگشت كند یا نا موفق به صفحات قبل : كلید Back دومین دكمه مورد استفاده كاربران است .
· رابط گرافیكی ( GUI ) غیر استاندارد : برداشت از عناصر و اشیای موجود در برنامه ها تثبیت شده است .
· نبود بیوگرافی در سایت ها : وجود بیوگرافی باعث ایجاد جو اطمینان در خوانندگان می شود.
· ضعف آرشیو: در اغلب مواقع اطلاعات قدیمی هم مورد استفاده كاربران قرار می گیرد .
· لینك های متعدد برای رسیدن به صفحات خاص : كاربران مایل به این كار نیستند.
· استفاده پیش از موعد از امكانات پیشرفته : استفاده از امكاناتی مانند CHAT ، ایجاد انجمن های گفتـگو ، ایمیـل رایگان ، نقشه 3 بعـدی سایت وغیـره بارمالی زیادی را بر مدیران سایت تحمیل می كنند .
· بارگزاری كند صفحات : وجود گرافیك های سنگین آزار دهنده خواهد بود .
· ساختارهای تبلیغاتی : كاربران معمولا از مشاهده ساختارهای تبلیغاتی خودداری می كنند .
· رسالت و هدف نامشخص سایت : باید نوع سایت از جنبه های تجاری یا اطلاع رسانی مشخص باشد .
· طراحی اختصاصی برای افراد خاص : سایت بایدبرای همه كاربران نه فقط متخصصین  قابل استفاده باشد .
· لینك به سایتهای دیگر : به دلیل فلسفه وساختار متفاوت طراحی نباید تعداد لینك های خارج از سایت زیاد باشند .
· فـراموش كـردن هزینه پشتیبـانی سایت : حداقل به اندازه 50 درصد از هزینه راه اندازی است .
· تلقی از سایت به عنوان یك رسانه دست دوم : سایت با تلویزیون ، روزنامه یا بروشور فرق های اســاسی دارد . بنـابراین نباید از آنها كپی برداری كند . از طرفی ارتباط ما را به عنوان یك رسانه تمام وقت با افراد متعددی برقرار می كند ونباید آن را دست كم گرفت .
· لینك های تكراری از لحاظ محتوا : مثلا" لینك یك تبلیغ بعد از ورود به آن نباید حاوی همان لینك تبلیغ در صفحه باز شده باشد .
· تلقی یكسان از اینترنت واینترانت : در اینترانت داخلی اهداف وكاربردهای مرتبط با امور شركت مد نظر است ولی اینترنت یك مكان عمومی است .
· عدم قبول مهندسی بهره وری وتحقیقات بازار: رد خواسته های بازار به منزله رد نیازهای كاربران است .
· استفاده از قاب ها وصفحات چند فریمی : این موضوع برای چاپ وآدرس دهی صفحات مشكلاتی را در بر دارد .
· انیمیشن ها ومتون متحرك : بر هم زدن تمركز بازدید كنندگان از سایت .
· صفحات یتیم وغیرقابل بازگشت : عدم بازگشت به صفحه اصلی وصفحات دیگر مشكلی بزرگ در تحلیل است .
· نوار پیمایش طولانی : اسكرول شدن صفحات به طور كلی جالب نیست .
· ضعف در راهنمایی كاربران سایت : كاربر نباید هنگام گشت زنی تنها بماند .
· استفاده از رنگهای غیر استاندارد برای لینك : هر رنگ معنایی دارد .
· اطلاعات قدیمی در سایت : كه باعث كاهش اعتبار و ارزش سایت می شوند .
· عدم وجود جستجو : بخش Search باید برای سایت هایی با بیش از صد صفحه ، قرار داده شود .

قانون طلایی طراحی سایت : از سایت های پُر بازدید باید الگو گرفت
 
 
 
 
 
 
 
 
 
 
 
منبع وبلاگ: asp 
جمعه 3/7/1388 - 6:52
در ابتدا باید هر دو فایل زیر را بسازید :

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
"-----------------------------------------------------------------------------------
%>

جمعه 3/7/1388 - 6:47

       تا به حال الگوریتم‌های زیادی برای نمایش تاریخ جاری بر اساس تقویم جلالی ارائه شده‌اند . در زیر یک نمونه ساده ولی کارآمد آن ارائه می شود . این نمونه تاریخ 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) %>



 

جمعه 3/7/1388 - 6:42

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

 : mailSend.htm 


<html><body>
<form id=frmMail method=post action=mailSend.asp>
TO:<input type=text name=txtTo size=30><br>
FROM:<input type=text name=txtFrom size=30><br>
SUBJECT:<input type=text name=txtSubject size=30><br>
BODY:<textarea rows="5" name=txtBody cols="28">
</textarea><br>
<input type=submit value="Send the Mail">
</form>
</body></html>
 
 

 

 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"
%>

جمعه 3/7/1388 - 6:39