function strreplace(str)
if str = "" then
strreplace = str
else
strreplace = replace(str,"'","''")
end if
end function
檢測(cè)數(shù)字函數(shù)
function check_num(str)
dim i
For i = 1 To Len(str)
if Asc(Mid(str, i, 1)) < 48 or Asc(Mid(str, i, 1)) > 57 then
check_num=false
exit function
else
check_num=true
end if
Next
end function
function cutstr(str,st
新聞熱點(diǎn)
疑難解答
圖片精選
網(wǎng)友關(guān)注