라인 전환은 자동으로 코드를 지능적으로 점프하고 가장 빠른 미러 웹 사이트(js)_javascript 기술을 자동으로 선택합니다.
- WBOY원래의
- 2016-05-16 17:59:561387검색
데이터베이스 코드가 없는 JS 스크립트
코드 복사 코드는 다음과 같습니다.
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="ip1<="&myipnumer&에서 IP 주소를 선택하세요. " 및 ip2>="&myipnumer
set rs1=conn.execute(sql)
rs1.eof가 아닌 경우
response.redirect "http://www.***.com" 'Netcom입니다. 그렇다면 China Netcom의 URL로 점프하여 자신의 웹사이트로 수정하세요
Else
response.redirect "http://www.****.com" 'Netcom이 아니면 점프 URL에 직접 수정하면 더 이상 말도 안되는
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
end if%>
예:
코드 복사 코드는 다음과 같습니다.
제목
氚╇ 성명： 본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요. |