TextView的字数行数限制显示

展开阅读全文

如何限制显示字数的个数

04-09

如何限制显示的字数的个数,字段为title。rnrn '封面文章rn Set rs=server.CreateObject("adodb.recordset")rn Rs.open "select top 10 title,writer,bookid,Updates,Property,bid,sid from Hl_Books where hidden=0 and Property='公众版' order by bookid desc",conn,1,1rn If rs.eof then rn Hltemp="暂无小说更新"rn Else rn Hltemp=" "&Rsclass("bclass")&""&Rsclass("sclass")&" "rn Do while not rs.eofrn Hltemp=Hltemp &" "rn If rs("sid")="" or rs("sid")="0" thenrn Set Rsclass=conn.execute("select bid,bclass from Hl_Bclass where bid="&rs("bid"))rn If rsclass.eof thenrn Classurl="无分类"rn Elsern Classurl=""rn End ifrn Elsern Set Rsclass=conn.execute("select sid,sclass from Hl_Sclass where sid="&rs("sid"))rn If rsclass.eof thenrn Classurl="无分类"rn Elsern Classurl=""rn End ifrn End ifrn Rsclass.closern Set rsclass=nothingrn Hltemp=Hltemp &" ["&Classurl&"]"rn Hltemp=Hltemp &" "rn [color=#FF0000]Hltemp=Hltemp &" "&rs("title")&""[/color][b][/b][b][/b]rn Hltemp=Hltemp &" "rn Hltemp=Hltemp &" "rn Set rs1=server.CreateObject("adodb.recordset")rn Rs1.open "select top 1 z.title,z.zid,z.pid,j.title as J_title from Hl_bookz z,Hl_bookj j where z.vip=0 and z.bookid="&rs("bookid") & " and z.jid=j.jid and j.title='封面文章' order by z.updates,j.title desc" ,conn,1,1rn If Rs1.eof thenrn Hltemp=Hltemp &"本期无封面文章"rn rn Elseif Rs1("J_title") = "封面文章" then rn if readway="1" thenrn booktitle=""&rs1("title")&""rn elsern booktitle=""&rs1("title")&""rn end ifrn Hltemp=Hltemp & booktitlern elsern Hltemp=Hltemp &"本期无封面文章" rn End ifrn Hltemp=Hltemp &" "rn Hltemp=Hltemp &" "rn Set rs2= Server.CreateObject("adodb.recordset")rn Rs2.open "select wid from Hl_writer where petname='"&rs("writer")&"'" ,conn,1,1rn If rs2.eof thenrn Elsern End ifrn Hltemp=Hltemp &" "rn Hltemp=Hltemp &" "rn Rs.movenextrn Looprn Rs1.closern Set rs1=nothingrn Rs2.closern Set rs2=nothingrn Hltemp=Hltemp &" "rn end ifrn Rs.closern Set rs=nothing rn ThisText ="document.write("""&replace(Hltemp,vbCrLf,"")&""");"rn FileName = "bookgx"rn FsoHtml rn 论坛

没有更多推荐了,返回首页