来来来把这段php换成asp

气味 · 发表于 2016-3-18 10:46:29

--------------------------------低调分割线---------------------------------------------

<?php

/**
*
* 省-河南
*/
header("Content-type: text/html; charset=utf-8");
$verification = '河南省';//需要屏蔽省份的IP
$ip = $_SERVER['REMOTE_ADDR'];//获取访客IP
$antecedents = $_SERVER['HTTP_REFERER'];//访客来路地址
$result = file_get_contents("http://ip.taobao.com/service/getIpInfo.php?ip=".$ip);//IP数据库来自淘宝。
$address = json_decode($result,true);
//判断访客是否属于河南省，是否来自百度，是否来自谷歌
if($address['data']['region'] == $verification && strpos($antecedents, 'baidu') === false && strpos($antecedents, 'google') === false){
sleep(86400);//设置一个999999秒。看他们有没有这么好耐心。
Header("HTTP/1.1 204 No Content");
exit;
}

?>

----------------------------------低调分割线----------------------------

全球AV交流论坛 · 发表于 2016-3-18 10:46:30

本帖最后由全球AV交流论坛于 2016-3-18 20:17 编辑

把下面这段单独存成default.asp然后把default.asp的默认首页优先级设置到比index.asp高，这样就行了。

<%
dim ipcode
ipcode=GetHttpPage("http://ip.taobao.com/service/getIpInfo.php?ip="&request.ServerVariables("REMOTE_ADDR"))
if (InStr(ipcode,"河南省")>0 Or InStr(ipcode,"瓷器国")>0 Or InStr(ipcode,"MJJ市")>0) and instr(request.ServerVariables("HTTP_REFERER"),"baidu")=0 and instr(request.ServerVariables("HTTP_REFERER"),"google")=0 And Not IsWebSearch() then
Response.Status="403 Forbidden"
Response.write "<html><head><title>Error</title></head><body><head><title>Directory Listing Denied</title></head>"&Chr(13)&Chr(10)
Response.write "<body><h1>Directory Listing Denied</h1>This Virtual Directory does not allow contents to be listed.</body></body></html>"
Else
response.redirect "index.asp"
end If
Function IsWebSearch()
Dim Botlist,i
BotList = "Google,Baiduspider,360Spider,Sogou web spider"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
IsWebSearch = Botlist(i)
Exit For
End If
Next
End Function
Function GetHttpPage(HttpUrl)
Dim Http
Set Http=server.createobject("WinHttp.WinHttpRequest.5.1")'Msxml2.ServerXMLHTTP
Http.Option(6)=0
Http.SetTimeouts 65000, 65000, 65000, 65000
Http.open "GET",HttpUrl,False
Http.setRequestHeader "ACCEPT-LANGUAGE","zh-CN"
Http.setRequestHeader "USER-AGENT",request.ServerVariables("HTTP_USER_AGENT")
Http.Send()
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
End Function
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>

复制代码

art · 发表于 2016-3-18 10:51:19

提示: 作者被禁止或删除内容自动屏蔽

气味 · 发表于 2016-3-18 11:04:17

……人呢

SwordMicro · 发表于 2016-3-18 11:06:35

这种写法，只要拿一个河南IP不断访问，PHP多少资源都能用光。

气味 · 发表于 2016-3-18 11:11:26

SwordMicro 发表于 2016-3-18 11:06
这种写法，只要拿一个河南IP不断访问，PHP多少资源都能用光。

额大侠给个屏蔽地区IP的代码 php和asp 各一怎样写才高效？

狂妄战神 · 发表于 2016-3-18 11:20:07

dns解析把河南的改成127.0.0.1不就行了？

气味 · 发表于 2016-3-18 11:21:18

狂妄战神发表于 2016-3-18 11:20
dns解析把河南的改成127.0.0.1不就行了？

这只是一个示例
有可能要屏蔽某个市的
dns暂时木有找到能屏蔽到市这个级别的

狂妄战神 · 发表于 2016-3-18 11:34:09

气味发表于 2016-3-18 11:11
额大侠给个屏蔽地区IP的代码 php和asp 各一怎样写才高效？

直接用nginx屏蔽IP段？

月痕 · 发表于 2016-3-18 11:40:27

偷井盖打一地名

		自动登录	找回密码
密码			注册

art art 当前离线积分 5903	3^# 发表于 2016-3-18 10:51:19 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
art art 当前离线积分 5903
	回复举报

[Windows VPS] 来来来把这段php换成asp

最佳答案

[Windows VPS] 来来来 把这段php换成asp

最佳答案

[Windows VPS] 来来来把这段php换成asp