% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%> <% function gotTopic(str,strlen) dim l,t,c, i l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gotTopic=left(str,i)&"..." exit for else gotTopic=str&" " end if next end function %>
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
TEL:0771-5791493 FAX:0771-5791493
手机:15878176895
广西自动化网 网址:http://www.gxzdh.com |