28,391
社区成员
发帖
与我相关
我的任务
分享网页的标题无法修改？
我帮一个人改网页，改前台时前台网页标题可以改，改后台时就不行了，我每次改好后，修改后的标题会显示很短很短的时间，然后自动转为默认的标题去了，我是直接在网页代码改了：像这样把<title>语文学科网后台管理</title>改为<title>英语学科网后台管理</title>，但每次显示都是语文，文件源代码是英语。请问，要怎么才能改动它？
...全文
请发表友善的回复…
发表回复
huasheng724 2011-04-19
- 打赏
- 举报
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim StarTime,Style_Copy
Dim AdminName__
startime=timer()
AdminName__=replace(session("AdminName__"),"'","")
if AdminName__="" then
%>
<script language='javascript'>top.location='Login.asp';</script>
<%
' response.redirect "login.asp"
end if
%>
<%
sub htmlend
%>
<p align=center><a href="../Index.asp"></a></p>
<%
end sub
%>
<%
Dim StarTime,Style_Copy
Dim AdminName__
startime=timer()
AdminName__=replace(session("AdminName__"),"'","")
if AdminName__="" then
%>
<script language='javascript'>top.location='Login.asp';</script>
<%
' response.redirect "login.asp"
end if
%>
<%
sub htmlend
%>
<p align=center><a href="../Index.asp"></a></p>
<%
end sub
%>
乌镇程序员 2011-04-19
- 打赏
- 举报
bsconfig.asp中也检查一下。
huasheng724 2011-04-19
- 打赏
- 举报
没有喔。
我把代码贴出来：
<!--#include file="../conn.asp"-->
<!--#include file="bsconfig.asp"-->
<head>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<title>英语学科网后台管理</title>
<style type="text/css">
.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
.a2{BACKGROUND-COLOR: A4B6D7;}
.STYLE1 {
font-size: 14pt;
font-weight: bold;
}
</style>
</head>
<%
select case Request("menu")
case ""
index
case "top"
top2
end select
%>
<% sub top2 %>
<BODY leftMargin=0 topMargin=0 rightMargin=0>
<center>
<table style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr>
<td align=center width="100%" height=30 style="BACKGROUND-IMAGE: url(images/titlebg.gif); COLOR: #0000FF; font: 10.5pt"><span class="STYLE1">
英语学科网后台管理</span></td>
</tr>
</table>
</center>
</body>
<% end sub %>
<% sub index %>
<body style="MARGIN: 0px" scroll=no onResize=javascript:parent.carnoc.location.reload()>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3)
{
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}
else
{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}
}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tr>
<td align="middle" noWrap vAlign="center" id="frmTitle">
<iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="yes" src="Menu.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 190px; Z-INDEX: 1">
</iframe>
</td>
<td bgcolor="A4B6D7" style="WIDTH: 9pt">
<table border="0" cellPadding="0" cellSpacing="0" height="100%">
<tr>
<td style="HEIGHT: 100%" onClick="switchSysBar()">
<font style="FONT-SIZE: 9pt; CURSOR: default; COLOR: #ffffff">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
屏幕切换
</font>
</td>
</tr>
</table>
</td>
<td style="WIDTH: 100%">
<iframe frameborder="0" id="main" name="top" scrolling="no" src="?menu=top" style="HEIGHT: 5%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
<iframe frameborder="0" id="main" name="main" scrolling="yes" src="admininfo.asp" style="HEIGHT: 95%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
</td>
</tr>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
</body>
<%
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
我把代码贴出来：
<!--#include file="../conn.asp"-->
<!--#include file="bsconfig.asp"-->
<head>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<title>英语学科网后台管理</title>
<style type="text/css">
.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
.a2{BACKGROUND-COLOR: A4B6D7;}
.STYLE1 {
font-size: 14pt;
font-weight: bold;
}
</style>
</head>
<%
select case Request("menu")
case ""
index
case "top"
top2
end select
%>
<% sub top2 %>
<BODY leftMargin=0 topMargin=0 rightMargin=0>
<center>
<table style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr>
<td align=center width="100%" height=30 style="BACKGROUND-IMAGE: url(images/titlebg.gif); COLOR: #0000FF; font: 10.5pt"><span class="STYLE1">
英语学科网后台管理</span></td>
</tr>
</table>
</center>
</body>
<% end sub %>
<% sub index %>
<body style="MARGIN: 0px" scroll=no onResize=javascript:parent.carnoc.location.reload()>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3)
{
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}
else
{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}
}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tr>
<td align="middle" noWrap vAlign="center" id="frmTitle">
<iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="yes" src="Menu.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 190px; Z-INDEX: 1">
</iframe>
</td>
<td bgcolor="A4B6D7" style="WIDTH: 9pt">
<table border="0" cellPadding="0" cellSpacing="0" height="100%">
<tr>
<td style="HEIGHT: 100%" onClick="switchSysBar()">
<font style="FONT-SIZE: 9pt; CURSOR: default; COLOR: #ffffff">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
屏幕切换
</font>
</td>
</tr>
</table>
</td>
<td style="WIDTH: 100%">
<iframe frameborder="0" id="main" name="top" scrolling="no" src="?menu=top" style="HEIGHT: 5%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
<iframe frameborder="0" id="main" name="main" scrolling="yes" src="admininfo.asp" style="HEIGHT: 95%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
</td>
</tr>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
</body>
<%
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
乌镇程序员 2011-04-19
- 打赏
- 举报
检查一下代码中有没有动态修改title的js代码，比如：document.getElementsByTagName('title')[0] = '...';之类的。
