|
|
|
ช่วยด้วยคะ เรื่องการทำ counter ในการนับจำนวน ใครทราบช่วยบอกที |
|
|
|
|
|
|
|
form action=resclt1.asp method=get>
</table>
</form>
</FORM>
ตรงส่วนนี้ผิดหรือเปล่าครับ แล้วผมดูโค้ดนี้ ไม่เห็นเกี่ยวกับ counter ตรงไหนเลยอ่ะครับ (ง่ะ)
|
|
|
|
|
Date :
2 ส.ค. 2549 00:45:19 |
By :
tkaj_krit |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
แน่ใจนะว่ามันโค้ดของ counter อ่ะครับ
มองไงก็ม่ะใช่นะครับ
ลองบอกการทำงานของโค้ดนี้คร่าวๆให้ทีสิ ว่ามันควรจะต้องทำงานไง จะได้รู้ว่าจิงๆมันต้องเป็นไง
อืม
www.jamdai.com
|
|
|
|
|
Date :
2 ส.ค. 2549 04:20:27 |
By :
C-sis |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<html>
<title> Ãéҹ˹ѧÊ×ÍÍ͹äŹì </title>
<FORM METHOD="GET"ACTION="test.asp">
<%
when=now()
response.write "Time <b>" & when& " </b><br>"
%>
<ALIGN="RIGHT"VALIGN="MIDDLE">ID :
<ALIGN="LEFT">
<INPUT TYPE="text"NAME="name" VALUE=""SIZE="20"MAXLENGTH="150"><p>
NAME :
<ALIGN="LEFT">
<INPUT TYPE="text"NAME="Organization" VALUE=""SIZE="25"MAXLENGTH="150"><p>
Email Address :
<INPUT TYPE="text"NAME="Email" VALUE=""SIZE="25"MAXLENGTH="150"><p>
<INPUT TYPE="submit" NAME="submit" VALUE="Submit">
<INPUT TYPE="reset"><p>
<form action=resclt1.asp method=get>
</table>
</form>
</FORM>
</body>
</html>
ผิดที่ สีแดงเลย
เค้าไม่มีใครใช้ form มาซ้อนกับ form หรอกครับ
|
|
|
|
|
Date :
2 ส.ค. 2549 09:19:27 |
By :
นิจัง |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
อืม ขอโทษทีนะค่ะ ผิดโค้ด อันนี้ถูกแน่ๆ
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
hitsfile = Server.MapPath("counter.txt")
Set instream = FileObject OpenTextFile (hitsfile, 1, False)
oldhits = instream.ReadLine
newhits = oldhits + 1
instream.close
Set outstream = FileObject.CreateTextFile (hitsfile, True)
OutStream.WriteLine(newhits)
I = Len (newhits,i,1)
for i = 1 to 10
num = Mid(newhits,i,1)
display = display & "<img src=images/" &num & ".gif >"
Next
Outstream.close%>
<%=display%>
|
|
|
|
|
Date :
2 ส.ค. 2549 22:24:44 |
By :
ออย |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
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)
O
เขาวานให้ผมเป็นของลับ ไม่ได้โม้ says:
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%>
<%=di
อันนี้แบบอธิบายแล้ว แต่ไม่รู้ว่ามันผิดตรงไหน
|
|
|
|
|
Date :
2 ส.ค. 2549 22:26:25 |
By :
ออย |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ลองสร้างไฟล์ counter.txt แล้วใส่ค่า 0000 ลงไปในไฟล์สิครับ แล้วค่อย run
ผมคิดว่าคงเกิดจากครั้งแรก มันไม่มีข้อมูลอะไรอยู่ในไฟล์ l=Len(newhits) น่าจะเป็น 0 เลยไม่แสดงข้อมูลครับ แต่ผมว่าโค้ดนี้น่าจะยังใช้ไม่ได้ครับ เพราะดูเหมือนว่า ถ้ามันแสดงผลสำเร็จ ครั้งแรก มันจะแสดงเป็น 1 ซึ่งที่ควรเป็นน่าจะเป็น 0001 มากกว่าครับ เอาไว้แก้ไขตรงนี้ให้ได้ก่อนแล้วค่อยพัฒนาต่อละกันครับ
|
|
|
|
|
Date :
2 ส.ค. 2549 22:42:51 |
By :
goragod |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 05
|