Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > counter 1 เปลี่ยนให้เป็น 00001 ยังไงครับครับ ก็ตามหัวข้อเลยครับ ผมจะต้องใส่โค๊ดยังไง โค๊ดเดิมเป็นอย่างงี้ครับ

counter 1 เปลี่ยนให้เป็น 00001 ยังไงครับครับ ก็ตามหัวข้อเลยครับ ผมจะต้องใส่โค๊ดยังไง โค๊ดเดิมเป็นอย่างงี้ครับ

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

Guest

ก็ตามหัวข้อเลยครับ ผมจะต้องใส่โค๊ดยังไง

โค๊ดเดิมเป็นอย่างงี้ครับ
<%
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 : 11 ส.ค. 2549 16:22:28

By : อ่อนหัด

View : 2442

Reply : 6

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

num = Right("00000"&Mid(newhits,i,1),5)

Date : 11 ส.ค. 2549 16:45:22

By : @W_IN

No. 2

Guest

สวัสดีครับ

ความต้องการ

1. ต้องการแสดง counter อย่างต่ำ 5 แถว
2. ในกรณีไม่ถึง ให้แทนค่า ด้วย 0

วิธีการ
เอาแบบชาวบ้านๆ แหละครับ
1. l=Len(newhits) อันดับแรก ต้องเช็คตัวแปรนี้ก่อนครับ ว่าได้ออกมากี่หลัก ซึ่ง ถ้าคุณต้องการ 5 หลัก ก็เช็ค if ก่อน หรือ select case ก็ได้ ตัวอย่างนี้ผมใช้ select
l=len(newhits)
select case l
case 1
newhits="0000"&newhit
case 2
newhits="000"&newhit
case 3
newhits="00"&newhit
case 4
newhits="0"&newhit
end select

2. วนลูป l รอบ ..( ซึ่งกว่าจะได้ 6 รอบ ถ้าเป็นเวปนี่รอเหงือกแห้งครับ แต่ก็ดีไม่ต้องมาแก้ source ใหม่ แค่อยากแซวว่า for i=1 to 5 ก้อได้เหมือนกัน) อย่าไป for i=1 to l เพราะ len ทีแรกมันได้ 1 นี่หน่า ในที่นี้ผมทำเผื่ออนาคตมีคนมาเข้าเป็นแสน

l=Len(newhits)
for i =1 to l
num = Mid(newhits,i,1)
......
.....
next

ได้ละ...
ว่าแต่ งงกับคุณ @W_IN สงสัยวันนี้แกงานเยอะเลยเบรอ

Date : 12 ส.ค. 2549 07:00:19

By : ASP อ่อนหัด

No. 3

นายกระจอก007

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

เห้อ เค้าบอกโค๊ดที่สั้น ๆ ก็หาว่าเค้าเบลอ คุณลองอย่างที่เค้าบอกหรือยังละครับ อ่อนหัดจริง ๆ เล้ย

Date : 12 ส.ค. 2549 13:14:25

By : นายกระจอก

No. 4

Guest

ว่าแต่คุณนายกระจอก ลองที่เค้าเขียนรึยังล่ะ
...
ผมลองกี่รอบกี่รอบก็ไม่ได้ .. อีกอย่างนะครับ..ผมไม่ได้ว่าคุณ @win หรอก แต่แซวเล่น.. หากไปกระทบต่อม เพื่อนกัน หรือ ต่อมเจ้าของเวป หรือ ต่อม สุดยอด ASP ผมก็ขออภัย

Date : 13 ส.ค. 2549 03:38:22

By : ASP อ่อนหัด

No. 5

นายกระจอก007

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

พิเศษสำหรับคุณอ่อนหัดนะครับ อิอิ
<%
for tmp=1 to 99999
id="P"& right("00000"& tmp,5)
response.write id&"<br>"
next
%>
นี่ก็เป็นแค่ตัวอย่างง่าย ๆ นะครับ

Date : 14 ส.ค. 2549 09:34:05

By : นายกระจอก

No. 6

Guest

อย่าน้อยอกน้อยใจไปเลยครับ คุณ ASP อ่อนหัด
การเขียนโปรแกรมมีหลากหลายเทคนิค non-Limit ครับ

Date : 15 ส.ค. 2549 16:04:48

By : symon

ค้นหาข้อมูล

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

Re : counter 1 เปลี่ยนให้เป็น 00001 ยังไงครับครับ ก็ตามหัวข้อเลยครับ ผมจะต้องใส่โค๊ดยังไง โค๊ดเดิมเป็นอย่างงี้ครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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