ASP编程常用代码精选集合(十二)

《ASP编程常用代码精选集合(十二)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1:asp检查组件是否已经安装<%'函数名：IsObjInstalled'作 用：检查组件是否已经安装'参 数：strClassString----组件名'返回值：True ----已经安装'       False----没有安装functionIsObjInstalled(strClassString)   onerrorresumenext   IsObjInstalled=False   err=0   dimxTestObj   setxTestObj=Server.createobject(strClassSt

2、ring)   if0=errthenIsObjInstalled=True   setxTestObj=nothing   err=0endfunction%>   2:asp检查Email地址合法性''函数名：BPCheckEMail'作用：检查Email地址合法性'参数：email----要检查的Email地址'返回值：True----Email地址合法False----Email地址不合法'FunctionBPCheckEMail(email)DimstrArr,strRE1,strRE2,oRE1,oRE2,oM

3、atches1,oMatches2strArr=Split(email,"@")IfUBound(strArr)<>1ThenBPCheckEMail=False:ExitFunctionEndIfstrRE1="^(?:[w.-]+@[A-Za-z1-9]{1}[A-Za-z0-9.-]+.[A-Za-z1-9]{2,3})"strRE2="[^w.@:-]+"SetoRE1=NewRegExp:SetoRE2=NewRegExpoRE1.Pattern=strRE1:oRE2.Pattern=strRE2o

4、RE1.IgnoreCase=False:oRE2.IgnoreCase=FalseoRE1.Global=True:oRE2.Global=TrueSetoMatches1=oRE1.Execute(email):SetoMatches2=oRE2.Execute(email)IfoMatches1.Count<>0AndoMatches2.Count=0ThenBPCheckEMail=TrueElseBPCheckEMail=FalseEndIfEndFunction3:asp生成指定类型的随机字符串    '函数：

5、RandomStr   '作用：生成指定类型的随机字符串        '参数：IsIgnoreCase（大小写字母状态)       '    IsStatus(数字、字母组合)       '    CodeLen(字符串长度)   FunctionRandomStr(ByValIsIgnoreCase,ByValIsStatus,ByValCodeLen)       DimNumStr,CharStr,Str       DimRCodeItem,RCodeStart,RCodeStr       NumStr="

6、0123456789"       CharStr="ABCDEFGHIJKLMNOPQRSTUVWXYZ"       SelectCaseUCase(IsIgnoreCase)'选择字符串类型           Case"A":CharStr=CharStr&LCase(CharStr)           Case"U":CharStr=CharStr           Case"L":CharStr=LCase(CharStr)           CaseElse:CharStr=CharStr&LCase(

7、CharStr)       EndSelect       SelectCaseUCase(IsStatus)'输出组合类型           Case"A":Str=NumStr&CharStr           Case"N":Str=NumStr'OnlyNumber           Case"C":Str=CharStr'OnlyChar           CaseElse:Str=NumStr&CharStr       EndSelect       Randomize       ForRCode

8、Item=0ToCodeLen-1           RCodeStart=Int(RndLen(Str))           RCodeStr=RCodeStr&Mid(Str,RCodeStart+1,1)       Next       RandomStr=RCodeStr   EndFun