繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > len(),lift(),right()不能正常识别中文的解决方法
- ASP
- asp查询xml的代码 不刷新页面查询的方法
- ASP 快速执行动态网页
- asp实现本周的一周时间列表的代码
- asp get和post数据接收过滤
- 为google量身定做的sitemap生成代码asp版
- 适合所有网站的rss和xml聚合功能asp代码
- ASP MSSQL存储过程的实现小例
- 动网论坛的asp 数据库连接代码
- ASP+MSSQL2000 数据库被批量注入后的解决方法
- asp 去掉html中的table正则代码函数
- asp 过滤非法字符函数
- asp检测是否为中文字符函数
- ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案
- asp HTTP 500错误 常见问题分析
- asp 关键词高亮显示(不区分大小写)
- 一段ASP的HTTP_REFERER判断代码
- asp datediff 时间相减
- asp下去除超链接的函数
- asp连接mssql2005的代码
- asp access数据库并生成XML文件范例
ASP 中的 len(),lift(),right()不能正常识别中文的解决方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 56 ::
收藏到网摘: n/a
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
评论 (0) All
