หากต้องการใช้คุณสมบัติ ServerVariables ของวัตถุคำขอให้ใช้เพื่อรับค่าของตัวแปรสภาพแวดล้อม ไวยากรณ์ที่ใช้คือ: request.serverVariables (ตัวแปร), "ตัวแปร" แสดงถึงชื่อของตัวแปรสภาพแวดล้อมเช่นชื่อโฮสต์เซิร์ฟเวอร์ชื่อซอฟต์แวร์เว็บเซิร์ฟเวอร์ ฯลฯ หาก "ตัวแปร" คือ "remote_addr" มันแสดงถึงที่อยู่ IP ของผู้เข้าชมและผ่านการกรองของที่อยู่ IP
โปรแกรมต้นทางมีดังนี้: (ชื่อไฟล์: demo.asp)
<html>
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb_2312-80">>
<metaname = "ตัวสร้าง" เนื้อหา = "MicrosoftFrontPageExpress2.0">>
<style>
-
.as {line-height: 15px; Font-Size: 9pt}
A: Hover {Color: RGB (0,51,240); การตกแต่งข้อความ: ขีดเส้นใต้}
.P9 {FONT-FAMILY: "宋体"; FONT-SIZE: 9PT; LINE-HEIGHT: 15PT}
.P12 {FONT-FAMILY: "宋体"; FONT-SIZE: 12PT; LINE-HEIGHT: 18PT}
A: ลิงก์ {การกำหนดข้อความ: ไม่มี;}
A: เยี่ยมชม {การตกแต่งข้อความ: ไม่มี;}
A: Hover {Text-Decoration: Underline; Font-Size: 125%; Color: Blue}
-
</style>
<title> การสาธิตฟังก์ชั่นไฟร์วอลล์ ASP หน้า </title>
</head>
<bodybackground = "back.jpg">
-
′ใช้ request.ServerVariables ("remote_addr") เพื่อรับที่อยู่ IP และบันทึกไว้ในตัวแปร RIP
RIP = request.ServerVariables ("remote_addr")
Strip = CSTR (RIP)
′ได้รับค่าของส่วนที่สามของที่อยู่ IP และบันทึกเป็นเปลื้องผ้า
fori = 1to2
Strip = Right (Strip, Len (Strip) -instr (1, Strip, "."))
ต่อไป
strip = ซ้าย (str, instr (1, str, ".")-1)
การตรวจสอบที่อยู่ IP ที่อยู่ IP และการตรวจสอบรหัสผ่านรวมถึงสองด้าน:
'หากที่อยู่ IP สอดคล้องกันให้ผ่านการตรวจสอบ หากที่อยู่ IP ไม่ตรงกันตรวจสอบว่ารหัสผ่านที่ป้อนนั้นถูกต้องหรือไม่ (รหัสผ่านนี่คือ "ASP")
ถ้า (ซ้าย (RIP, 5) <> "127.1" orstrip <"1" orstrip> "50") Andrequest ("passwd") <> "asp"
-
<p> <fontColor = "#ff0000"> ขออภัย IP ของคุณคือ <%= RIP%> และ IPS ที่สามารถเข้าถึงได้ในหน้านี้อยู่ระหว่าง 127.1.1.* และ 127.1.50* หากคุณเป็นผู้ใช้เครือข่ายภายในของหน่วยนี้โปรดตรวจสอบให้แน่ใจว่าเบราว์เซอร์ของคุณไม่ได้ใช้พร็อกซี! <br> </font> </p>