select top 10 c.Colname ,a.ArticleID,'Subject'=case when len(b.Subject)>12
then substring(b.Subject,1,12)+'...' else b.Subject end ,b.Author,b.Abstract,
b.FilePath,b.Dtime,b.Dots from ArticleColumn a, Article b ,WebColumn c where
a.ArticleID=b.ArticleID and a.Colid=5 and c.Colid=a.Colid order by b.Dots DESC
Public Function Myleft(ByVal str As String, ByVal int As Integer)
If Len(str) <= int Then
Return str
Else
str = Left((str), int) + "......"
Return str
End If
End Function