www.alanbaaalalamia.com

<% Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) Response.Write("") Next %>

ان القدرة على التعبير هى القدرة على الحياة // تصدر عن مؤسسة الانباء العالمية للصحافة والطباعة والنشر والدعاية والاعلان

كيفية عمل مساحة جيجا علي النت لرفع ملفاتك الخاصة

عبدالحميد سعيد

مواقع الرفع كتيرة جدا بس كتير منها بيحتاج تعمل بهلوان علشان تعمل دونلود من عليه وممكن يقولك استني شوية أد ساعة كده ولا حاجة أو يقولك المساحة المخصصة لبلدك ملئيةالأن تعالي كمان شوية الموقع إللي بتكلم عليه مفهوش أي حاجة من الكلام ده وانا مجربة وبرفع عليه ملفاتي الخاصة بس مشكلته واحدة بس هوه انو أخرك معاه 49 ميجا بس يعني خاص جدا علشان كده أنا بستخدمه لملفاتي الخاصة وأي حاجة تانية ممكن يشيلها الموقع أسمه فور شيرد