 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
以下用法和len(),lift(),right()相同。 Function Strlength(Str) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,I,1)) If Asc(Test_Str)>0 Then Strlength=Strlength+1 Else Strlength=Strlength+2 End If Next End Function Function Strleft(Str,L) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,I,1)) Strleft=Strleft&Test_Str If Asc(Test_Str)>0 Then lens=lens+1 Else lens=lens+2 End If If lens>=L Then Exit For Next End Function Function Strright(Str,L) Temp_Str=Len(Str) For i = Temp_Str to 1 step -1 Test_Str=(Mid(Str,I,1)) Strright=Test_Str&Strright If Asc(Test_Str)>0 Then lens=lens+1 Else lens=lens+2 End If If lens>=L Then Exit For Next End Function 返回类别: 教程 上一教程: 注册帐号时密码随机生成的ASP代码 下一教程: 使用SERVER.TRANSFER对URL进行隐藏以及其他 您可以阅读与"LEN(),LIFT(),RIGHT()不能正常识别中文的用户请进"相关的教程: · LEN(),LIFT(),RIGHT()不能正常识别中文的解决方式 · 英文的服务器不支持中文及中文数据库的解决办法 · Relaxlife.net可加密/解密中文/英文的Asp代码 · 《支持中文的无组件文件上传》-- 示例 · 中文的无组件文件上传ASP函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
