ASP中字符串函数的应用

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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值