โปรแกรมนี้วางหมายเลขตัวนับไว้ในฐานข้อมูล ACCESS แต่คุณสามารถใช้แหล่งข้อมูล ODBC อื่น ๆ ที่คุณต้องการได้ โปรแกรมนี้อ่านข้อมูลตัวนับจาก URL นี่คือ:
< IMG src="id=MYTEST&seq=default&cells =7" >
พารามิเตอร์
id คือ
การกำหนดหน้าเว็บของลูกค้า (นั่นคือ ชื่อผู้ใช้) ทุกครั้งที่คุณใช้ ID ใหม่ บันทึกใหม่จะถูกแทรกลงในฐานข้อมูล หากมี ID เดิม จำนวนนั้นจะเพิ่มขึ้น 1 หากคุณไม่ต้องการให้ลูกค้าเปิดใช้งาน ID โดยอัตโนมัติและจำเป็นต้องลงทะเบียน คุณจะต้องกำหนดค่าของ "การแทรกอัตโนมัติ"
เป็น
False ชื่อของรูปภาพที่แสดงบนไคลเอ็นต์คือ .gif ค่าเริ่มต้นคือ "defalut.gif" และจะต้องวาง "defalut.gif" ไว้ในไดเร็กทอรีการทำงานปัจจุบันหรือ
ไม่
ก็ได้ ผลลัพธ์ค่าเริ่มต้นคือ 5 หลัก (ค่านี้ที่คุณตั้งไว้ในโปรแกรม (สามารถปรับได้) วิธีรันโปรแกรมนี้คัดลอกโปรแกรมนี้ไปยังตำแหน่งที่คุณต้องการในเซิร์ฟเวอร์
สร้างแหล่งข้อมูล "Webcounter" จะต้องมี ตารางชื่อ "main" ในแหล่งข้อมูลนี้ ต่อไปนี้คือเขตข้อมูลในตาราง:
< table border="1" cellpadding="3" cellspacing="1" >
<tr>
<th >สนาม</th >
<th >ประเภท< /th >
<th >จัดทำดัชนี</th >
<th >หมายถึง< /th >
</ /tr >
<tr>
< td >ระบุตัวตน</ /td >
< td >หมายเลขอัตโนมัติ</ td >
< td >ใช่</ td >
< td >สำหรับความต้องการของคุณ</ /td >
</ /tr >
<tr>
< td >รหัส< /td >
< td >ข้อความ</ /td >
< td >ใช่</ td >
<td>ชื่อผู้ใช้</td>
</ /tr >
<tr>
< td >นับ< /td >
< td >หมายเลข</ td >
< td >ไม่< /td >
< td >การนับตัวเลข</td>
</ /tr >
</ /ตาราง >
หากจำเป็น ให้กำหนดสิทธิ์ให้กับฐานข้อมูล
และสร้างไดเร็กทอรีเพื่อจัดเก็บกราฟิก GIF ในไดเร็กทอรีนี้ จะต้องวางกลุ่มกราฟิกของ default.gif อย่างน้อยหนึ่งกลุ่มตามความเหมาะสม
ใส่กราฟิกตัวเลขบางส่วนในไดเร็กทอรีนี้ซึ่งหารด้วย 10 ลงตัว
< table width="100%" border="1" cellspacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff">ไฟล์ < b >counter.asp< /b > </ /td >
</ /tr >
<tr>
< td bgcolor="#ffffcc" >< ก่อน >
-
Response.ContentType="รูปภาพ/gif"
การตอบกลับหมดอายุ=0
'ไดเรกทอรีที่วางแถบ GIF ลงท้ายด้วย
workdir="c:gifbars"
'ตั้งค่านี้เป็นเท็จ หากคุณต้องการปิดใช้งานการแทรกอัตโนมัติ
'บันทึกตัวนับใหม่สู่ฐานข้อมูลทุกครั้งที่ตีไม่ซ้ำกัน
'สตริงรหัส
auto_insert=จริง
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
ถ้า seq="" แล้วก็ seq="default"
เซลล์=ตัดแต่ง(Request.QueryString("เซลล์"))
ถ้าเซลล์ = "" ดังนั้นเซลล์ = 5 เซลล์อื่น = เซลล์ * 1
ตั้งค่า conn=Server.CreateObject("ADODB.Connection")
conn.เปิด "เว็บเคาน์เตอร์"
sql = "เลือกจำนวน, ระบุจากหลักโดยที่ id ='" & id & "'"
ตั้งค่า rs=conn.Execute(sql)
ถ้าไม่ใช่ rs.EOF แล้ว
นับ=rs("นับ")+1
ident=rs("ตัวตน")
rs.ปิด()
conn.Execute("อัพเดตชุดหลัก count=count+1 โดยที่ ident=" & ident)
con.ปิด()
แสดงตัวเลข()
อื่น
rs.ปิด()
ถ้า auto_insert=True และ id< >"" แล้ว
conn.Execute("ใส่เข้าไปในค่าหลัก (id,นับ) ('" & id & "',1)")
นับ=1
แสดงตัวเลข()
สิ้นสุดถ้า
con.ปิด()
สิ้นสุดถ้า
Sub ShowNumbers()
ตั้ง g=CreateObject("shotgraph.image")
ชื่อไฟล์=workdir & seq & ".gif"
ถ้า g.GetFileDimensions(ชื่อไฟล์,xsize,ysize,pal)< >1 ให้ออกจาก Sub
xdigit=xsize10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.เลือกคลิปบอร์ดจริง
สำหรับ i=0 ถึง UBound(pal)
g.SetColor i,เพื่อน(i,0),เพื่อน(i,1),เพื่อน(i,2)
ต่อไป
g.ReadImage ชื่อไฟล์,pal,0,0
สำหรับ i=1 ไปยังเซลล์
k=GetDigit(นับ,เซลล์-i)
g.Copy (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
ต่อไป
Response.BinaryWrite g.GifImage(-1,1,"")
สิ้นสุด
ฟังก์ชันย่อย GetDigit(หมายเลข ตำแหน่ง)
number1=หมายเลข(10^ตำแหน่ง)
tmp=หมายเลข110
GetDigit=number1-tmp*10
สิ้นสุดฟังก์ชัน
%>
<xmp>
</ /ก่อน >
</ /td >
</ /tr >
</table >
< ชม. >< /span >< /td >
</ /tr >
<tr>
< ความกว้าง td="50%" > </ /td >
< ความกว้าง td="50%" >< br >< /td >
</ /tr >
<tr>
< td colspan=2 align="right" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >แสดงความคิดเห็น</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >ส่งอีเมลหน้านี้</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >พิมพ์หน้านี้</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 ) )) return false;" >บันทึกหน้านี้< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp">คุณมีคำถาม</a>
</ /td >
</ /tr >
<tr bgcolor="#97B9FF" >
< td width="50%" >< b >< font color="#FFFFFF" >บทความที่เกี่ยวข้อง</font >< /b >< /td >
< td width="50%" >< b >< font color="#FFFFFF" >ความคิดเห็นที่เกี่ยวข้อง</font >< /b >< /td >
</ /tr >
<tr>
< td width="50%" valign="ด้านบน" >
</ /td >
< td width="50%" valign="top">
</ /td >
</ /tr >
<tr>
< ความกว้าง td="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
</ /tr >
</ /ตาราง >
</ /td >
</ /tr >
</ /ตาราง >
</ /td >
</ /tr >
</ /ตาราง >
</ ร่างกาย >
</ /html >