ASP中字符串函数的应用

• --------------------------------------------
  作者：悟者
  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.hackhome.com）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• ASP中字符串函数的应用 相关文章：
• ASP中字符串函数的应用 相关软件

上一篇:可嵌入到网页的实用查询代码

下一篇:xmlHTTP技术资料

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐