正则表明式轻便的反省输入email是不是合法程序,ASP实用函数库源码

function chkEmail(email)
on error resume next
dim i,l,pos1,pos2
chkEmail=true
if isnull(email) then chkEmail=false:exit function 
pos1= instr(email,”@”)
pos2=instrRev(email,”.”)
if not(pos1>0) or not (pos2>0) or pos1>pos2 then 
chkEmail=false
end if
if err.number<>0 then err.clear
end function

ASP实用函数库源码

) onerrorresumenext
dimi,l,pos1,pos2 chkEmail=true
ifisnull(email)thenchkEmail=false:exitfunction pos1=instr(email,”@”)
pos2=instrRev(email,”.”) ifnot(pos10)or…

<%
‘推断文件名是或不是合法
Function isFilename(aFilename)
Dim sErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array(“/”,”\”,”:”,”*”,”?”,””””,”<“,”>”,”|”)
iNameLength=Len(aFilename)
If iNameLength<1 Or iNameLength=null Then
  isFilename=FALSE
Else
  For i=0 To 8
   If instr(aFilename,sErrorStr(i)) Then
    isFilename=FALSE    
   End If
  Next
End If
End Function

‘去掉字符串头尾的连接的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function

‘去掉字符串开首的连日的回车和空格
function ltrimVBcrlf(str)
dim pos,isBlankChar
pos=1
isBlankChar=true
while isBlankChar
  if mid(str,pos,1)=” ” then
   pos=pos+1
  elseif mid(str,pos,2)=VBcrlf then
   pos=pos+2
  else
   isBlankChar=false
  end if
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
end function

‘去掉字符串末尾的接连的回车和空格
function rtrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar=true
while isBlankChar and pos>=2
  if mid(str,pos,1)=” ” then
   pos=pos-1
  elseif mid(str,pos-1,2)=VBcrlf then
   pos=pos-2
  else
   isBlankChar=false
  end if
wend
rtrimVBcrlf=rtrim(left(str,pos))
end function

‘剖断Email是还是不是行得通,重返1意味正确
Function isEmail(aEmail)
Dim iLocat,v,iLength,i,checkletter
If instr(aEmail,”@”) = 0 Or instr(aEmail,”.”) = 0 Then
  isEmail=0
  EXIT FUNCTION
End If
iLocat=instr(aEmail,”@”)
If instr(iLocat,aEmail,”.”)=0 Or instr(iLocat+1,aEmail,”@”)>0 Then
  isEmail=0
  EXIT FUNCTION
End If
If left(aEmail,1)=”.” Or right(aEmail,1)=”.” Or left(aEmail,1)=”@” Or
right(aEmail,1)=”@” Then
  isEmail=0
  EXIT FUNCTION
End If
v=”1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@”
iLength=len(aEmail)
For i=1 To iLength
  checkletter=mid(aEmail,i,1)
  If instr(v,checkletter)=0 Then
   isEmail=0
   EXIT FUNCTION
  End If
Next
isEmail=1
End Function

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图