function meCdbl(c_Str)
meCdbl=0
on error resume next
if c_Str="" then
meCdbl=0
else
meCdbl=cdbl(c_Str)
end if
end function
function CheckIn(c_Str)
dim k
k = len(c_Str)
for i=1 to k
if (asc(right(left(c_Str,i),1))<48 or asc(right(left(c_Str,i),1))>57) and asc(right(left(c_Str,i),1))<>46 then
CheckIn=0
window.alert("非法输入!")
exit function
end if
next
CheckIn=1 end function
meCdbl=0
on error resume next
if c_Str="" then
meCdbl=0
else
meCdbl=cdbl(c_Str)
end if
end function
function CheckIn(c_Str)
dim k
k = len(c_Str)
for i=1 to k
if (asc(right(left(c_Str,i),1))<48 or asc(right(left(c_Str,i),1))>57) and asc(right(left(c_Str,i),1))<>46 then
CheckIn=0
window.alert("非法输入!")
exit function
end if
next
CheckIn=1 end function
或则是不用IE5.5以上的那些功能!