- <%@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
而寫
寫了就收藏下，省得以後，還是白手寫~~~
