不知道在哪去更改ASP网站的标题栏
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="conn/conn.asp"--><!--#include...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn/conn.asp" -->
<!--#include file="inc/commoncode.asp" -->
<!--#include file="inc/commonfunction.asp" -->
<%
Call CloseSite()
If JY_Sql = True then Call SQLin()
Cid=0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if ishtml=1 then
If datediff("s",Application("JYcms_index_updatetime"),Now())>60*CreateTime then
Call TempIndex()
Application.Lock
Application("JYcms_index_updatetime") = Now()
Application.unLock
response.redirect FormatLink(0,Cid,0,0,0)
Response.End()
Else
'判断首页html文件是否存在,不存在则生成
sMapFileName = Server.MapPath(FormatLink(0,Cid,0,0,0))
If Not FSO.FileExists(sMapFileName) Then
Call TempIndex()
end if
response.redirect FormatLink(0,Cid,0,0,0)
Response.End()
End if
else
Call TempIndex()
End if
Sub TempIndex()
'读取模版内容
html=LoadTemplate(0,0,0)
html=ReplaceLableFlag(html)
html=Replace(html,"{$JY_频道编号}",Cid)
html=Replace(html,"{$JY_本站公告}",Announce())
html=Replace(html,"{$JY_首页浮动QQ}",Float_QQList())
html=Replace(html,"{$JY_右下角浮动信息}",Float_BottomInfo())
If ishtml=1 Then
HtmlFileName=Server.MapPath(FormatLink(0,0,0,0,0))
Fso.CreateTextFile(HtmlFileName).WriteLine(CreateHTMLReplace(html))&"<script src="&InstallDir&"AutoHtml/index.asp?id="&Cid&"></script>"
Else
Response.Write(CreateHTMLReplace(html))
End if
End Sub
Set fso = Nothing
Call CloseConn()
Response.End()
%>
这是INDEX.ASP的代码 生成的静态首页标题老多出几个字 想去掉 但是不知道在哪 数据库里找了也没看见
<title>看看说说,看时事、看博文、分享你我观点。--hjhjghgh!</title>这是生成的静态页面标题栏,那些--hjhjghgh不知道再哪去掉。
魂斗罗第一代 说的页面里面都找了 没有 - - 展开
<!--#include file="conn/conn.asp" -->
<!--#include file="inc/commoncode.asp" -->
<!--#include file="inc/commonfunction.asp" -->
<%
Call CloseSite()
If JY_Sql = True then Call SQLin()
Cid=0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if ishtml=1 then
If datediff("s",Application("JYcms_index_updatetime"),Now())>60*CreateTime then
Call TempIndex()
Application.Lock
Application("JYcms_index_updatetime") = Now()
Application.unLock
response.redirect FormatLink(0,Cid,0,0,0)
Response.End()
Else
'判断首页html文件是否存在,不存在则生成
sMapFileName = Server.MapPath(FormatLink(0,Cid,0,0,0))
If Not FSO.FileExists(sMapFileName) Then
Call TempIndex()
end if
response.redirect FormatLink(0,Cid,0,0,0)
Response.End()
End if
else
Call TempIndex()
End if
Sub TempIndex()
'读取模版内容
html=LoadTemplate(0,0,0)
html=ReplaceLableFlag(html)
html=Replace(html,"{$JY_频道编号}",Cid)
html=Replace(html,"{$JY_本站公告}",Announce())
html=Replace(html,"{$JY_首页浮动QQ}",Float_QQList())
html=Replace(html,"{$JY_右下角浮动信息}",Float_BottomInfo())
If ishtml=1 Then
HtmlFileName=Server.MapPath(FormatLink(0,0,0,0,0))
Fso.CreateTextFile(HtmlFileName).WriteLine(CreateHTMLReplace(html))&"<script src="&InstallDir&"AutoHtml/index.asp?id="&Cid&"></script>"
Else
Response.Write(CreateHTMLReplace(html))
End if
End Sub
Set fso = Nothing
Call CloseConn()
Response.End()
%>
这是INDEX.ASP的代码 生成的静态首页标题老多出几个字 想去掉 但是不知道在哪 数据库里找了也没看见
<title>看看说说,看时事、看博文、分享你我观点。--hjhjghgh!</title>这是生成的静态页面标题栏,那些--hjhjghgh不知道再哪去掉。
魂斗罗第一代 说的页面里面都找了 没有 - - 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询