ASP中字符串函數(shù)的應(yīng)用

1. 字符串函數(shù):
Len(str):取得字符串的長(zhǎng)度
Instr(str1,str2):從字符串str1,尋找另一個(gè)字符串str2第一個(gè)出現(xiàn)的位置
Left(str,n):從字符串str左起取n個(gè)字符
Right(str,n):從字符串str右起取n個(gè)字符
Mid(str1,n1,n2):從字符串第n1個(gè)字符開(kāi)始，取出n2個(gè)字符。

2.字符串函數(shù)應(yīng)用:
1)通過(guò)字符函數(shù)設(shè)計(jì)出一個(gè)字符串長(zhǎng)度控制函數(shù)：
防止超過(guò)行寬字符串換行：

<%
 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)通過(guò)字符串函數(shù)檢測(cè)輸出是否為電子郵件地址：

<%
 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
%>

此檢測(cè)函數(shù)并不充分，并沒(méi)有檢測(cè)"."，如有興趣請(qǐng)補(bǔ)充。