แนะนำ: ตัวนับข้อความ Simple ASP %set fs = createObject (scripting.filesystemobject) wfile = server.mappath () cgi-binwww.111cn.cn/asp/asp.html.txt ข้อผิดพลาดในการดำเนินการต่อไป
มาดูตัวอย่างการสอนด้านล่าง
ลองดูที่หน้าส่ง:
<form action = saveinfo.asp method = post>
<!-ฟิลด์ของคุณที่นี่->
<ประเภทอินพุต = ส่งค่า = ส่ง>
</form>
ลองดูที่หน้าเว็บที่ได้รับข้อมูลและบันทึก
-
ตั้งค่า fs = createObject (scripting.filesystemobject)
FolderPath = Server.mappath () & /cgi-bin /message143718
wcounter = folderPath &/counter.txt
ตั้งค่า fs = createObject (scripting.filesystemobject)
ถ้า fs.folderexists (FolderPath) แล้ว
ตั้งค่า a = fs.opentextfile (wcounter)
hits = clng (a.readline)
ฮิต = ฮิต + 1
a.lose
อื่น
ตั้งค่า A = Fs.CreateFolder (FolderPath)
ฮิต = 1
สิ้นสุดถ้า
ตั้งค่า A = fs.createtextFile (wcounter, true)
A.WriteLine (ฮิต)
a.lose
ตั้งค่า fs = ไม่มีอะไร
ตั้งค่า fs = createObject (scripting.filesystemobject)
ตั้งค่า A = fs.createtextFile (FolderPath & & hits & .txt)
สำหรับแต่ละ x ใน request.form
A.WriteLine (x &: & request.form (x))
ต่อไป
a.lose
ตั้งค่า = ไม่มีอะไร
ตั้งค่า fs = ไม่มีอะไร
-
แบ่งปัน: รหัสสถิติผู้ใช้ออนไลน์ ASP ออนไลน์ เพียงคัดลอกตารางรหัสไปยังไฟล์ข้อความและบันทึกไว้ในเว็บไซต์ (/global.asa) ในโฮมไดเร็กตอรี่ ภาษาสคริปต์ = vbscript runat = แอปพลิเคชันย่อยเซิร์ฟเวอร์ application_onstart (ActiviveIsitors) = 0 Sub Sub Application_onend End End Sub Session_onStart application.lock AP