ASP中字符串函數的應用
發表時間:2024-06-10 來源:明輝站整理相關軟件相關文章人氣:
[摘要]1. 字符串函數:Len(str):取得字符串的長度Instr(str1,str2):從字符串str1,尋找另一個字符串str2第一個出現的位置Left(str,n):從字符串str左起取n個字符Right(str,n):從字符串str右起取n個字符Mid(str1,n1,n2):從字符串第n1個...
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
%>
此檢測函數并不充分,并沒有檢測".",如有興趣請補充。