Direkomendasikan: Desain modul login untuk pengguna ASP Skrip verifikasi login pengguna, chkpwd.asp Berikut ini adalah konten yang direferensikan: % '========= Skrip verifikasi login pengguna ======' Jika objek yang dilewatkan belum ditentukan, itu didefinisikan sebagai false, menunjukkan bahwa tidak ada
Program ini menempatkan jumlah penghitung dalam database Access, dan tentu saja Anda juga dapat menggunakan sumber data ODBC lain yang Anda inginkan. Program ini membaca informasi hitungan dari URL. Sebagai berikut:
<Img src = id = mytest & seq = default & sel = 7>
parameter
pengenal
Peugeot (mis. Nama pengguna) dari halaman web klien. Setiap kali Anda menggunakan ID baru, catatan baru akan dimasukkan ke dalam database. Jika ID ini ada, penghitungannya akan ditingkatkan dengan 1. Jika Anda tidak ingin klien secara otomatis memulai ID dan perlu mendaftar, maka Anda akan menetapkan nilai secara otomatis dimasukkan ke False.
seq
Opsional. Digunakan untuk memilih gaya gambar counter. Nama gambar yang ditampilkan pada klien adalah .gif. Nilai default adalah defalut.gif, dan defalut.gif ini harus ditempatkan di direktori kerja saat ini!
sel
Opsional. Jumlah bit yang ditampilkan dalam hasil penghitungan adalah 5 bit (Anda dapat menyesuaikan nilai ini dalam program) Cara menjalankan program ini
Salin program ini ke tempat yang Anda inginkan di server.
Buat WebCounter Sumber Data. Harus ada nama tabel di sumber data ini, dan berikut ini adalah bidang dalam tabel ini:
Berikut ini adalah konten yang dikutip:
<Border Table = 1 CellPadding = 3 CellPacing = 1>
<tr>
<th> bidang </t>
<t th> ketik </th>
<t th> diindeks </t>
<th> berarti </t>
</tr>
<tr>
<td> ident </td>
<td> autonumber </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> Count </td>
<td> Nomor </td>
<td> no </td>
<td> Menghitung Nomor </td>
</tr>
</boable>
Tetapkan izin ke database jika diperlukan
Buat direktori yang menyimpan grafik GIF, dan tempatkan setidaknya grafik grafis default.gif di direktori ini. Berikan izin ke file ini sebagaimana mestinya.
Masukkan beberapa grafik digital di direktori ini yang dapat dibagi dengan 10.
Berikut ini adalah konten yang dikutip:
<Lebar Tabel = 100% Border = 1 CellPacing = 1 CellPadding = 2>
<tr>
<td bgcolor =#ccffff> file <b> counter.asp </b> </td>
</tr>
<tr>
<td bgcolor =#ffffcc> <pred>
< %
Response.contentType = gambar/gif
Response.expires = 0
'Direktori tempat bar GIF ditempatkan. Berakhir dengan /
workdir = c:/gifbars/
'Atur ini ke false jika Anda ingin menonaktifkan penyisipan otomatis
'Catatan penghitung baru ke database pada setiap hit dengan unik
'ID String
auto_insert = true
id = trim (request.querystring (id))
seq = trim (request.querystring (seq))
Jika seq = maka seq = default
sel = trim (request.querystring (sel))
jika sel = maka sel = 5 sel lain = sel*1
Set Conn = Server.CreateObject (AdodB.Connection)
Conn.Open WebCounter
sql = pilih count, ident dari main where id = '& id &'
Set RS = Conn.Execute (SQL)
Jika tidak rs.eof maka
Count = Rs (Count) 1
ident = rs (ident)
rs.close ()
Conn.Execute (Perbarui Hitung Set Utama = Hitung 1 di mana identitas = & identitas)
conn.close ()
Showumbers ()
kalau tidak
rs.close ()
Jika auto_insert = true dan id <> lalu
Conn.execute (masukkan ke nilai utama (id, hitung) ('& id &', 1))
hitung = 1
Showumbers ()
akhiri jika
conn.close ()
akhiri jika
Sub shamseumbers ()
set g = createObject (shotgraph.image)
nama file = workdir & seq & .gif
Jika g.getFileMensions (nama file, xsize, ysize, sobat) <> 1 lalu keluar sub sub
xDigit = xsize/10
G.CreateImage XDigit*sel, ysize, ubound (PAL) 1
G.InitClipboard xsize, ysize
G.Selectclipboard Benar
untuk i = 0 ke ubound (PAL)
G.SetColor I, Pal (I, 0), Pal (I, 1), Pal (I, 2)
Berikutnya
G. READIMAGE FILENAME, PAL, 0,0
untuk i = 1 ke sel
k = getDigit (Count, Cell-I)
G.Copy (i-1)*xdigit, 0, xdigit, ysize, k*xdigit, 0, srccopy
Berikutnya
Response.binarywrite g.gifimage (-1,1,)
Akhir sub
Fungsi getDigit (angka, posisi)
angka1 = angka/(10^posisi)
tmp = angka1/10
GetDigit = number1-tmp*10
Fungsi akhir
%>
<xmp>
</per>
</td>
</tr>
</boable>
<hr> </span> </td>
</tr>
<tr>
<TD Lebar = 50%> </td>
<TD Lebar = 50%> <br> </td>
</tr>
<tr>
<td colspan = 2 align = kanan>
<IMG BORDER = 0 SRC = gambar/bbstitle.gif> <a id = hlkaddmsg href =/addmsg.aspx? id = 234 style = warna: merah> tinggalkan komentar </a>
<border img = 0 src = gambar/mail.gif> <a id = hlkmailto href =/mailto.aspx? id = 234> kirimkan halaman ini </a>
<IMG BORDER = 0 SRC = gambar /print.gif> <a href = javascript: window.print ()> cetak halaman ini </a>
<img border = 0 src = gambar/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 = gambar/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>
<Lebar TD = 50% Valign = Top>
</td>
<Lebar TD = 50% Valign = Top>
</td>
</tr>
<tr>
<Lebar TD = 50%>
</td>
<TD Lebar = 50% Align = Right> <Img Border = 0 Src = Gambar /LEBIH.
</tr>
</boable>
</td>
</tr>
</boable>
</td>
</tr>
</boable>
</body>
</html>
Bagikan: Diskusi Singkat tentang Prinsip Program Akuisisi ASP Langkah -langkah utama dari program pengumpulan adalah sebagai berikut: 1. Dapatkan konten dari halaman 2 yang dikumpulkan. Ekstrak semua data dari kode akuisisi 1. Dapatkan konten dari halaman yang dikumpulkan yang saat ini saya ketahui tentang ASP yang umum digunakan metode untuk mendapatkan halaman yang dikumpulkan: 1.