IDC资讯中心
asp中字符串函数的应用
——————————————–
作者：悟者
来源：程序设计联盟
http://www.pgsun.com
email:liuyong8833@sohu.com
欢迎前来学习交流！
——————————————–
1. 字符串函数:
len(str):取得字符串的长度
instr(str1,str2):从字符串str1,寻找另一个字符串str2第一个出现的位置
left(str,n):从字符串str左起取n个字符
right(str,n):从字符串str右起取n个字符
mid(str1,n1,n2):从字符串第n1个字符开始，取出n2个字符。
2.字符串函数应用:
1)通过字符函数设计出一个字符串长度控制函数：
防止超过行宽字符串换行：
<%
function strleft(string,leng)
dim str1
dim i,j,k
j = len(string)
k = 0
for i = 1 to j
str1 = mid(string,i,1)
if asc(str1) > 0 then
k = k + 1
else
k = k + 2
end if
if k > leng then
strleft = left(string,i) & "…"
exit for
else
strleft = string
end if
next
end function
%>
2)通过字符串函数检测输出是否为电子邮件地址：
<%
function email(string)
dim str1
dim i,j,k,l
j = len(string)
k = 0
for i = 1 to j
str1=mid(string,i,1)
if str1 = "@" then
k = k + 1
l = i
end if
next
str2 = mid(string,l+1,1)
if (k=1) and ((str2>="a") and (str2<="z")) or ((str2>="a") and (str2<="z")) then
email = string
else
email = "miss!"
end if
end function
%>
此检测函数并不充分，并没有检测"."，如有兴趣请补充。
程序设计联盟
http://www.pgsun.com
