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
- <%
- 'Penulis: Sumber yang kejam:
- db_conn (dbs)
- Voteusername = trim (request.querystring (nama pengguna))
- rs_create (selectUsernamefrom [pengguna] di mana nama = '& voteusername &')
- ifrs.eofandrs.bofthen
- Response.write parameter yang salah, silakan aksesnya dari dengan benar!
- response.end ()
- endif
- 'Kasing pertama adalah klik pertama, cookie kosong, dan IP kosong
- 'Situasi kedua adalah mengklik orang kedua yang memilih, ada cookie orang pertama, cookie orang kedua tidak ada, tetapi IP ada
- 'Situasi ketiga adalah memilih dengan IP, ada cookie, IP kosong
- ifrequest.cookies (dwww) (& voteusername &) = lalu
- Response.Cookies (DWWW) (& VoteUserName &) = VoteUserName & |
- Response.cookies (dwww) .expires = date ()+365
- Callvotebody ()
- kalau tidak
- ifinstr (request.cookies (dwww) (& voteuserName &), request.cookies (dwww) (& voteusername &) & |) <> 0then
- Callvotebody ()
- kalau tidak
- 'Response.write maaf, Anda telah memilih! Cookie Ulangi
- Response.write <script> alert ('Maaf, Anda memilih!'); History.back (); </script>
- response.end ()
- endif
- endif
- SubvoteBody ()
- Voteusername = trim (request.querystring (nama pengguna))
- Checkip = request.serverVariable (http_x_forwarded_for) 'bypass proxy ip
- IfCheckip = sofekip = request.serverVariables (remote_addr)
- GetUrl =
- GetUrl = request.serverVariables (http_referer)
- sql = selectUserName, ipfromVotewhereUserName = '& voteusername &' andip = '& checkip &'
- rs_create (sql)
- Ifnotrs.bofandnotrs.eofthen
- 'Response.write maaf, Anda telah memilih! Duplikat ip
- Response.write <script> alert ('Maaf, Anda memilih!'); History.back (); </script>
- response.end ()
- Kalau tidak
- Conn.execute (InsertIntovote (nama pengguna, IP, addTime) Value ('& VoteUserName &', '& checkip &', '& now () &')))
- conn.execute (perbarui [pengguna] setVote = vote+1 whereUserName = '& voteusername &')
- 'Response.write Vote berhasil!
- Response.write <script> alert ('Selamat, suara berhasil!'); Location.href = '& request.serverVariables (http_referer) &' </script>
- response.end ()
- Endif
- endsub
- rs_close ()
- db_close ()
- %>
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.