如何让浏览器标题栏显示每篇文章的标题呢？
以下就是head.asp文件
问题应该就在这个文件吧
标题栏只显示网站名称和后台定义的网站信息
可能是这句吧 <title><%=Pw_Title%>--<%=Pw_WebInfo%></title>
请高手指点
谢谢！
<%
'缓冲面页
response.Expires = -1
'True开启缓冲 False关闭
Response.Buffer=True
Dim time1,time2
time1=timer
%>
<!--#include file="Conn.asp"-->
<!--#include file="Include/Setup.asp" -->
<!--#include file="Include/char.asp" --><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>
<!--#include file="Include/EwSys_Function.asp" --><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="clsid
27CDB6E-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>
