Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > bug counter ช่วยหน่อยครับ(มือใหม่) มันติดบรรทัดนี้ครับ Set outstream= FileObject.CreateTextFile

bug counter ช่วยหน่อยครับ(มือใหม่) มันติดบรรทัดนี้ครับ Set outstream= FileObject.CreateTextFile

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

Guest

มันติดบรรทัดนี้ครับ
Set outstream= FileObject.CreateTextFile (hitsfile, True)
ผมก็อบ code counter จากเว็บนี้แหละครับ

<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
hitsfile = Server.MapPath("counter.txt")
Set instream= FileObject.OpenTextFile (hitsfile, 1, False )
' เรียกค่าจำนวนผู้เยี่ยมชมจากไฟล์ counter.txt
oldhits = instream.ReadLine
' เก็บค่าเข้าตัวแปร oldhits
newhits = oldhits + 1
' บวกค่าด้วยหนึ่งแล้วเก็บเข้าตัวแปร newhits
Set outstream= FileObject.CreateTextFile (hitsfile, True)
OutStream.WriteLine(newhits)
' เก็บค่าจำนวนผู้เยี่ยมชมที่อยู่ในตัวแปร newhits เข้าไปในไฟล์ counter.txt
l=Len(newhits)
' เก็บจำนวนตัวอักษร(จำนวนหลัก)ของตัวแปร newhits ไว้ในตัวแปร l
For i = 1 to l
' วนการทำงานจากหลักที่ 1 ถึงหลักที่ l
num = Mid(newhits,i,1)
' ตัดตัวเลขออกมาที่ละตัว
display = display & "<img src=""images/" &num & ".gif"">"
' แสดงรูปตามหมายเลขแล้วเก็บเข้าตัวแปร display
Next%>
<%=display%>

Tag : - - - -

Date : 8 ส.ค. 2549 13:16:03

By : นายกระจอก

View : 2036

Reply : 1

No. 1

Guest

สงสัยลืมไปสร้างไฟล์ text อ่ะครับ แล้วก็รันตัวเลขใส่ให้มันอ่ะครับ เก็บไฟล์ไว้ในโฟล์เดอร์เดียวกับงานที่ทำอยู่นะครับ ลองกับไปอ่านใหม่ให้ครบนะครับ

Date : 8 ส.ค. 2549 14:50:37

By : มือใหม่

ค้นหาข้อมูล

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

Re : bug counter ช่วยหน่อยครับ(มือใหม่) มันติดบรรทัดนี้ครับ Set outstream= FileObject.CreateTextFile

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 05

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); bug counter ช่วยหน่อยครับ(มือใหม่) มันติดบรรทัดนี้ครับ Set outstream= FileObject.CreateTextFile

No. 1

ค้นหาข้อมูล

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

Notice

bug counter ช่วยหน่อยครับ(มือใหม่) มันติดบรรทัดนี้ครับ Set outstream= FileObject.CreateTextFile