ภาษาไทย
ฉันดูฟังก์ชันการจำกัด IP บางอย่างและพบว่ามันซับซ้อนเกินไป ดังนั้นฉันจึงพยายามเขียนอันหนึ่งซึ่งค่อนข้างง่าย ชาวเน็ตโปรดดูคำแนะนำนี้ ขอบคุณ! ~
กล่องคัดลอกโค้ด <% 'รับที่อยู่ของผู้เยี่ยมชม ip=Request.ServerVariables("REMOTE_ADDR") 'ช่วงที่อยู่ IP ที่อนุญาตคือ 10.0.0.0~10.68.63.255 Allowip1="10.0.0.0" Allowip2="10.68.10.71" response.write checkip ( ip,allowip1,allowip2) ฟังก์ชั่น checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".") Allow1=split(allowip1,".") Allow2=split(allowip2, " ") ถ้า cint(allow1(0))>cint(allow2(0)) แล้ว 'ตัดสินว่าส่วนที่อยู่ IP เป็นไปตามกฎหมายหรือไม่ เขียนว่า "ส่วนที่อยู่ IP ไม่ถูกต้อง!" ฟังก์ชัน exit จะสิ้นสุดหากสำหรับ i=0 ถึง ubound(ipstr ) if cint(allow1(i))<cint(allow2(i)) ดังนั้น if cint(allow1(i))=cint(ipstr(i)) ให้ตรวจสอบ(i)=true checkip=true ออกอย่างอื่น ถ้า cint( ipstr(i))<cint(allow2(i)) ให้ตรวจสอบ(i)=true checkip=true ออกเพื่ออย่างอื่นถ้า cint(ipstr(i))>cint(allow2(i)) จากนั้นตรวจสอบ(i) =false checkip =false ทางออกสำหรับ else check(i)=true checkip=true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) หรือ cint(allow1(i))<cint (ipstr( i)) จากนั้นตรวจสอบ(i)=false checkip=false if i<>ubound(ipstr) จากนั้นออกจาก end if else ตรวจสอบ(i)=true end if end if next if (check(0)=true และ check(1 )=true และ check(2)=true และ check(3)=false) และ (cint(allow2(2))>cint(ipstr(2))) จากนั้น checkip=true end if end function %>
