Question

如何设置ASP网站内容页下面的上下篇文章标题的显示字数?

我有一个ASP网站,在每一页的内容页下面,设有:"上一篇文章:文章标题"和下一篇文章:文章标题",但是文章的标题没显示完整,我想请教各位如何可以控制显示的字数.下面是相关的代码:
上一篇文章的:<%=pf_previous_products%>

下一篇文章的:<%=pf_next_products%>

Answer 1

Left 函数截取

'获取对应ID的上下篇文章
Function GetNext(tab,id)
str=""
str=str&"<span>下一篇：</span>"&GetRecord(tab,">"&id)&"<br />"&vbcrlf
str=str&"<span>上一篇：</span>"&GetRecord(tab,"<"&id&" Order By ID Desc")
GetNext=str
End Function

Function GetRecord(tab,sqlstr)
Dim Rsn,strn
Call OpenObj(Rsn,"Select Top 1 Title,FilePath From "&tab&" Where sh=1 And id"&sqlstr,1)
If Not Rsn.Eof Then
strn="<a href='"&Rsn(1)&"' title='"&Rsn(0)&"'>"&Left(Rsn(0),30)&"</a>"
Else
strn="没有了!"
End If
Call CloseObj(Rsn)
GetRecord=strn
End Function

Sub OpenObj(Obj,sql,ty)
Set Obj=Server.CreateObject("ADODB.RECORDSET")
Obj.Open Sql,conn,1,ty
End Sub

Sub CloseObj(Obj)
Obj.close()
Set Obj=Nothing
End Sub