f("MainUrl")>0) { window.top.midFrame.document.getElementById("ImgArrow").src="admin_img/admin_showleft.gif"; } }
隐藏左侧导航栏
Innnerhtml 子窗口改变父窗口 <%
strJS="" &; vbcrlf response.write strJS %>
文本框去边框 style="background:transparent;border:0px;border-bottom:1px solid #000"
屏蔽 跳转
<%'获取页面函数的定义 wang="ip/"'这里franklin87.gicp.net要改成你服务器的域名 '***********************************************
getIPinfo=gethttppage(wang) response.Write(getIPinfo) dim checkfrom if instr(getIPinfo,"北京")<>0 %> <% else %> <% end if '*********************************************** function gethttppage(url) Set xmlHTTP1 = server.CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "POST", url, False xmlHTTP1.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" xmlHTTP1.send ("id=1022") While xmlHTTP1.ReadyState <> 4 DoEvents Wend gethttppage=bytes2BSTR_GB2312(
xmlHTTP1.responsebody) Set xmlHTTP1 = Nothing end function ' 设置为北京网站 or instr(getIPinfo,"江苏")<>0 then '是北京的进入下面网址
'*********************************************** Function bytes2BSTR_GB2312(vIn) strReturn = "" For I = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn, I, 1)) If ThisCharCode < &;H80 Then strReturn = strReturn &; Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn, I + 1, 1)) strReturn = strReturn &; Chr(CLng(ThisCharCode) * &;H100 + CInt(NextCharCode)) I = I + 1 End If Next bytes2BSTR_GB2312 = strReturn End Function %>
<%'if Request.ServerVariables("LOCAL_ADDR")<>"112.124.142.141" then:response.Redirect("/"):end if Function getIP() If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function '*********************************************** ip=getIP() Set xmlHTTP1 = server.CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "POST", "ipseeker/index.php", False xmlHTTP1.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" xmlHTTP1.send ("search_ip=" &; ip &; "&;job=search") While xmlHTTP1.ReadyState <> 4 DoEvents
Wend getIPinfo=bytes2BSTR_GB2312(xmlHTTP1.responsebody) Set xmlHTTP1 = Nothing response.Write(getIPinfo) if instr(getIPinfo,"北京")<>0 or instr(getIPinfo,"江苏")<>0 then '是北京的进入下面网址
%> <% else %> <% end if '*********************************************** Function bytes2BSTR_GB2312(vIn) strReturn = "" For I = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn, I,
-
相关文章
-
最新文件