日期:2014-05-17 浏览次数:21135 次
Function replacestr(str) replacestr=replace(str,"'","") replacestr=replace(replacestr,"]","") replacestr=replace(replacestr,"[","") replacestr=replace(replacestr,";","") replacestr=replace(replacestr,":","") replacestr=replace(replacestr,"or","") replacestr=replace(replacestr,"and","") replacestr=replace(replacestr,"","") End Function '************************************************************* '判断是否为数字 '************************************************************* Function ChkNum(Str) ChkNum=true if not IsNumeric(Str) then ChkNum=false end if End Function