Comment vérifier l'adresse IP? _Programmer 10 000 questions

2020-05-17

sub chkIP (boardid)
dim rsIP
dim ipArr
dim ignoré
dim i
dim ip
dim sql

ip = Request.ServerVariables ("REMOTE_ADDR")
ignored = false
s'il n'est pas vide (boardid) alors
sql = "sélectionnez ignoreip du tableau oùoardid = "& cstr (boardid)
set rsIP = conn.execute (sql)
sinon (rsIP.eof et rsIP.bof) puis
< / SPAN> if instr (cstr (rsIP (" ignoreip ") &" "), chr (13) & chr (10)) puis
iparr = split (rsIP ("ignoreip"), chr (13) & chr (10))
< / SPAN> pour i = 0 à ubound (iparr)
if trim (iparr (i)) <> "" and left (ip, len (trim (iparr (i)))) ) = trim (iparr (i)) puis
ignored = true
exit pour
< SPAN lang = EN-US style = "mso-bidi-font-size: 9.0pt"> end if
next
else
iparr = rsIP (" ignoreip ")
if ip = trim (iparr) then
ignored = true
fin si
end if
< SPAN style = "FONT-FAMILY: Times New Roman; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-size: 9.0pt"> end if
rsIP.close
end if
si ignoré alors
response.write"

www.xd1998.com@2001-2030Partage De Technologie