Menganalisis pemungutan suara dalam program penggalian implementasi ASP

Direkomendasikan: Parsing cara memfilter karakter yang tidak beradab
% Fungsi badchar (str) badstr = daftar karakter yang tidak beradab, terpisah dengan | (Karena karakter tidak dapat terkandung saat penerbitan, itu tidak dapat diposting.) Badword = split (badstr, |) untuk i = 0 ke ubound (badword) if instr (str, badword (i)) 0 lalu badchar = true exit untuk lain badchar = false end jika berikutnya

ASP membuat pemungutan suara dalam program penggalian (beberapa disebut top and step on). Karena kodenya panjang, hanya bagian inti yang diposting: kode dalam pemungutan suara

Halaman menunjukkan suara:

<Div class = vote1> <script src = '/voteresult.asp? id = 1 & action = view'> </script> </div>

Efeknya seperti yang ditunjukkan pada gambar: kemudian klik untuk memilih, dan jumlah suara akan meningkat sebesar 1, seperti yang ditunjukkan pada gambar:

Kode Pemilih

<%

Response.contentType = teks/html; Charset = GB2312

'Penulis: Wuqing Sumber: Harap simpan sumbernya saat mencetak ulang

'Tautan kode basis data dihilangkan

Set RS = Server.CreateObject (ADODB.Recordset)

sql = (pilih news_id, suara dari dwww_news di mana news_id = & request (id) &)

Rs.open SQL, Conn, 1,1

Jika tidak rs.eof dan bukan rs.bof maka 'Pertama periksa apakah ID benar

Jika permintaan (tindakan) = Lihat maka 'Jika itu adalah ID dari kode berita

if instr (request.cookies (voteId), request (id) & |) <> 0 lalu 'menilai apakah berita ID telah memberikan suara

response.write document.write (<div class = 'result' id = 'result_ & rs (news_id) &'> & rs (vote) & </div>);

response.write document.write (<span class = 'result_link' id = 'result_link_ & rs (news_id) &'> voting berhasil </pan>);

kalau tidak

response.write document.write (<div class = 'result' id = 'result_ & rs (news_id) &'> <a href = 'javaScript: dovote (& request (id) &)'> & rs (vote) & </a> </div>);

response.write document.write (<span class = 'result_link' id = 'result_link_ & rs (news_id) &'> <a href = 'javascript: dovote (& request (id) &)'> vote </a> </span>);

akhiri jika

Lain 'klik untuk memilih untuk memproses kode

if instr (request.cookies (voteId), request (id) & |) <> 0 lalu

Response.cookies (voteId) = request (id) & |

Response.cookies (voteId) .expires = date ()+365

kalau tidak

Response.cookies (voteId) = request (id) & | & request.cookies (voteId)

Response.cookies (voteId) .expires = date ()+365

akhiri jika

Bagikan: ASP Call Pure IP Library Contoh
% '=====================================================' Pengembalian Informasi IP DISP_IPADDRESSDATA (IP, 0) ' ============================================KAN