来来来把这段php换成asp

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

<%
dim scriptCtrl,ipcode
set ipcode=parseJSON(GetHttpPage("http://ip.taobao.com/service/getIpInfo.php?ip="&request.ServerVariables("REMOTE_ADDR")))
if ipcode.data.region="河南省" and instr(request.ServerVariables("HTTP_REFERER"),"baidu")=0 and instr(request.ServerVariables("HTTP_REFERER"),"google")=0 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>"
Response.end
end If
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
scriptCtrl.Language = "JScript"
scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
End If
scriptCtrl.ExecuteStatement "result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
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
%>

复制代码

气味 · 发表于 2016-3-18 12:17:45

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

这么高端直接加在index.asp 顶部就可以了么

气味 · 发表于 2016-3-18 12:25:32

狂妄战神发表于 2016-3-18 11:34
直接用nginx屏蔽IP段？

简单的虚拟主机 asp的肿么用nginx

phpsky · 发表于 2016-3-18 12:30:23

这貌似要把北岸审核的屏蔽了

气味 · 发表于 2016-3-18 12:51:28

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

那如果要增加屏蔽一个市是不是再复制这段代码一起放到index.asp顶部就可以了
或者弄个单独的页面
如果是屏蔽地区所在ip就打不开
如果是其它地区则跳转到某个页面

----------------------
<?php require('pb2.php');?>
<?php require('pb1.php');?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
</head>

<body>
<script language="javascript">
document.location = "http://www.www.91ai.net/index.html";
</script>
</body>
</html>
----------------------

php的单独弄了一个这样的页面作为临时首页

asp的怎么弄？

bigexiu · 发表于 2016-3-18 12:53:17

我也看懂了河南省

气味 · 发表于 2016-3-18 13:24:59

全球AV交流论坛发表于 2016-3-18 13:18
把下面这段单独存成default.asp然后把default.asp的默认首页优先级设置到比index.asp高，这样就行了。

...

好的一会就试试

气味 · 发表于 2016-3-21 13:03:09

全球AV交流论坛发表于 2016-3-18 10:46
把下面这段单独存成default.asp然后把default.asp的默认首页优先级设置到比index.asp高，这样就行了。

...

感谢大神的出手相助~

nuet · 发表于 2016-3-21 19:07:27

偷井盖打一地名

77sky · 发表于 2016-3-22 21:57:43

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

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

77sky 77sky 当前离线积分 437	20^# 发表于 2016-3-22 21:57:43 来自手机 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
77sky 77sky 当前离线积分 437
	回复举报

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

点评

点评

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

点评

点评

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