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
3 halaman total halaman sebelumnya 123 halaman berikutnya