如何让浏览器标题栏显示每篇文章的标题呢？

王者风范 · 发表于 2010-1-18 03:24:55

以下就是head.asp文件问题应该就在这个文件吧标题栏只显示网站名称和后台定义的网站信息可能是这句吧 <title><%=Pw_Title%>--<%=Pw_WebInfo%></title> 请高手指点谢谢！ <% '缓冲面页 response.Expires = -1 'True开启缓冲 False关闭 Response.Buffer=True Dim time1,time2 time1=timer %>   <HTML> <HEAD> <meta name="keywords" content="<%=Pw_Manager%>,<%=Pw_WebInfo%>,<%=Pw_http%>,www.wyfang.com"> <meta name="description" content="<%=Pw_Manager%>,<%=Pw_Title%>,<%=Pw_Title%>,<%=Pw_WebInfo%>,<%=Pw_http%>,www.wyfang.com"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <script language="JavaScript">var Engine_WenDay_Sys_LoadStart=new Date();</script> <link href="Img/Style.css" rel="stylesheet" type="text/css"> <title><%=Pw_Title%>--<%=Pw_WebInfo%></title> <body leftmargin="0" topmargin="0"> <div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #999999'></div> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="1" bgcolor="#CCCCCC"></td> </tr> </table> <TABLE width=777 border="0" align=center cellPadding=0 cellSpacing=0 bgColor=#ffffff style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid"> <TBODY> <TR> <TD width="775" height=33><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="52%" height="57" bgcolor="#FFFFFF">  <img src="<%=Pw_Logo%>"></td> <td width="43%" valign="bottom" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="bottom" height="21" align="center"> </td> </tr> <tr> <td height="29" valign="middle" align="center"><a href="pay.asp">++</a> | <a href="bbs/">文渊论坛</a> | <a href="Map.asp">站点地图</a> | <a href="Link.asp"></a><a href="User_reg.asp">用户注册</a></td> </tr> </table></td> <td width="5%"><img src="Img/corner.gif" width="40" height="100%"></td> </tr> </table></TD> </TR> <TR> <TD bgColor=#e4e4e4 height=2></TD> </TR> <TR align=middle> <TD height="1" align=middle></TD> </TR> </TBODY> </TABLE> <TABLE height=110 cellSpacing=0 cellPadding=0 width=778 align=center border=0> <TBODY> <TR> <TD height=86 background="<%=Pw_Banner%>"><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="

http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="169"> <param name="movie" value="flash/1.swf"> <param name="quality" value="high"> <param name="wmode" value="transparent"> <embed src="flash/1.swf" width="778" height="169" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed> </object></TD> </TR> </TBODY> </TABLE> <table width="778" height="39" border=0 align="center" cellpadding=0 cellspacing=0 background="Img/BG-8.gif"> <tbody> <tr> <td height="39" align=right background=""> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center"><a href="index.asp">网站首页</a></td> <td align="center"><a href="news.asp">本站新闻</a></td> <% Dim TopSortSql,RsTopSort TopSortSql="select * from Sort where B_id=0 order by s_order" Set RsTopSort=conn.execute (TopSortSql) With RsTopSort if .eof and .bof then Response.write "<td align='center'>没有栏目</td>" else do while not .eof Response.Write("<td align='center'><a href='Sort.asp?SortID="&RsTopSort("ID")&"'>"&RsTopSort("Names")&"</a></td>") .movenext loop end if .close End With Set RsTopSort=Nothing %> <td align="center"><a href="Guestbook.asp">网站留言</a></td> </tr> </table></td> </tr> </tbody> </table>

		自动登录	找回密码
密码			注册