ASP网站页面标题要动态调用文章的标题，请问如何实现？

我想实现动态控制页面的标题，但不知如何实现，请指教！代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!DOCTYPEhtmlPUB... 我想实现动态控制页面的标题，但不知如何实现，请指教！代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>河南XXX公司</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #000000;
margin-top: 0px;
}
.STYLE6 {
color: #FF6600;
font-weight: bold;
}
.STYLE7 {color: #FF6600}
-->
</style></head>
<!--
#include file="htop.asp"
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" onmouseup="document.selection.empty()">
-->
<table width="950" height="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/conbg.gif"><div style="padding:30px;">
<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td height="30" class="work2 STYLE5"><span class="STYLE6">龙语资讯</span> <span class="STYLE7">News</span></td>
<td width="100" height="30" class="work2"><a href="hnews.asp" class="STYLE7"><font style="font-size:13px">←返回列表</font></a></td>
</tr>
</table>
<%
Set Rs=Conn.execute("Select * From SJ_longyu where ID="&int(Request.QueryString("ID")))
If Not (Rs.Bof and Rs.Eof) Then
Title =Rs("Title")
Body=Rs("Body")
End IF
Set Rs=Nothing
%>
<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td width="673" height="35" align="center" style="font-size:14px; color:#FF6600; font-weight:bold"><%=Title %></td>
</tr>
<tr>
<td valign="top">
<p><%=Body %></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<!--#include file="hend.asp"-->
</body>
</html>
你们说的方法试过了，不行，提示如下错误，怎么办？
Active Server Pages 错误 'ASP 0140'

Page 命令无序

/new2.asp，行 9

@ 命令必须是 Active Server Page 中的第一个命令。 展开
 我来答
5个回答
#热议# 发烧为什么不能用酒精擦身体来退烧？
百度网友66a8d48e5
2009-11-20 · TA获得超过7687个赞
知道大有可为答主
回答量：3002
采纳率：12%
帮助的人：3890万
我也去答题访问个人页
展开全部
一楼,动态标题当然来源于表或是文件中的,这个不用操心!
二楼经验不错,这样写是正确的,同时还有以下几种写法:
response.write"<title>"&rs("title")&"</title>"
等等.但二楼必竞是给出了真正的思路的,不错!赞成!
三楼只将二楼的说法会诸了行动!写出了代码,但代码写时注意一下,否则你永远进不了高程的,你没有看到如果取出失败时会发生什么吗?如果没有取出数据,则没有看到你的title的定义,这时会因为取出失败而导致翻译停止,出错一个错误页面.这不是允许程序员犯的错误!如果是初学犯这样的错误还行,但如果你是一个程序员,可能因此会丢掉你的工作!
四楼根本就是一个初学者,不知道你改三楼的代码有什么用,但至少你犯了一个更大的错误的,以后要注意再注意.这个错误就是:
如果你在开始时已经set rs=nothing时表示已经关掉了数据,在关掉的数据中又如何用rs()去获得数据呢?也就是说在文本流中如果出现了set rs = nothing以后再不可能在以后的文档中用rs取值,除非你再建一个数据才能得值的!这个我想教师应该教过你的!

三楼的代码用吧,不会错的!只要在if判断时再加一个else分支再新赋一下值,防止找不到变量而出错就行了!

再说一种思路,可以在title标签之后打开数据库的.
办法是用document.title进行一个客户端修改,这个对于你的问题不是最好的选择的,只做为一种思路.也就是说取出数据后写这样一句就可以了:
response.write"<script type=""text/javascript"">document.title="""&rs("title")&""";</script>"
然后关掉数据库就行了!这样如果没有取出值时还可以不出错的!

这些都是办法,但后一种的缺点是开始时显示的标题并非是动态标题的内容,直到其JS执行时才是,这样中间发生了一次改变,如果网速慢等原因会看到这一变化,所以其不是最好选择.只是提一下思路,因为正确的方法已经被二楼说过了!
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
dengsheng150
2009-11-20 · TA获得超过997个赞
知道小有建树答主
回答量：785
采纳率：0%
帮助的人：512万
我也去答题访问个人页
展开全部
<%
Set Rs=Conn.execute("Select * From SJ_longyu where ID="&int(Request.QueryString("ID")))
If Not (Rs.Bof and Rs.Eof) Then
Title =Rs("Title")
Body=Rs("Body")
End IF
Set Rs=Nothing
%>
把这段提到最开始，然后在title里调用title
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set Rs=Conn.execute("Select * From SJ_longyu where ID="&int(Request.QueryString("ID")))
If Not (Rs.Bof and Rs.Eof) Then
Title =Rs("Title")
Body=Rs("Body")
End IF
Set Rs=Nothing
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Title%></title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #000000;
margin-top: 0px;
}
.STYLE6 {
color: #FF6600;
font-weight: bold;
}
.STYLE7 {color: #FF6600}
-->
</style></head>
<!--
#include file="htop.asp"
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" onmouseup="document.selection.empty()">
-->
<table width="950" height="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/conbg.gif"><div style="padding:30px;">
<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td height="30" class="work2 STYLE5"><span class="STYLE6">龙语资讯</span> <span class="STYLE7">News</span></td>
<td width="100" height="30" class="work2"><a href="hnews.asp" class="STYLE7"><font style="font-size:13px">←返回列表</font></a></td>
</tr>
</table>
<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td width="673" height="35" align="center" style="font-size:14px; color:#FF6600; font-weight:bold"><%=Title %></td>
</tr>
<tr>
<td valign="top">
<p><%=Body %></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<!--#include file="hend.asp"-->
</body>
</html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
百度网友7f42183
2009-11-20 · TA获得超过628个赞
知道小有建树答主
回答量：1359
采纳率：100%
帮助的人：362万
我也去答题访问个人页
展开全部
代码乱乱的，全改了
<!--#include file="htop.asp"-->
<%
Set Rs=Conn.execute("Select * From SJ_longyu where ID="&int(Request.QueryString("ID")))
If Not (Rs.Bof and Rs.Eof) Then
Title =Rs("Title")
Body=Rs("Body")
End IF
Set Rs=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=rs("title")%></title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #000000;
margin-top: 0px;
}
.STYLE6 {
color: #FF6600;
font-weight: bold;
}
.STYLE7 {color: #FF6600}
-->
</style></head>

<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" onmouseup="document.selection.empty()">

<table width="950" height="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/conbg.gif"><div style="padding:30px;">
<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td height="30" class="work2 STYLE5"><span class="STYLE6">龙语资讯</span> <span class="STYLE7">News</span></td>
<td width="100" height="30" class="work2"><a href="hnews.asp" class="STYLE7"><font style="font-size:13px">←返回列表</font></a></td>
</tr>
</table>

<table width="870" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px">
<tr>
<td width="673" height="35" align="center" style="font-size:14px; color:#FF6600; font-weight:bold"><%=Title %></td>
</tr>
<tr>
<td valign="top">
<p><%=Body %></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<!--#include file="hend.asp"-->
</body>
</html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
dear156163
2009-11-20 · TA获得超过203个赞
知道小有建树答主
回答量：108
采纳率：0%
帮助的人：154万
我也去答题访问个人页
展开全部
<title>河南XXX公司</title>
<title><%=Rs("Title")%></title>

在title标签前就打开数据表
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
程序员进修学院
2009-11-20 · 超过38用户采纳过TA的回答
知道小有建树答主
回答量：148
采纳率：0%
帮助的人：91.9万
我也去答题访问个人页
展开全部
最简的办法在表中加字段
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
收起 更多回答（3）
推荐律师服务： 若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

为你推荐：

下载百度知道APP，抢鲜体验
使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

京ICP证030173号-1   京网文【2023】1034-029号     ©2024Baidu  使用百度前必读 | 知道协议 | 企业推广

辅 助

模 式