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&q

上一页  [1] [2] [3] 下一页

在google里搜索更多用ASP+SQL Server为网页建一道防火墙

	Web www.51ec.org

上一篇信息学院： 实现ASP文件在线发邮件

下一篇信息学院： 用ASP文件实现CPU的使用率始终保持100％