去掉顶部频道显示处的网站
修改 SiteWeave
Jan
12
将原来的模板或其它标签中的标签{$ShowAdminLogin}替换为
引用
<script language="javascript" src="/myShowAdmin.asp"></script>
引用
<script language="javascript" src="/myShowAdmin.asp"></script>
myShowAdmin.asp的代码如下：
引用
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
Dim myTrueIP,isLegalIP,adminADDR
isLegalIP=False
adminADDR="<a class=""Bottom"" href=""/Admin/Admin_Index.asp"" target=""_blank"">管理登录</a> | "
myTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If myTrueIP = "" Then myTrueIP = Request.ServerVariables("REMOTE_ADDR")
if myTrueIP="127.0.0.1" OR myTrueIP="127.0.0.2" OR myTrueIP="127.0.0.3" Then isLegalIP=True
if isLegalIP=True Then Response.Write "document.write('" & adminADDR & "');"
%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
Dim myTrueIP,isLegalIP,adminADDR
isLegalIP=False
adminADDR="<a class=""Bottom"" href=""/Admin/Admin_Index.asp"" target=""_blank"">管理登录</a> | "
myTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If myTrueIP = "" Then myTrueIP = Request.ServerVariables("REMOTE_ADDR")
if myTrueIP="127.0.0.1" OR myTrueIP="127.0.0.2" OR myTrueIP="127.0.0.3" Then isLegalIP=True
if isLegalIP=True Then Response.Write "document.write('" & adminADDR & "');"
%>
请根据实际情况做一些修改。（论坛首发地址：http://bbs.powereasy.net/dispbbs.asp?boardID=67&ID=352756&page=1）
