<%
function GetString(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
GetString=left(str,i)&"..."
exit for
else
GetString=str&" "
end if
next
end function
%>
佛山最便利的找工作、招聘网站平台-工作阿哈哈网*佛山频道
[ 租房 ]
[ 饮食 ] 
[ 住店 ]
[ 购物 ] 
[ 交通 ]
