ホームページ >ウェブフロントエンド >jsチュートリアル >行迂回は自動的にコードをインテリジェントにジャンプし、最速のミラー Web サイト (js)_javascript スキルを自動的に選択します
行迂回は自動的にコードをインテリジェントにジャンプし、最速のミラー Web サイト (js)_javascript スキルを自動的に選択します
- WBOYオリジナル
- 2016-05-16 17:59:561443ブラウズ
データベース コードなしの JS スクリプト
コードをコピー コードは次のとおりです:
<スクリプト言語=Javascript>
i=1
var autourl=new Array()
autourl[1]="http://www.abc.com/default.asp" //Netcom アクセス アドレスに変更
autourl [2]="http://abc.com/default.asp" //通信アクセスアドレスに変更
function auto(url)
{
if(i)
{
i=0;
top.location=url
}}
function run()
{
for(var i=1;
i
}
run( )
JS スクリプト データベース コード
コードをコピー コードは次のとおりです:
'Copyright<%
On Error Resume next
dim conn,dbpath,UserIP
set conn=server.createobject( "adodb.connection" )
DBPath = Server.MapPath("IP.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
If Err then
err. Clear
Set Conn = Nothing
Response.Write "データベースが更新中です。後でもう一度お試しください!"' 注意: これらの単語は英語に翻訳する必要があります。
Response.End
End If
myip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If myip = "" then myip = Request.ServerVariables("REMOTE_ADDR")
tempip=myip
myip = Split(myip,".")
if Ubound(myip)=3 then
For i=0 To Ubound(myip)
myip(i)=left(myip(i), 3)
if isnumeric(myip(i)) then
myip(i)=cint(myip(i))
else
myip(i)=0
end if
次へ
myipnumeber=myip(0)*256*256*256 myip(1)*256*256 myip(2)*256 myip(3)
sql="select addr from ip where ip1<="&myipnumeber& " and ip2>="&myipnumeber
set rs1=conn.execute(sql)
if not rs1.eof then
response.redirect "http://www.***.com" 'It's Netcom存在する場合は、China Netcom の URL にジャンプして、自分の Web サイトに変更します。
Else
response.redirect "http://www.****.com" 'Netcom でない場合は、ジャンプしてください
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
end if%>
例:
On Error Resume next
dim conn,dbpath,UserIP
set conn=server.createobject( "adodb.connection" )
DBPath = Server.MapPath("IP.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
If Err then
err. Clear
Set Conn = Nothing
Response.Write "データベースが更新中です。後でもう一度お試しください!"' 注意: これらの単語は英語に翻訳する必要があります。
Response.End
End If
myip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If myip = "" then myip = Request.ServerVariables("REMOTE_ADDR")
tempip=myip
myip = Split(myip,".")
if Ubound(myip)=3 then
For i=0 To Ubound(myip)
myip(i)=left(myip(i), 3)
if isnumeric(myip(i)) then
myip(i)=cint(myip(i))
else
myip(i)=0
end if
次へ
myipnumeber=myip(0)*256*256*256 myip(1)*256*256 myip(2)*256 myip(3)
sql="select addr from ip where ip1<="&myipnumeber& " and ip2>="&myipnumeber
set rs1=conn.execute(sql)
if not rs1.eof then
response.redirect "http://www.***.com" 'It's Netcom存在する場合は、China Netcom の URL にジャンプして、自分の Web サイトに変更します。
Else
response.redirect "http://www.****.com" 'Netcom でない場合は、ジャンプしてください
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
end if%>
例:
コードをコピー コードは次のとおりです:
<表 width="564" height="40%" border="0" align="center" >
訪問者の皆様
最速のルートを自動的に選択しますTitle
スピード テスト センター。 ..
最速のルートを自動的に選択しますTitle
スピード テスト センター。 ..
例:
コードをコピー
コードは次のとおりです:
'------------------------------------- -------- -------------------------------------- -------- ----------
Function GetUserIPInfo '現在のユーザーの回線情報に従って
Set XMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
'XMLHTTP.Open "Get"," http://www.dns7.cn/ip/?ip="&GetUserIP(),false
XMLHTTP.Open "Get","http://www.dns7.cn /ip/?ip=60.12.1.2 ",false
XMLHTTP.Send
strResult= bytes2BSTR(XMLHTTP.ResponseBody)
GetUserIPInfo=strResult
関数終了
'------ ---------- -------------------------------------- ------- --------------------------------
関数 RemoteGetIPInfo(IP) 'ユーザーの IP に基づく回線情報
Set XMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "Get","http://www.dns7.cn/ip/?ip=" &IP,false
XMLHTTP. 送信
strResult= bytes2BSTR(XMLHTTP.ResponseBody)
RemoteGetIPInfo=strResult
関数終了
'--------------- ----------- -------------------------------------- ----------- ------------------------
関数 GetUserIP() 'ユーザーのIPアドレスを取得する
Dim userip,userip2
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
If userip = "" then
GetUserIP=userip2
Else
GetUserIP=userip
End If
関数終了
'---------------------------- ----------------- --------------------------------- ------ -----
関数 bytes2BSTR(vIn) '内部関数呼び出し
strReturn = ""
For i = 1 To LenB (vIn)
ThisCharCode = AscB(MidB(vIn,i,1 ))
If ThisCharCode < &H80 then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB( MidB(vIn,i 1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 CInt(NextCharCode))
i = i 1
End If
Next
bytes2BSTR = strReturn
関数終了
'------ --------------------------------- ----------------- --------------------------------- ----
%>
<%
'Response.write GetUserIP()
%>
<%
応答。 write RemoteGetIPInfo("202.108.9.16")
% >
Response.write GetUserIPInfo
%> 原理はどのサーバーであっても非常に簡単です。ユーザーは、デフォルトのページでこのコードを使用する限り、アクセス速度が最も速いサーバーにジャンプします。これにより、サーバーのオフロードが実現され、トラフィックが大きい場合や複数のサーバーを使用する場合に適しています。
テストしてみましたが、とても使いやすいです
コード 1:
ジャンプしたいページに次のように書きます:
コードをコピーします