Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

ASP terbatas IP voting kode contoh lengkap

Penulis：Eve Cole Waktu Pembaruan：2025-05-06 23:32:02

Direkomendasikan: ASP Nomor Panjang dipisahkan oleh koma untuk menampilkan kode instance
% Fungsi koma (str) jika tidak (isNumeric (str)) atau str = 0 lalu hasil = 0 elseif len (fix (str)) 4 maka hasil = str else pos = instr (1, str ,.) jika pos 0 maka dec = mid (str, pos) end jika res = strreverse (fix (str)) loopcount = 1 sedangkan loopcount = res = strreverse (fix (str)) loopcount = 1 sementara loopcount = res = strreverse (fix (str)) loopcount = 1 sedangkan loopcount = = strreverse (fix)) loopcount = 1 sedangkan loopcount = = strreverse (fix)) loopcount = 1 sedangkan loopcount =

Karena hubungan kerja, salah satu fungsinya adalah memilih pengguna, mensyaratkan bahwa IP yang sama hanya dapat memilih pengguna yang sama sekali, dan memposting kode ASP

  1.  <%
  2.  'Penulis: Sumber yang kejam:
  3.  db_conn (dbs)
  4.  Voteusername = trim (request.querystring (nama pengguna))
  5.  rs_create (selectUsernamefrom [pengguna] di mana nama = '& voteusername &')
  6.  ifrs.eofandrs.bofthen
  7.  Response.write parameter yang salah, silakan aksesnya dari dengan benar!
  8.  response.end ()
  9.  endif
  11.  'Kasing pertama adalah klik pertama, cookie kosong, dan IP kosong
  12.  'Situasi kedua adalah mengklik orang kedua yang memilih, ada cookie orang pertama, cookie orang kedua tidak ada, tetapi IP ada
  13.  'Situasi ketiga adalah memilih dengan IP, ada cookie, IP kosong
  15.  ifrequest.cookies (dwww) (& voteusername &) = lalu
  16.  Response.Cookies (DWWW) (& VoteUserName &) = VoteUserName & |
  17.  Response.cookies (dwww) .expires = date ()+365
  18.  Callvotebody ()
  19.  kalau tidak
  20.  ifinstr (request.cookies (dwww) (& voteuserName &), request.cookies (dwww) (& voteusername &) & |) <> 0then
  21.  Callvotebody ()
  22.  kalau tidak
  23.  'Response.write maaf, Anda telah memilih! Cookie Ulangi
  24.  Response.write <script> alert ('Maaf, Anda memilih!'); History.back (); </script>
  25.  response.end ()
  26.  endif
  27.  endif
  29.  SubvoteBody ()
  30.  Voteusername = trim (request.querystring (nama pengguna))
  31.  Checkip = request.serverVariable (http_x_forwarded_for) 'bypass proxy ip
  32.  IfCheckip = sofekip = request.serverVariables (remote_addr)
  33.  GetUrl =
  34.  GetUrl = request.serverVariables (http_referer)
  36.  sql = selectUserName, ipfromVotewhereUserName = '& voteusername &' andip = '& checkip &'
  37.  rs_create (sql)
  38.  Ifnotrs.bofandnotrs.eofthen
  39.  'Response.write maaf, Anda telah memilih! Duplikat ip
  40.  Response.write <script> alert ('Maaf, Anda memilih!'); History.back (); </script>
  41.  response.end ()
  42.  Kalau tidak
  43.  Conn.execute (InsertIntovote (nama pengguna, IP, addTime) Value ('& VoteUserName &', '& checkip &', '& now () &')))
  44.  conn.execute (perbarui [pengguna] setVote = vote+1 whereUserName = '& voteusername &')
  45.  'Response.write Vote berhasil!
  46.  Response.write <script> alert ('Selamat, suara berhasil!'); Location.href = '& request.serverVariables (http_referer) &' </script>
  47.  response.end ()
  48.  Endif
  49.  endsub
  51.  rs_close ()
  52.  db_close ()
  53.  %>

Bagikan: ASP Membuat Program Verifikasi Halaman Login
Skrip verifikasi login pengguna, chkpwd.asp % '========= Skrip verifikasi login pengguna ======' jika objek yang ditularkan belum ditentukan, mendefinisikannya sebagai false, yang berarti bahwa verifikasi belum dilewati. Jika isempty (sesi (lulus)) maka sesi (lulus) = false end jika 'sesi (lulus) = false, itu berarti bahwa verifikasi belum dilewati, dan kemudian membaca dimulai.

Artikel Terkait