Question

asp程序怎么在title中调用数据库中的值?

由于字数限制,部分源码是这样的:

</head>
<card title="查看普通帖">
<p>
<!--#include file="yksb.asp"-->
<!--#include file="xxts.asp"-->
<%
Dim d01(12)
d01(0)="顶礼，论坛有你更精彩！"
d01(1)="路过，顶一下！"
d01(2)="楼主，我好崇拜你哦！"
d01(3)="见一次顶你一次！"
d01(4)="高！实在是高！"
d01(5)="我好崇拜你哦！"
d01(6)="你是我心目高手！"
d01(7)="好帖！顶你上天！"
d01(8)="你真的太厉害了！"
Randomize
I=Int(Rnd()*9)
adgg=d01(i)

dim id,page
tid=usb(request.QueryString("tid"))
if tid="" then tid="0"
page=request.QueryString("page")
if page="" or page<1 then page=1
ppage=request.QueryString("ppage")
if ppage="" or ppage<1 then ppage=1
set mtrs=Server.CreateObject("ADODB.Recordset")
mtrsql="select mid,tid from mtjl where CStr(mid)=" & myid & " and CStr(tid)="&tid
mtrs.open mtrsql,conn,1,2
if mtrs.recordcount=0 then
mmid="0"
else
mmid="1"
end if
mtrs.close
set mtrs=nothing
cw=request.QueryString("cw")
if cw="1" then
response.write("错误：您没有这个权利！<br/>")
end if
if cw="2" then
response.write("错误：该帖子已经在本版了！<br/>")
end if
if cw="3" then
response.write("错误：您已经为本帖献过花了！不要太痴迷嘛！<br/>")
end if
if cw="4" then
response.write("错误：您已经砸了一个臭便便了！有什么深仇大恨么！<br/>")
end if
if cw="5" then
response.write("错误：钱很多吗？反复购买？<br/>")
end if
if cw="6" then
response.write("没钱还想看帖？哼。没门。。<br/>")
end if
if cw="7" then
response.write("喂，喂。捣乱呀？你已经回复过啦？<br/>")
end if
if cw="10" then
response.write("您的回复速度太快啦，做下来喝杯咖啡吧！<br/>")
end if
sql="update lttz set rc=rc+1 Where CStr(id)='" & tid & "'"
conn.Execute(sql)
dim rs,tsstr
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from lttz where id=" & tid
rs.open rsstr,conn,1,2
if rs.recordcount=0 then
response.write("没有这个帖子呀！<br/><a href='lt_list.asp?cnscu="&cnscu&"&ltid="<id&"'>回到论坛</a><br/><br/></p></card></wml>")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
ltid=rs("ltid")
dim pageWordNum,StartWord,Content,Length,PageAll,i
pageWordNum=ssbb
StartWord = 1
Content=rs("txt")
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")
if isnull(i) or i="" then i=0
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)

if rs("st")="0" then
if PageAll>1 then
response.write("<a href='viewqw.asp?tid=" & tid & "&cnscu=" & cnscu & "&ltid=" & ltid & "&ltid=" & ltid & "&id=" & id & "'>[查看全文]</a><br/>")
end if%>
主题：<%=ubb(rs("name"))%><br/>
作者：<a href='gr_zl.asp?id=<%=ubb(rs("fid"))%>&cnscu=<%=cnscu%>'><%=ubb(rs("fname"))%></a>(ID:<%=ubb(rs("fid"))%>)<br/>
<%=ubb(rs("tm"))%><br/>

我想让主题的名字<%=ubb(rs("name"))%>在title中显示,我试过直接加<%<%=ubb(rs("name"))%>在title中,但程序出错,请求高手帮助```解决再加分!

Answer 1

title是很早就显示了的，代码一定要在它前面，<title><%=ubb(rs("name"))%></title>才会有效。

或者用DOM来改变title的值。

给你个很简单的办法：）

在你的代码中间，读出数据后，加上以下代码就可以了。

<script>
document.title="<%=ubb(rs("name"))%>";
</script>

Answer 2

<title><%=ubb(rs("name"))%></title>