<%
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
%>

[此贴子已经被作者于2007-9-14 21:04:40编辑过]