ASP 支持中文的len(),left(),right()的函数代码

在处理ASP中的文本时，系统自带的字符串长度检测函数有时可能无法满足我们的需求。例如，在排版过程中，如果字符串中既包含汉字又包含英文字母，那么传统的字符串长度计算方式就会出现问题。幸运的是，我们可以使用其他方法来替代ASP自带的函数。这里提供了三个替代函数：Strlength、Strleft和Strright。

在使用这些函数时需要注意一个问题。如果在循环中调用这些函数，由于变量“i”通常用于循环计数，执行这些函数时可能会导致变量值发生变化。如果在其他循环中也使用了变量“i”，则可能会产生不可预知的结果。为了避免这种情况，建议在调用这些函数时使用其他变量名。这些函数的使用方式与ASP自带的len()、left()和right()函数类似。

下面是具体的程序代码：

Function Strlength(Str)

Dim Temp_Str, Test_Str, lens

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 '因为一个汉字占两个字节，这里假设非ASCII字符为汉字

End If

Next

End Function

Function Strleft(Str, L)

Dim Temp_Str, Test_Str, lens, StrleftResult

Temp_Str = Len(Str)

For I = 1 To Temp_Str

Test_Str = Mid(Str, I, 1)

StrleftResult = StrleftResult & Test_Str '构建新的字符串结果集

If Asc(Test_Str) > 0 Then lens = lens + 1 Else lens = lens + 2 End If '判断字符是否为ASCII字符并计数字节长度（假设非ASCII字符为汉字）

If lens >= L Then Exit For '达到指定长度则退出循环构建结果集字符串后返回结果集NextEnd Function Function Strright(Str, L) Dim Temp_Str, Test_Str, lens Strright = "" 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 + Else lens = lens + Else的条件句不完整，假设为非ASCII字符（如汉字）增加两个字节长度） If lens >= L Then Exit For Next End Function 以上函数可以根据实际需要调整和优化以满足特定需求需要注意的是在调用循环中的变量时要确保避免冲突以免影响程序的正常运行在ASP编程中合理使用这些函数可以提高文本处理的效率和准确性为网页开发带来更好的用户体验总体来说这些函数为ASP开发者提供了一种有效的工具来处理包含多种字符类型的字符串使得文本处理更加灵活和方便。