ASP...

...
Active Server Pages

پنجشنبه، 11 خرداد، 1385

سلام

سلام من مدير جديد اين وبلاگ هستم.

از به بعد می خوام يه کم وب ديولاپينگ بهتون ياد بدم.

فعلا

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

شنبه، 24 بهمن، 1383

يک شمارنده ساده يا کونتور

من برای تایپ يا ويرايش صفحات HTML يا ASP برنامه DreamWeaver را از شرکت Macromedia پيشنهاد می کنم . يا اينکه از نسخه ساده ای مثل برنامه HomeSite استفاده کنيد . تا هم تایپ ساده تر باشد و هم خواندن متن برنامه مانند کد نمونه زير .
اين برنامه يک مثال خوب از نحوه باز کردن ، خواندن و نوشتن داخل يک فايل است که نياز به هيچ نوع بانک اطلاعاتی هم ندارد . اين فايل را با اسم counter.asp ذخيره کنيد و در کنارش يک فايل متنی ساده به کمک NotePad و به نام database.inc ايجاد کنيد و در سطر اولش هم عدد صفر يا هر عدد ديگری را که مايليد پيش‌فرض شمارنده شما باشد بنويسيد. فراموش نکنيد که سطح دسترسی لازم برای نوشتن را نيز به اين فايل بدهيد . با کمی ابتکار می توان اين شمارنده را به نوع گرافيکی تبديل کرد. حتی می توانيد به تعداد صفحات سايت ، فايل ايجاد کنيد تا تعداد مشاهده هر صفحه را به تنهايی رديابی کنيد.


<%
Dim objFSO , objFile
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.opentextfile(server.mappath("database.inc"))
'get the current count and store in counter
counter = clng(objFile.readline)
'add one to the current count
counter = counter + 1
'close file object
objFile.close
'write a new text object with the same name and new count
Set objFile = objFSO.CreateTextFile(server.mappath("database.inc"), true)
objFile.writeline(counter)
'close file object
objFile.close
'
counter_length = len(counter)
'loop through the hit count and display the image
for i = 1 to counter_length
%>
<%= mid(counter,i,1) %>
<% 
next 
%>

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

دوشنبه، 23 آذر، 1383

روشهای عيب يابی و خطاهای رايج

اولين قدم براي عيب يابي خواندن پيام خطا به صورت كامل است . براي اين منظور به صورت پيش فرض در اينترنت‌اكسپلورر نمي توان خطاها را به صورت كامل مشاهده كرد و براي همه آنها خطاي عمومي HTTP 500 - Internal server error صادر مي شود . براي مشاهده كامل پيام خطا به منوي زير برويد :

Tools → Internet Options → Advanced

در اينجا بخش Show friendly HTTP error messages را غيرفعال كنيد .
قدم بعد اين است كه پيام خطا را خوانده و در صورت عدم موفقيت در رفع آن شماره خطا را كه مي تواند چيزي مثل 80040e21 باشد يادداشت نماييد و از مراجع مختلف يا از طريق جستجوگر هايي مثل گوگل و يا سايت شركت مايكروسافت بخش پشتيباني و رفع اِشكال ، راه رفع آن را پيگير شويد .

خطاي نگارش يا ويرايش در بانك Access :
معمولاً اين خطا زماني اتفاق مي افتد كه سطح دسترسي كافي براي فايل وجود ندارد . در اكثر ميزبانهاي اينترنتي براي بانكهاي اكسس پوشه اي به نام db با سطوح دسترسي لازم تعريف مي شود . اما زمان تست برنامه‌ها روي كامپيوتر شخصي نيز لازم است كه اين Permission وجود داشته باشد . قبل از اين كار اگر با ويندوز XP كار مي كنيد برخي تنظيمات لازم است . از پنجره My Computer :

Tools → Folder Options → View → Advanced

در انتهاي ليست گزينه Use simple file sharing را غير فعال كنيد . حالا با انتخاب فايل بانك خود و يا پوشه محتوي آن ،‌ با گرفتن كليك سمت راست ماوس و مراجعه به بخش Properties از برگنشان Security سطوح دسترسي همه كاربران تعريف شده در سيستم عامل را به اين فايل روي Full قرار دهيد .

نمايش و درج فارسی :

اول از همه لازم است که اگر حروف فارسی در داخل فايل asp داريد حتماْ يک بار آن فايل را با Notepad باز کرده و اگر به صورت قالب ANSI ذخيره شده آن را با قالب UTF-8 ذخيره و بعد از آن در بالای صفحه اين خط را اضافه کنيد :


<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

به هر شكل معمولاً با طرح مشكلات خود در انجمن‌هاي تخصصي مي توانيم به راه‌حل مورد نظر برسيم ..

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

چهارشنبه، 18 آذر، 1383

جعبه متن فارسی مستقل از ويندوز

فقط اجازه ورود حروف فارسی را داريد !

<html dir=rtl>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

<script LANGUAGE="JavaScript">

</script>

</head>
<body>

<form name="DataEntry" method="post" action="">
<input type="text" name="T1" size="50" maxlength="50" onkeypress="return submitenter(this,event)" style="FONT-SIZE: 12px; FONT-FAMILY: Tahoma">
<br><br>
<textarea name="T2" rows="10" cols="50" onkeypress="return submitenter(this,event)" style="FONT-SIZE: 12px; FONT-FAMILY: Tahoma"></textarea>
</form>

</body>
</html>

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

یکشنبه، 1 آذر، 1383

فرم ارسال ايميل

با اين کد ساده می توان صفحه‌ای برای ارسال ايميل ايجاد کرد . اين کُد را يک هندی به نام مستعار Prince Joseph نوشته است و آنطور که گفته ملزومات سيستمی آن برای اجرا عبارتند از : يک ويندوز نسخه سرويس دهنده و SMTP Service بر روی 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" %>

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

شنبه، 30 آبان، 1383

درج تاريخ شمسی

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

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

چهارشنبه، 27 آبان، 1383

توليد خودکار برنامه

ASP-Maker ابزاري خودكار براي توليد يك پايگاه اطلاع رساني مبتني بر ASP با استفاده از بانك اطلاعاتي Access يا هر نوع منبع داده اي ODBC است . در اين برنامه به كمك ابزاري موسوم به ويزارد توليد سريع ، تنها با چند كليك ماوس مي توان صفحات مورد نياز را توليد كرد .اين برنامه بسيار كاربردي است و مانند FrontPage در دسته برنامه هاي سازنده سورس ( Source Generator ) طبقه بندي مي شود . شيوه كار با اين برنامه بسيار ساده است . با آشنايي مختصر به بانكهاي Access ، زبان آرايش متون در وب يعني HTML و زبان برنامه نويسي VBScript سورس هاي ايجاد شده توسط اين برنامه را مي توان براي نيازهاي گوناگون تغيير داد . با اينحال حتي بدون بهره گيري از چنين تخصص هايي نيز مي توان صفحات و فرمهاي ورود و نمايش اطلاعات را تحليل و توليد كرد . براي دريافت اين برنامه كافيست به نشاني زير برويد :

http://www.hkvstore.com/aspmaker

پس از نصب و اجراي برنامه در قاب سمت راست ، برگنشان Database مشاهد مي شود . در اينجا پس ورود نشاني فايل اكسس در هارد و فشار كليد Connect جداول بانك مورد نظر در قاب سمت چپ مشاهده مي شود . حتا جداولي هم كه به صورت مجازي و Query ساخته شده اند نيز خوانده مي شوند .

برخي از قابليت هاي اين برنامه عبارتند از :

تعيين سطوح دسترسي مختلف به اطلاعات
امكان آپلود فايل
لينك به جدول ديگر با عنوان شرح هر ركورد
توليد گزارش براي چاپ
ويزارد سريع توليد نرم‌افزار
ايجاد كنترل روي ورود اطلاعات

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

شنبه، 23 آبان، 1383

مقايسه روشهای فارسی سازی

استفاده از حروف فارسي به صورت Font

مزيت مهم اين روش در حجم كم فايل هاي متني توليد شده است كه داراي سرعت مناسبي در هنگام بارگذاري صفحات خواهند بود .گفته مي شود در قواعد پرهيز از انتظارات اينترنتي (World Wide Wait - not Web !) لازم است كليه متون در كمتر از هشت ثانيه و كل صفحه ظرف سي ثانيه بارگذاري شود . يكي از اشكالات عمده اين روش نياز برنامه مرورگر به فونت مورد نظر براي نمايش درست متون فارسي است كه بايد قبلاً در سيستم عامل مورد استفاده نصب شده باشد . گاهي نيز به دليل استاندارد نبودن فونتها يا ويندوزها نمايش متون با درهم ريختگي و اختلال همراه خواهد بود. بنابراين براي كار با فونت پيشنهاد مي شود حتي الامكان از ويرايشگرهاي مستقل از ويندوز عربي يا انگليسي براي نگارش و جاگذاري جملات فارسي در صفحه وب استفاده شود . براي رفع اين مشكل شركت مايكروسافت از ويرايش پنجم Explorer اقدام به ساخت استاندارد Unicode نمود كه بر اين اساس ، امكان تهيه توليدات نرم افزاري در محيط ويندوز را به اكثر زبانهاي زنده دنيا فراهم ميكند . در حال حاضر بسياري از پايگاههاي فارسي زبان با اين روش ساخته شده اند . اين وبلاگ نيز به همين روش تهيه شده است . مشاهده اين صفحات بر روي سيستم عاملهايي غير از انواع ويندوز مايكروسافت با مشكل مواجه خواهد بود اما موتورهاي جستجوي معروف مطالب فارسي عنوان شده با اين روش را به راحتي مي يابند.

استفاده از تصاوير گرافيكي حاوي متون فارسي

اگر چه در اين روش محدوديت هاي نوع سيستم عامل يا برنامه مرورگر وجود ندارد و به راحتي در هر نقطه از دنيا قابل دسترسي خواهد بود، اما ايراد عمده اين روش در حجم زياد فايلهاي توليد شده است كه سرعت پايين انتقال اطلاعات را موجب ميشود .براي اين منظور راه حل هاي مختلفي ارائه شده است مثلا طراحي حروف الفبا به صورت فايل تصويري و كنار هم قرار دادن آنها براي نوشتن جملات فارسي كه اگرچه در كاهش حجم فايلها بي تاثير نيست اما مشكل سرعت كم بارگذاري صفحات را همچنان داراست . استفاده از Macromedia Flash اين امكان را فراهم مي كند تا با طراحي تصاوير گرافيكي بُرداري كه داراي خاصيت ابررسانايي و پيوند خوردن (Link) نيز هستند، تا حد زيادي مشكل نيازمندي به فونت و حجم زياد فايل مرتفع شود . اما اين روش نيز با تمام ويژگيهاي منحصر به فردش نيازمند نصب برنامه الحاقي Flash Player بر روي مرورگر اينترنت است .

استفاده از اپلت ها يا زبان برنامه نويسي جاوا

اين روش نه تنها محدوديت هاي حجم و فونت را ندارد ، بلكه يكي از برگزيده ترين روشهاي انتقال اطلاعات با خطوط فارسي است . تنها مشكل اين روش ممكن است ناتواني برنامه هاي مرورگر وب در اجراي جاوا و قدري كاهش سرعت بارگذاري باشد . طراحان صفحات وب با آشنايي مختصربا زبان HTML مي توانند با جاگذاري اپلتهاي آماده و نوشته شده توسط ديگران براي ساخت صفحات فارسي و تنها با تغيير مقادير پارامترها، از آنها بهره لازم را ببرند .يكي از اين برنام هاي رايگان ، اپلت فارسي تارتن نام دارد كه مي توانيد آن را از بانكهاي نرم افزاري تهيه كنيد . ماشين مجازي جاوا محيطي است كه برنامه هاي نوشته شده به اين زبان را مستقل از نوع سخت افزار يا نرم افزار خاص، اجرا مي كند..

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

سه‌شنبه، 19 آبان، 1383

فرستادن فايل يا Upload از صفحه وب

گاهي به نظر مي رسد كه يك برنامه نويس حرفه اي حُكم يك سارق را هم دارد كه در بيشتر مواقع از كدهاي آماده و نوشه شده توسط افراد ديگر استفاده كرده و با تغيير و سرهم‌بندي اين سورسها محصول جديدي را ارائه ميكند . به هر حال وقت طلاست و شايد به اين دليل كه تجربه ديگران را دوباره آزمودن كار خطايي است ، ما به جاي آنكه بيهوده وقت خود را براي نوشتن كــُد به هدر بدهيم مي توانيم به جذابيت و كار و تحليل بهتر روي امكانات موجود در پروژه خود بپردازيم .

در اينجا به ذكر نمونه اي از يك كد آماده براي بارگزاري فايل از طريق صفحه وب ( Upload ) به يك سرويس دهنده مي پردازيم . اين كدها از مجموعه موجود در سايت

www.planet-source-code.com

گرفته شده اند . در ابتدا بايد هر دو فايل زير را بسازيد :

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";
مسير تعيين شده بايد حتماً موجود باشد

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

شنبه، 16 آبان، 1383

اصول طراحی برنامه تحت وب

جاكوب نيلسن (Jakob Nielsen ) با صفاتي چون سلطان بهره وري نرم افزاري ، پيشرو در بهره وري وب و رهبـر طراحي كـاربر پسند شنـاخته شده است . دكتـر نيـلسن يـكي از موسسان گــروه نيــلسن نـورمن (Nielsen Norman ) است و قبل از آن نيز يكي از مهندسان شركت Sun Microsystem بوده است وي ابداع گر جنبش مهندسي بهره وري هزينه (Engineering Discount Useability ) است كه هدف آن پيشرفت هاي سريع وارزان در طراحي رابط كاربر برنامه ها ( User Interface ) است . معروف ترين كتاب وي « طراحي كاربردي وب » نام دارد كه در سال 2000 با تيراژ دويست وپنجاه هزارنسخه و به پانزده زبـان زنـده منتشر شده است . مطـالب ذيل برگزيده اي از سايت اختصاصي او www.useit.com به نام ايرادهاي طراحي وب مـي باشد .

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

قانون طلايي طراحي سايت : از سايت هاي پُر بازديد بايد الگو گرفت

¤ نوشته شده در ساعت <#time#> توسط

پيام هاي ديگران

[ خانه| آرشيو | پست الكترونيك ]

خانه
آرشيو
پست الكترونيك

انجمن فارسي
انجمن انگليسي
گفتگوروي‌خط
مقاله ها
اخبار
برنامه‌ آماده
كـُدهاي آماده
مرجع انگليسي
گروه خبري
HTML آموزش

online