ASP中字符串函数的应用

. 字符串函数:
Len(str):取得字符串的长度
Instr(str,str):从字符串str,寻找另一个字符串str第一个出现的位置
Left(str,n):从字符串str左起取n个字符
Right(str,n):从字符串str右起取n个字符
Mid(str,n,n):从字符串第n个字符开始，取出n个字符。

.字符串函数应用:
)通过字符函数设计出一个字符串长度控制函数：
防止超过行宽字符串换行：

<%
 Function strleft(string,leng)
   Dim str
   Dim i,j,k
   j = Len(string)
   k = 0
   For i = To j
     str = Mid(string,i,)
     If Asc(str) > 0 Then
       k = k +
     Else
       k = k +
     End If
     If k > leng Then
       strLeft = Left(string,i) & "..."
       Exit For
     Else
       strLeft = string
     End If
   Next
  End Function
%>

)通过字符串函数检测输出是否为电子邮件地址：

<%
 Function EMAIL(string)
   Dim str
   Dim i,j,k,l
   j = Len(string)
   k = 0
   for i = to j
     str=Mid(string,i,)
  if str = "@" then
  k = k +
  l = i
  end if
   next
   str = Mid(string,l+,)
   if (k=) And ((str>="a") And (str<="z")) or ((str>="A") And (str<="Z")) then
   EMAIL = string
   else
   EMAIL = "miss!"
   end if
 End Function
%>

此检测函数并不充分，并没有检测"."，如有兴趣请补充。