Program ini menempatkan nomor penghitung dalam database ACCESS, tetapi Anda dapat menggunakan sumber data ODBC lain yang Anda inginkan. Program ini membaca informasi penghitung dari URL Berikut ini:
< IMG src="id=MYTEST&seq=default&cells =7" >
Parameter
id adalah
penunjukan halaman web pelanggan (yaitu nama pengguna). Setiap kali Anda menggunakan ID baru, catatan baru akan dimasukkan ke dalam database. Jika ID aslinya ada, maka hitungannya akan bertambah 1. Jika Anda tidak ingin pelanggan mengaktifkan ID secara otomatis dan perlu mendaftar, maka Anda menetapkan nilai "penyisipan otomatis" ke False.
seq
adalah opsional nama gambar yang ditampilkan pada klien adalah .gif. Nilai defaultnya adalah "defalut.gif", dan "defalut.gif" ini harus ditempatkan di direktori kerja saat ini!
Jumlah
digit yang ditampilkan dalam penghitungan hasilnya, defaultnya adalah 5 digit (nilai ini Anda atur di program (bisa juga disesuaikan) Bagaimana cara menjalankan program ini? Salin program ini ke tempat yang Anda inginkan di server.
Buat sumber data "Webcounter". Harus ada tabel bernama "utama" pada sumber data ini. Berikut ini adalah tabel Fields di :
< tabel border="1" cellpadding="3" Cellspacing="1" >
<tr>
< th >Bidang< /th >
< th >Jenis< /th >
< th >Terindeks< /th >
< th >Berarti< /th >
< /tr >
<tr>
< td >identitas< /td >
< td >NomorOtomatis</ td >
< td >Ya</ td >
< td >Untuk kebutuhan Anda< /td >
< /tr >
<tr>
< td >id< /td >
< td >Teks</ /td >
< td >Ya</ td >
<td>Nama pengguna</td>
< /tr >
<tr>
< td >hitungan< /td >
< td >Nomor</ td >
< td >Tidak< /td >
< td >Menghitung Angka</td>
< /tr >
< /tabel >
Jika perlu, tetapkan izin ke database
dan buat direktori untuk menyimpan grafik GIF. Di direktori ini, setidaknya satu grup grafik default.gif harus ditempatkan. Berikan izin ke file ini bila diperlukan.
Letakkan beberapa grafik angka di direktori ini yang habis dibagi 10.
< table width="100%" border="1" Cellspacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >File < b >counter.asp< /b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< pra >
<%
Respon.ContentType="gambar/gif"
Respon. Kedaluwarsa = 0
'Direktori tempat bilah GIF ditempatkan. Diakhiri dengan .
workdir="c:gifbars"
'Setel ini ke False jika Anda ingin menonaktifkan penyisipan otomatis
'catatan penghitung baru ke database pada setiap hit dengan unik
'string identitas
auto_insert=Benar
id=Trim(Permintaan.QueryString("id"))
seq=Trim(Permintaan.QueryString("seq"))
jika seq="" maka seq="default"
sel=Trim(Permintaan.QueryString("sel"))
jika sel = "" maka sel = 5 sel lain = sel * 1
setel samb=Server.CreateObject("ADODB.Connection")
samb.Buka "Webcounter"
sql="pilih jumlah,ident dari main di mana id='" & id & "'"
setel rs=sambungan.Jalankan(sql)
jika bukan rs.EOF maka
hitungan=rs("hitungan")+1
identitas=rs("identitas")
rs.tutup()
conn.Execute("perbarui jumlah set utama=hitung+1 di mana ident=" & ident)
samb.close()
TampilkanNomor()
kalau tidak
rs.tutup()
jika auto_insert=True dan id< >"" lalu
conn.Execute("masukkan ke nilai utama (id,hitungan) ('" & id & "',1)")
hitungan=1
TampilkanNomor()
berakhir jika
samb.close()
berakhir jika
Sub ShowNumbers()
set g=CreateObject("shotgraph.gambar")
nama file=workdir & seq & ".gif"
jika g.GetFileDimensions(nama file,xsize,ysize,pal)< >1 lalu Keluar dari Sub
xdigit=xukuran10
g.BuatGambar xdigit*sel,ysize,UBound(pal)+1
g.InitClipboard xukuran,yukuran
g.PilihClipboard Benar
untuk i=0 hingga UBound(sobat)
g.SetWarna i,sobat(i,0),sobat(i,1),sobat(i,2)
Berikutnya
g.ReadImage nama file,sobat,0,0
untuk i=1 ke sel
k=GetDigit(hitungan,sel-i)
g.Salin (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
Berikutnya
Respons.BinaryWrite g.GifImage(-1,1,"")
Akhiri Sub
Fungsi GetDigit (angka, posisi)
angka1=angka(10^posisi)
tmp=angka110
DapatkanDigit=angka1-tmp*10
Fungsi Akhir
%>
<xmp>
< /pra >
</ /td>
< /tr >
< /tabel >
< jam >< /span >< /td >
< /tr >
<tr>
< td lebar="50%" > </ /td >
< td lebar="50%" >< br >< /td >
< /tr >
<tr>
< td colspan=2 align="kanan" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >Tinggalkan komentar</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >Kirim halaman ini melalui email</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >Cetak halaman ini</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) return false;" >Simpan halaman ini< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >Anda memiliki pertanyaan</a>
</ /td>
< /tr >
<tr bgcolor="#97B9FF" >
< td width="50%" >< b >< font color="#FFFFFF" >Artikel terkait</font >< /b >< /td >
< td width="50%" >< b >< font color="#FFFFFF" >Komentar terkait</font >< /b >< /td >
< /tr >
<tr>
< td lebar="50%" valign="atas" >
</ /td>
< td width="50%" valign="top" >
</ /td >
< /tr >
<tr>
< td lebar="50%" >
</ /td>
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /tabel >
</ /td>
< /tr >
< /tabel >
</ /td>
< /tr >
< /tabel >
< /tubuh >
< /html >