Question

ASP程序 如何调用文章标题为页面标题？

<%

end if
end if
rstype.movenext
if rstype.eof then exit for
next

end sub

'新闻标题列表 格式：call newstitle(n,lang,dalei,xiaolei,wenzhangurl,jieshou,fuhao) 参数：n：每页多少条。lang:最大长度。dalei,xiaolei:大类、小类，wenzhangurl:显示具体新闻的页面地址。jieshou:是否接受URL类别参数，1为接受。fuhao:列表项目符号
sub newstitle(n,lang,dalei,xiaolei,wenzhangurl,jieshou,fuhao)
if jieshou = 1 then
if request_x("types") = "" then
xiaolei = xiaolei
else
xiaolei = trim(request_x("types"))
end if
else
xiaolei = xiaolei
end if

set rs_news=server.createobject("adodb.recordset")
if dalei = "" then
if xiaolei = "" then
sqltext4="select * from Conews where shenhe = 'yes' Order BY top desc, zuixin desc,time desc"
else
sqltext4="select * from Conews where type = '" & xiaolei & "' and shenhe = 'yes' Order BY top desc, zuixin desc,time desc"
end if
else
if xiaolei = "" then
sqltext4="select * from Conews where dalei = '"&dalei&"' and shenhe = 'yes' Order BY top desc, zuixin desc,time desc"
else
sqltext4="select * from Conews where dalei = '"&dalei&"' and type = '" & xiaolei & "' and shenhe = 'yes' Order BY top desc, zuixin desc,time desc"
end if
end if
rs_news.open sqltext4,conn,1,1
page = request_x("page")
if page <> "" then page = clng(page)

if request_x("page") = "" then page = 1
if rs_news.bof and rs_news.eof then
else
rs_news.pagesize = n
rs_news.absolutepage = page
end if
%>
请问怎么调用？

Answer 1

以上好象不是单篇文章
是文章例表显示

文章例表有n多标题,并不适合做网页标题用
只有单篇文章的显示才适合做网页标题用

Answer 2

列表页面调用文章标题 没有啥意义