在外貿網站,為了禁止同行抄襲，所以防止中國ip訪問訪問,訪問的時候有密碼提示,這樣代碼碼和大家分享下

index.asp

<!--#include file="chk.asp"-->
這是你網頁正常顯示的內容

chk.asp

<%

'[session("canRead") = ""  or "OK" ] to judge it!

if Instr(getIPAddress(),"中國")>0 and session("canRead")="" then
 response.Redirect("login.asp")
end if

Function leleToStr(str)
 Dim stream
 Set stream=Server.CreateObject("ADODB.Stream")
 With stream
  .Type=1
  .Mode=3
  .Open
  .Write str
  .Position = 0
  .Type = 2
  .Charset = "gb2312"
  leleToStr = .ReadText
  .Close
 End With
 Set stream=Nothing
End Function

'獲取IP所在地區
Function getIPAddress()
 on error resume next
 dim xmlhttp,url
 url = " set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
 xmlhttp.open "get",url,false
 xmlhttp.send
 
 '開始截取字符      
 dim StartStr,EndStr,html
 html = leleToStr(xmlhttp.responseBody)
 StartStr = Instr(html,"所在地為：")      
 EndStr = Instr(html,"如果該IP")      
 html = mid(html,StartStr,EndStr-StartStr)
 
 '再次獲取
 StartStr = Instr(html,"")
 StartStr = StartStr + 6
 EndStr = Instr(html,"")
 html = mid(html,StartStr,EndStr-StartStr)
 
 getIPAddress = html
 if err then err.clear:html = ""
 set xmlhttp = nothing
End Function

%>

login.asp

 <%
 if Request.ServerVariables("REQUEST_METHOD")="POST" then
  if trim(request("pass"))="blueidea" then
   session("canRead")="OK"
   response.Redirect("index.asp")
  else
   response.Write("密碼錯誤，返回重試！")
   response.End()
  end if
 end if
%>

程序打包下載

 /UpFile/201211/2012110479480577.rar

調用的純真在線數據庫！