UC知道asp程序怎么在title中调用数据库中的值?
来源：百度知道 编辑：UC知道 时间：2024/05/27 08:34:24
由于字数限制,部分源码是这样的:
</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
</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
title是很早就显示了的，代码一定要在它前面，<title><%=ubb(rs("name"))%></title>才会有效。
或者用DOM来改变title的值。
给你个很简单的办法：）
在你的代码中间，读出数据后，加上以下代码就可以了。
<script>
document.title="<%=ubb(rs("name"))%>";
</script>
<title><%=ubb(rs("name"))%></title>