البدء في ASP: كيفية حفظ البيانات ASP

موصى به: عداد النص ASP بسيط
٪ set fs = createObject (scripting.filesystemObject) wfile = server.mappath () cgi-binww.111cn.cn/asp/asp.html.txt on on Error استئناف regue regloed ext ar end ar end are end ar end ar end ar end en end en end en end en end en end en end

دعنا نلقي نظرة على مثال البرنامج التعليمي أدناه.

دعونا نلقي نظرة على الصفحة المقدمة:

<form action = saveInfo.asp method = post>

<!-حقولك هنا->

<نوع الإدخال = إرسال القيمة = إرسال>

</form>

دعنا نلقي نظرة على الصفحة التي تتلقى البيانات وحفظها.

<٪

set fs = createObject (scripting.filesystemObject)

FolderPath = Server.mappath () و /CGI-Bin /Messages143718

wcounter = FolderPath &/counter.txt

set fs = createObject (scripting.filesystemObject)

إذا fs.folderexists (FolderPath) ثم

تعيين A = fs.opentextFile (wcounter)

ضربات = clng (a.readline)

ضربات = ضربات + 1

A.Close

آخر

اضبط A = fs.createfolder (FolderPath)

ضربات = 1

إنهاء إذا

تعيين A = fs.createTextFile (wcounter ، صواب)

A.WriteLine (يضرب)

A.Close

تعيين fs = لا شيء

set fs = createObject (scripting.filesystemObject)

اضبط A = fs.createTextFile (FolderPath & & & Hits & .txt)

لكل x في request.form

A.WriteLine (x &: & request.form (x))

التالي

A.Close

اضبط A = لا شيء

تعيين fs = لا شيء

٪>

مشاركة: رمز إحصاءات المستخدم ASP عبر الإنترنت
ما عليك سوى نسخ جدول التعليمات البرمجية إلى ملف نصي وحفظه في موقع الويب (/global.asa) في الدليل الرئيسي. لغة البرنامج النصي = vbscript runat = server sub application_onstart application (ActiveVisitors) = 0 end sub sub application_onend end sub sent_onstart application.lock ap