//嘿嘿，有正则表达式
s cx="手机归属地:"
s sd="区号:"
s df="邮编:" 
s gh="卡类型:"
ug(2,"text",b)
se(b, "^[1][3-8]\d{9}$"
, 0, d)
se(d, "ms", e)
f(e == false)
{
tw("格式不正确")
}
else()
{
t()
{
s a="http://m.ip138.com/mobile.asp?mobile="
ss(a+b,c)
hs(c,e)
sj(e,"卡号归属地</td><td><span>","</span></td></tr>
",gsd1)
sj(e,"邮 编</td><td><span>","</span>",yb1)
sj(e," 号</td><td><span>","</span>",qh1)
sj(e,"卡 类 型</td><td><span>","</span>",ls1)
ufnsui()
{
ss(cx+gsd1,wa)
ss(sd+qh1,wb)
ss(df+yb1,wc)
ss(gh+ls1,wd)
us(5,"text",wa)
us(7,"text",wb)
us(8,"text",wc)
us(9,"text",wd)
}
}
}
//嘿嘿，免费哒，不要钱——AW-ZX（如果你能记住我，我会很开心的呐）