ASP实用函数库

<% 
’判断文件名是否合法 
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 
’测试用:显示服务器信息 
Sub showServer 
 Dim name 
 Response.write "<Table border=1 bordercolor=lightblue CELLSPACING=0>" 
 for each name in request.servervariables 
  Response.write "<tr>" 
  Response.write "<td>"&name&"</td>" 
  Response.write "<td>"&request.servervariables(name)&"<br>