<%
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
%>
设为主页
收藏本站
相关文章: