解决一个关于西安二手网程序的地区ip限制问题 收缩此栏目
-
中标稿件：会员koorise的1832584号稿 件[2008-12-05 13:03:51] 投票时时彩
中标模式单人中标模式，一人独享赏金。
赏金申明本站已经收到客户的汇款,确定此任务总金额的80%可以支付 给被客户选中的会员。
版权声明稿件如果被客户选中，在完成赏金支付后，该作品的全部知识产权自动转移给客户；如果没有被选中，可自行处理。
当前任务已有：1417人关注 5人报名 5个稿件 1篇交流 备选稿件(0)个 橱窗方式浏览
稿件编号：1832584号 参加猪八戒礼品游戏之捉迷藏,免费礼品等你拿!
- koorise
- 等 级：猪二戒
- 信用值：
- 能力值：
发布者已浏览查看所有交稿 时间:2008/04/13 11:41:26 评论:1条票数:1
在afa.asp文件中添加如下代码。
'//////////////////by Koorise ###IP filter//////////////////
dim connIP,connstrIP,dbIP
dbip="/datacnmai/ip.mdb"
Set connIP = Server.CreateObject("ADODB.Connection")
connstrIP="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbip)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
connIP.Open connstrIP
Set RsConfig = conn.execute("Select dixz,diqi from config")
If rsConfig(1) = 1 Then
Dim arrCountry
arrCountry = Split(rsConfig(0),"|")
Set rsConfig=Nothing
Dim IP,arrIp,IPcount,Address
IP = Request.ServerVariables("REMOTE_ADDR")
arrIP = Split(IP,".")
IPCount = arrIp(0)*256*256*256 + arrIP(1)*256*256 +arrIP(2)*256 + arrIP(3)
Set rsIP = server.createobject("adodb.recordset")
sqlIP="Select Country from cnmai_ip where (startid<"& ipCOunt &") and (endid > "& ipcount &") "
rsIP.open sqlIP,connIP,1,1
If Not(rsIP.eof And rsIP.bof) Then
Address = rsIP(0)
For i=0 To UBound(arrCountry)-1
If InStr(1,Address,"北京") >0 Then
Else
If InStr(1,Address,arrCountry(i))>0 Then
Else
response.write ("<center>对不起,您不是辽阳、北京地区用户,您的IP被禁止了!<br><br>有什么疑问直接与本站联系 021-64797578,谢谢合作!</center>")
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
response.end
End If
End If
Next
End If
End If
'///////////////////////////////////////////////////////////
'//////////////////by Koorise ###IP filter//////////////////
dim connIP,connstrIP,dbIP
dbip="/datacnmai/ip.mdb"
Set connIP = Server.CreateObject("ADODB.Connection")
connstrIP="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbip)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
connIP.Open connstrIP
Set RsConfig = conn.execute("Select dixz,diqi from config")
If rsConfig(1) = 1 Then
Dim arrCountry
arrCountry = Split(rsConfig(0),"|")
Set rsConfig=Nothing
Dim IP,arrIp,IPcount,Address
IP = Request.ServerVariables("REMOTE_ADDR")
arrIP = Split(IP,".")
IPCount = arrIp(0)*256*256*256 + arrIP(1)*256*256 +arrIP(2)*256 + arrIP(3)
Set rsIP = server.createobject("adodb.recordset")
sqlIP="Select Country from cnmai_ip where (startid<"& ipCOunt &") and (endid > "& ipcount &") "
rsIP.open sqlIP,connIP,1,1
If Not(rsIP.eof And rsIP.bof) Then
Address = rsIP(0)
For i=0 To UBound(arrCountry)-1
If InStr(1,Address,"北京") >0 Then
Else
If InStr(1,Address,arrCountry(i))>0 Then
Else
response.write ("<center>对不起,您不是辽阳、北京地区用户,您的IP被禁止了!<br><br>有什么疑问直接与本站联系 021-64797578,谢谢合作!</center>")
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
response.end
End If
End If
Next
End If
End If
'///////////////////////////////////////////////////////////
客户点评
- 人不错，交个朋友也高兴！ (kilo点评于2008-04-13 13:50:14)
稿件编号：1831951号 参加猪八戒礼品游戏之捉迷藏,免费礼品等你拿!
- metyou2004
- 等 级：猪五戒
- 信用值：
- 能力值：
下载附件
稿件编号：1832623号 参加猪八戒礼品游戏之捉迷藏,免费礼品等你拿!
- mojay
- 等 级：猪一戒
- 信用值：
- 能力值：
稿件编号：1831954号
- metyou2004
- 等 级：猪五戒
- 信用值：
- 能力值：
