- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <title>测试LEFTSTR</title>
- </head>
- <body>
- <%
- response.Write LeftStr("如果I'am如果I'am如果I'am如果I'am如果I'am如果I'am如果I'am",12)&"</br>"
- response.Write LeftStr("1234567890123456789012345678901234567890123456789012345678901234567890",12)&"</br>"
- response.Write LeftStr("如果我是上帝,必要杀尽天下天使,洗尽其传承自远古的不净!",12)&"</br>"
- response.Write LeftStr("1234567890",12)&"</br>"
- response.Write LeftStr("必要杀尽天!",12)&"</br>"
- Function LeftStr(str,leni)
- Dim L,sL,Acode
- l=0 '当前所在位置
- sL=len(str) '最高位置,即长度
- for i=1 to leni*2 '将汉字看成2,所以显示长度最大为leni*2
- l=L+1 '位置+1
- Acode=ASC(Mid(str,L,1)) '取ASC码
- if Acode<0 or Acode>256 then II=I+1 '非ASCII字符则认为是汉字
- if l>=sl then exit for '如果长度将超过字串长度即退出
- next
- LeftStr =left(str,l) '得到所需的字符
- End Function
- %>
- </body>
- </html>
因解决ywqxtx
http://topic.csdn.net/u/20080927/10/90701d05-13ad-4757-98a9-6904500739b5.html
而写
写了就收藏下,省得以后,还是白手写~~~