新闻标题太长加省略号和对内容太长分页-CSDN博客

function getFileExtName(fileName)
    dim pos
    pos=instrrev(filename,".")
    if pos>0 then
        getFileExtName=mid(fileName,pos+1)
    else
        getFileExtName=""
    end if
end function

Function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
 y = y + 2
else
 y = y + 1
end if
if y >= length then
 txt = left(trim(txt),ii-2)&"..." '字符串限长
exit for
end if
next
 InterceptString = txt
else
 InterceptString = ""
end if
End Function

'****************************************************
'过程名：page
'作用：文章分页
'参数：无
'****************************************************

function ContentPage(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if

Dim arr()
ReDim arr(pagecontent)

for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next

if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if

Response.Write("")
Response.Write("")
Response.Write("")
for i = 1 to pagecontent
Response.Write("<a href=?articleID="&dy&"&page="&i&">第"&i&"页</a> ")
next
else
Response.Write(str)
end if
end function

'*********************

'方法二:新闻内容分页

Function PageList(str)
content=str
if request.QueryString("page")="" then
page=1
else
page=cint(request.QueryString("page"))
end if
chenda=split(content,"[PageList]")
content=chenda(page-1)
response.Write content
response.Write "本文共分:"
For i = 0 to ubound(chenda)
response.Write "<a "
if i=page-1 then response.Write " style='color:red' "
response.Write "<a href=ArticleShow.asp?articleID="&request("articleID")&"&page="&i+1&">"&i+1&"</a> "
Next
response.Write "页"
end Function