欧美性受xxxxxx黑人xyx性爽_国产精品后入内射日本在线观看_91日韩视频在线观看_亚洲一级免费在线观看_成人在线免费高清视频_亚洲色图欧美自拍_国精产品一区一区三区视频_中文字幕第22页_日韩欧美在线免费观看视频_日本xxx免费_91制片厂免费观看_黄色网在线视频

<%

'[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,"<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("密碼錯誤，<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"-->
這是你網頁正常顯示的內容