Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > อยากได้โค้ด นับผู้ชมครับ คืออาจารย์ให้ทำโค้ดนับผู้ชมครับ ผมก็เลยอยากได้โค้ดนั้น-

อยากได้โค้ด นับผู้ชมครับ คืออาจารย์ให้ทำโค้ดนับผู้ชมครับ ผมก็เลยอยากได้โค้ดนั้น-

เริ่มหัวข้อใหม่

jozaplay

โพสกระทู้ ( 1 )
บทความ ( 0 )

คืออาจารย์ให้ทำโค้ดนับผู้ชมครับ
ผมก็เลยอยากได้โค้ดนั้น--------****
แต่มีข้อแม้ครับ จะนับเป็น IP ของเครื่อง ถ้าIP เครื่องที่เข้ามาแล้วซ้ำก็จะไม่นับครับ
และก็เพิ่มข้อมูลใน Access 2003
มี TextBox1=แสดงเลขจำนวนผู้ชม
TextBox2 =แสดง IP

เป็นหน้า VB Code นะครับถ้าได้ไวก็ยิ่งดีครับ

Tag : - - - -

Date : 2009-08-08 13:04:44

By : jozaplay

View : 1664

Reply : 2

No. 1

falcoa

โพสกระทู้ ( 215 )
บทความ ( 0 )

ไม่จำเป็นต้องใช้ฐานข้อมูลใดๆเข้ามาเกี่ยวข้องเลย เพียงแต่อาศัย Text File เพื่อใช้ในการเก็บข้อมูล ซึ่งทำการสร้างมาจาก พวก Text Editor ง่ายๆ อย่างเช่นพวก Notepad, Wordpad เหล่านี้เป็นต้น นอกจากนี้แล้วการใช้ Text File จะสามารถทำงานได้ค่อนข้างจะเร็วกว่าพวกระบบฐานข้อมูล เช่น Microsoft Access, DBase เอาล่ะครับต่อไปนี้ก็จะเป็นขั้นตอนการสร้าง Script ขึ้นมาใช้งานกันเลย.

อันดับแรกเลยก็ต้องสร้าง Text File ที่จะใช้เพื่อเก็บข้อมูลขึ้นมาเสียก่อน แล้วก็ใส่ตัวเลขเริ่มต้นเช่น 0 เอาไว้เพื่อใช้เริ่มต้นในการนับ แล้วก็บันทึกชื่อไฟล์ตามที่เราต้องการ อย่างในตัวอย่างผมตั้งชื่อว่า "hit-count.txt"

<%
Set oFs = Server.CreateObject("Scripting.FileSystemObject")
' ในกรณีที่เข้ามาเยี่ยมชมครั้งแรก และ ไม่มีไฟล์ที่ใช้เป็นตัวเก็บข้อมูลในการนับ
On Error Resume next ' ไม่สนใจในความผิดพลาด ให้ทำงานต่อไปได้เลย

Set oFile= oFs.OpenTextFile(Server.MapPath("HIT-COUNT.TXT"), 1)

' หากไม่มี Error ใดๆ เกิดขึ้น
On Error GoTo 0

if isObject(oFile) then
lHitCount = oFile.ReadLine
if isNumeric(lHitCount) then
lHitCount = clng(lHitCount)
else
lHitCount = 0
end if

oFile.Close
else
lHitCount = 0
end if

' ค่าของการนับเพิ่มขึ้นอีก 1

lHitCount = CStr(lHitCount + 1) ' บันทึกค่าที่นับได้ใหม่นี้เก็บลงสู่ Text File อีกครั้ง (ทับข้อมูลเดิม)

Set oFile= oFs.CreateTextFile(server.mappath("HIT-COUNT.TXT"), True)

oFile.writeLine cstr(lHitCount)

' ปิดการอ่านไฟล์ข้อความ
oFile.Close

Set oFs = Nothing
%>

' การนำเอาไปใช้งาน ก็เพียงแต่นำเอา Script ที่อยู่ด้านล่างนี้ ไปวางไว้ในตำแหน่งที่เราต้องการ ก็เป็นอันเสร็จสิ้นพิธีการแล้วครับ.

(เข้ามาอ่านหน้านี้แล้วเป็นครั้งที่: <%=lHitCount %>)

Date : 2009-08-11 21:36:00

By : e_tawee

No. 2

Guest

แล้วผมจะเอาhit-count.txtเซฟไว้ที่ไหนอ่าคับ

Date : 2009-09-15 13:06:01

By : teerawut

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : อยากได้โค้ด นับผู้ชมครับ คืออาจารย์ให้ทำโค้ดนับผู้ชมครับ ผมก็เลยอยากได้โค้ดนั้น-

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04