<%
'[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"-->
這是你網頁正常顯示的內容