研究了2小時(shí)怎么控制輸出文章標(biāo)題中的中英文，給大家貼出來(lái) 
函數(shù)在下面，是方法是： 
strvalue("復(fù)請(qǐng)Email通知如果不填寫(xiě)則取注冊(cè)Email",26) 
這里26是指26個(gè)英文字母，也就是13個(gè)漢字 


function strlen(str) 
dim p_len 
p_len=0 
strlen=0 
if trim(str)<>"" then 
p_len=len(trim(str)) 
for xx=1 to p_len 
if asc(mid(str,xx,1))<0 then 
strlen=int(strlen) + 2 
else 
strlen=int(strlen) + 1 
end if 
next 
end if 
end function 

function strvalue(str,lennum) 
dim p_num 
dim i 
if strlen(str)<=lennum then 
strvalue=str 
else 
p_num=0 
x=0 
do while not p_num > lennum-2 
x=x+1 
if asc(mid(str,x,1))<0 then 
p_num=int(p_num) + 2 
else 
p_num=int(p_num) + 1 
end if 
strvalue=left(trim(str),x)&"…" 
loop 
end if 
end function