亚洲中文久久精品无码1_亚洲中文字幕久久无码_中文字幕精品亚洲无线码一区_国产亚洲欧美日韩亚洲中文色

<%

'[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所在地區(qū)
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,"<span>")
 StartStr = StartStr + 6
 EndStr = Instr(html,"</span>")
 html = mid(html,StartStr,EndStr-StartStr)
 
 getIPAddress = html
 if err then err.clear:html = ""
 set xmlhttp = nothing
End Function

%>

<%
 if Request.ServerVariables("REQUEST_METHOD")="POST" then
  if trim(request("pass"))="blueidea" then
   session("canRead")="OK"
   response.Redirect("index.asp")
  else
   response.Write("密碼錯(cuò)誤，<a href='login.asp'>返回重試</a>！")
   response.End()
  end if
 end if
%>
<form action="" method="post" name="frm">
 PassWord:<input type="text" type="text" name="pass" /><br />
 <input type="submit" value="Submit It!" />
</form>

<!--#include file="chk.asp"-->
這是你網(wǎng)頁正常顯示的內(nèi)容