在网上看到的两段代码，先贴在这里，在以后的开发中可能要用到，哈哈。
1、限制某段IP地址
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,’.’)-1)
sip=mid(sip,instr(sip,’.’)+1)
str2=left(sip,instr(sip,’.’)-1)
sip=mid(sip,instr(sip,’.’)+1)
str3=left(sip,instr(sip,’.’)-1)
str4=mid(sip,instr(sip,’.’)+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
userIPnum = IP2Num(Request.ServerVariables(‘REMOTE_ADDR’))
if userIPnum > IP2Num(‘192.168.0.0’) and userIPnum < IP2Num(‘192.168.0.255’) then
response.write (‘<center>您的IP被禁止</center>’)
response.end
end if
2、给数据库建立防下载表（二进制表，数据库后缀必须为.asp）
<%
Dim DB,RS,SQL
DB = ‘DB.asp’ “这里改成您的数据库，一定要是asp后缀
Set Conn = Server.CreateObject(‘Adodb.Connection’)
Conn.Open ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’&Server.MapPath(db)
Conn.Execute(‘Create Table NotDownload(NotDown OLEObject)’)
Set RS = Server.CreateObject(‘ADODB.RecordSet’)
SQL = ‘Select * FROM NotDownload’
RS.Open SQL,Conn,1,3
RS.Addnew
RS(‘NotDown’).appendchunk(chrB(Asc(‘<‘)) & chrB(Asc(‘%’)))
RS.Update
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Write ‘数据库防下载处理完成，请确认您的Access数据库已经改为ASP后缀’
%>