Question

ASP页面标题，显示成新闻标题那样，想让标题中出现这页是第几页,请问我的标题改如何设置

<%
'Response.Write("<table align=""center"" width=""95%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=Hxcmsbk

style=""border-collapse: collapse"">")
dim i
Dim CurPage,Url_Add
Url_Add="?action=art&"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If

sql="select * from news where cat_id="&"20"&" order by istop desc,news_id DESC"
' Url_Add=Url_Add&"cat_id="&cat_id&"&name="&request.QueryString("name")&"&"
'elseif request("keyword")<>"" then
' keyword=trim(replace(request("keyword"),"'",""))
' sea_type=trim(replace(request("sea_type"),"'",""))
' sql_tmp=1
' sql="select * from news where "&sea_type&" like '%"&keyword&"%' order by istop desc,news_id DESC"
'Url_Add=Url_Add&"sea_type="&sea_type&"&keyword="&keyword&"&"

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write(" No Support！</a>")
Else
Dim pic_Nums,MultiPages,j
dim adflperpage2
adflperpage2=10
rs.PageSize=adflperpage2
rs.AbsolutePage=CurPage
pic_Nums=rs.RecordCount
MultiPages="<div align=center><br><br>All "&pic_Nums&" Message "&MultiPage

(pic_Nums,adflperpage2,CurPage,Url_Add)&"</div>"

%>
<title><%=MultiPages("CurPage")%></title>
我想让标题中出现这页是第几页，我自己比对过，发现上面一行CurPage出现的数字就是页数，请问我的标题改如何设置

Answer 1

<title><%=MultiPages("CurPage")&“ ”&CurPage%></title>

追问

不对啊， 放上去没标题了。 “”我都换成英文的，也不行啊

追答

MultiPages 这个函数在哪里定义的。是否包含进来了。