<%
Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
’ 如果是中文
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
response.Write(CheckStringLength("fsdfs地在在dfsdf"))
%>
SQL语句left join/right join/inner join 的用法比较 (2007-9-5 18:2:24)
ASP中退出FOR循环或DO WHILE循环的代码2则 (2007-9-5 17:55:33)
[原]多行多列产品展示+分页 (2007-9-3 14:3:28)
ASP常见错误代码集 (2007-9-2 16:35:0)
javascript错误代码解释大全 (2007-9-2 16:26:27)
asp好用的自定义函数集 (2007-9-2 16:16:18)
Request.ServerVariables获取环境变量整理 (2007-9-2 16:4:14)
JavaScript[对象.属性]集锦 (2007-9-2 15:51:52)
收集常用正则表达式 (2007-9-2 15:47:35)
asp事务处理 (2007-9-2 15:37:39)
1.这个程序一般◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。