＜html＞ 
＜head＞ 
＜meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"＞ 
＜meta name="GENERATOR" content="Microsoft FrontPage Express 2.0"＞ 
＜title＞firewall.asp＜/title＞ 
＜/head＞ 
＜body background="#800080 "＞ 
＜% 
'使用Request.ServerVariables("REMOTE_ADDR")得到IP地址并保存在变量remoteip中 
remoteip=Request.ServerVariables("REMOTE_ADDR") 
stip=cstr(remoteip) 
取得IP地址第三个段的值并保存到stip中 
for i=1 to 2 
stip=right(stip,len(stip)-instr(1,stip,".")) 
next 
stip=left(stip,instr(1,stip,".")-1) 
'IP地址有效性检验及密码验证，包括两方面的内容：如果IP地址符合则通过验证；
如果IP地址不符合则检验输入的用户名、密码是否正确 
if (left(remoteip,5) ＜＞ "10.61" or stip＜"96" or stip＞"97") then 
username=request.form("t1") 
password=request.form("t2") 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set thisfile = fs.OpenTextFile("dsn.txt") 
db loc=thisfile.readline 
thisfile.close 
cnstr=db_loc&&"uid="&&username&&";"&&"pid="&&password 
on error resume next 
set cn=server.createobject("adodb.connection") 
cn.open cnstr 
if err=3709 then %＞  
＜p＞＜font color="#FF0000"＞对不起，用户：＜%=username%＞没有访问权限，或密码不正确! ＜BR＞＜/font＞＜/p＞ 
＜form method="POST"＞  
＜p align="center"＞
用户名：＜input type="text" name="T1" size="20"＞
口令：＜input type="password" name="T2" size="20"＞
＜input type="submit" value="提交" name="B1"＞＜input type="reset" value="全部重写" name="B2"＞  
＜/p＞ 
＜/form＞  
＜%end if 
cn.close  
set cn=nothing%＞ 
＜%else %＞ 
恭喜您，您已经通过了验证，可以直接使用本站点的资源! 
＜%end if%＞ 
＜/body＞ 
＜/html＞