当用不了 where b like '001*'
就改用 where b like '001%'
就改用 where b like '001%'

[flash][/flash]
<%
dim n0,n1,n2,a
a=0
n0=rs("B")
n1=InStr(n0,a)
if n1=1 then
n2=len(n0)
if n2=4 then
response.write "这个四位数为:"&n0
end if
end if
%>