行迂回は自動的にコードをインテリジェントにジャンプし、最速のミラー Web サイト (js)_javascript スキルを自動的に選択します-jsチュートリアル-php.cn

データベースコードなしの 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;
idocument.write("")
}
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%> 

 
 例: 