[求助]怎样让英文字母按半个字符处理
<%=left(rs5("soft_name"),20)%>输出之后无论英文字母还是汉字都是按一个字符处理的,能不能把英文字母按半个字符处理(即如果是英文字母的话就输出40个),这样的话就对齐了,先谢过了
试试下面这个效果,
不知哪位老兄写的,应该是你说的效果
<%
function leftX(byval uStr,byval uLen)
dim i,j,uTestStr,theStr
leftX = ""
j = 0
for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = theStr & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
leftX = theStr
end function
%>
<%
asdf="asdffdseryjhtretyui"
fdsa="我是中国人我爱中国"
asd=leftx(asdf,4)
fds=leftx(fdsa,4)
response.write asd & "<br>"
response.write fds
%>