Ini adalah penghitung grafis cantik yang dirancang tanpa CGI.
Ini dibagi menjadi tiga bagian: 1. Membuat file grafik.
2. Buat basis data.
3. Tulis kode.
1. Buat file grafik.
Pertama, gunakan perangkat lunak grafik untuk membuat 10 grafik untuk menampilkan sepuluh angka penghitung: 1, 2, 3, 4, 5, 6, 7, 8, 9, 0. Jika Anda memiliki bakat seni, Anda dapat membuat grafik yang lebih baik.
2. Buat basis data.
Gunakan untuk membuat database bernama. Basis data berisi tabel,
Namanya, strukturnya: integer, ada satu record, dan nilai awalnya 0.
Digunakan untuk menyimpan jumlah kunjungan terakhir ke halaman ini.
3. Tulis kode.
——————nomor.asp————————————
<%@ bahasa = "vbscript" %>
<!--#termasuk file="adovbs.inc"-->
<%
setel objconn=server.createobject("adodb.koneksi")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("angka.mdb")
objconn.open "driver={driver akses microsoft (*.mdb)};dbq=" & dbpath
Catatan: Buat koneksi dengan database.
sqlquery= "pilih * dari angka"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
Catatan: Buka database.
aplikasi.lock
aplikasi("nmb")=rsrecordset("angka")
aplikasi.buka kunci
Catatan: Tetapkan jumlah akses terakhir ke objek Aplikasi
application.lock
aplikasi("nmb")=aplikasi("nmb")+1
aplikasi.buka kunci
rsrecordset("angka")=rsrecordset("angka")+1
rsrecordset.update
rsrecordset.close
objconn.close
setel rsrecordset=tidak ada
atur objconn=tidak ada
Catatan: Tutup database dan lepaskan objek
dim nmb1
redupkan str()
nmb1=aplikasi("nmb")
redim str(nmb1)
untuk i=1 hingga len(nmb1)
str(i)=tengah(nmb1,i,1)
Catatan: Untuk setiap nomor, dapatkan file grafik yang sesuai,
pilih case str(i)
kasus"0"
imgF="0.gif"
kasus"1"
imgF="1.gif"
kasus"2"
imgF="2.gif"
kasus"3"
imgF="3.gif"
kasus"4"
imgF="4.gif"
kasus"5"
imgF="5.gif"
kasus"6"
imgF="6.gif"
kasus"7"
imgF="7.gif"
kasus"8"
imgF="8.gif"
kasus"9"
imgF="9.gif"
akhir pilih
Catatan: Keluaran respon grafis.write
"<img src="&imgF&">"
Berikutnya
%>