Implementasi ASP membatasi metode mengakses IP hanya sekali

Artikel ini terutama memperkenalkan metode membatasi akses IP ke implementasi ASP tunggal.

Membatasi IP untuk mengakses hanya sekali, sekarang saya akan membagikan kode ASP dengan Anda:

1. <%
2. '///////////////////////////////////////////////// THR//////////////////////////////
3. '////
4. '// Fungsi: Satu alamat IP hanya memungkinkan akses ke halaman ini sekali //
5. '// kutipan: <!-#includeFile = check_ip.asp-> //
6. '////
7. '///////////////////////////////////////////////// THR//////////////////////////////
9. 'Response.charset = 936' Atur output encoding ke Cina yang disederhanakan
10. 'Response.buffer = false' tutup buffer
12. DIMFSO, TS, IPLIST, CFS
14. 'Atur fungsi cookie
15. FunctionsetCookie ()
16. Response.cookies (isBrow) = alis
17. Response.cookies (isBrow) .Expires = Tanggal+365
18. Fungsi endfungsi
20. 'Catat fungsi alamat IP
21. FunctionWriteIP (nama file, ipaddress)
22. SetFSO = server.CreateObject (scripting.filesystemObject)
23. Setts = fso.opentextFile (server.mappath (fileName), 8, true)
24. ts.writeLineipaddress
25. ts.close
26. Setts = tidak ada
27. Setfso = tidak ada
28. Fungsi endfungsi
30. 'Baca fungsi alamat IP
31. Functionreeadiplist (nama file)
32. SetFSO = server.CreateObject (scripting.filesystemObject)
33. Ifnotfso.fileexists (server.mappath (fileName)) lalu
34. CreateFile (iPlist.txt)
35. Fungsi keluar
36. Endif
38. Setts = fso.opentextFile (server.mappath (fileName))
39. Iplist = ts.readall
40. ts.close
41. Setts = tidak ada
42. Setfso = tidak ada
43. REATIPLIST = IPLIST
44. Fungsi endfungsi
46. 'Buat fungsi file
47. FunctionCreateFile (nama file)
48. SetFSO = server.CreateObject (scripting.filesystemObject)
49. Setcfs = fso.createTextFile (server.mappath (fileName))
50. Cfs.close
51. Setcfs = tidak ada
52. Setfso = tidak ada
53. Fungsi endfungsi
55. 'Tutup fungsi jendela IE saat ini (CATATAN: Lulus di bawah IE6, browser lain belum mengujinya)
56. Functionclosewindow ()
57. 'Response.write <script> window.location =' javaScript: window.opener = null; window.close (); '</script>
58. Response.redirectthttp: //www.baidu.com
59. Fungsi endfungsi
61. Ip = request.serverVariable (remote_addr) 'Dapatkan alamat IP pemirsa
63. Cookie = request.cookies (isBrow) 'Dapatkan cookie saat ini
64. 'Response.WriteCookie
66. Ifrequest.serverVariable (http_x_forwarded_for) <> lalu
67. Response.write Situs ini tidak mengizinkan akses proxy
68. Response.end ()
69. Kalau tidak
70. Ifcookie = browthen
71. CloseWindow ()
72. Kalau tidak
73. Ifinstr (readiplist (iPlist.txt), IP) <> 0then
74. CloseWindow ()
75. Kalau tidak
76. WritePiplist.txt, ip
77. Endif
78. SetCookie ()
79. Endif
80. Endif
81. %>

Di atas adalah kode implementasi ASP yang dibagikan kepada Anda, saya harap ini akan membantu pembelajaran Anda.