日期:2014-05-17 浏览次数:21282 次
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