这是other/article/topic.asp里我找到的代码，红色的是我按要求加上的

r sql = 0 to num
                if getdata(2,sql) = 1 then getdata(1,sql) = killhtmllabel(getdata(1,sql))
               
                dim fulltitle
                fulltitle = getdata(1,sql)
                fulltitle = replace(getdata(1,sql),"""","'")               
                if len(getdata(1,sql)) > strlen/2 then
                        if strlength(getdata(1,sql)) > strlen then
                                getdata(1,sql) = lefttrue(getdata(1,sql),strlen - 3) & "..."

请先看一下此帖http://www.leadbbs.com/a/a2.asp?b=200&id=1542847如仍有问题再来问。