分享:UTF-8 模式下截取中英文混排,高手看看有什么问题没有

[hebhd]

<%@language=vbscript codepage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
function leftstr(str,lenstr)
dim lenreal,i,leni
lenreal=0
i=0
leni=0
do while leni<lenstr*2 and i<len(str)
i=i+1
if ascw(mid(str,i,1))<255 then
leni=leni+1
else
leni=leni+2
end if
loop
if lenstr*2<=leni then
if leni mod 2 =0 then
leftstr=left(str,i)
else
leftstr=left(str,i-1)
end if
else
leftstr=str
end if

end function
for i=1 to 20
response.write Cstr(i)&":"&leftstr("看ㅓㅏ2121来按时地方",i)&"<br>"
next
response.end
%>

[ronakitty]

charset=gb2312不是也能读英文吗？

[everywhen]

你有什么问题？读取中英文混排是不需要转换编码的，只要将文件保存为UFT-8编码并且将文件解码方式设为UTF-8就行了。
就是加上
<%@language=vbscript codepage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">