asp判断手机号的问题

显示全部楼层 · 2011-9-13 08:59:50

我想把数据库中的手机号码读出来，要求读出来的手机号码相邻7位、6位、5位或者四位数相同，数据库已经连接好了，不知道判断相邻位数相同的手机号程序怎么写，求高手指点！十分感谢，十万火急啊！求代码！这是我连数据库的代码，求完整代码%
\'以下连接数据库，建立一个Connection对象实例dbDimdb
Setdb=Server.CreateObject(\"ADODB.Connection\")
db.Open\"Dbq=\"Server.Mappath(\"db1.mdb\")\";Driver={MicrosoftAccessDriver(*.mdb)}\"
\'以下建立记录集
DimstrSql,rs
strSql=\"Selecttop10000*Fromeeds\"
Setrs=db.Execute(strSql)
\'以下显示数据库记录
%tableborder=\"1\"align=\"center\"
%
DoWhileNotrs.Eof\'只要不是结尾就执行循环
%
tr
td%=rs(\"id\")%/td
td%=rs(\"num\")%/td
/tr
%
rs.MoveNext\'将记录指针移动到下一条记录
Loop
%
/table

千问 · 2011-9-13 08:59:50

%
\'以下连接数据库，建立一个Connection对象实例dbDimdb
Setdb=Server.CreateObject(\"ADODB.Connection\")
db.Open\"Dbq=\"Server.Mappath(\"db1.mdb\")\";Driver={MicrosoftAccessDriver(*.mdb)}\"
\'以下建立记录集
DimstrSql,rs
strSql=\"Selecttop10000*Fromeeds\"
Setrs=db.Execute(strSql)
\'以下显示数据库记录FunctionShuzi(num)
n=left(num,1)
t=0
ForI=1Tolen(num)
ifn=mid(num,i,1)then
t=t1
else
n=mid(num,i,1)
t=0
endif
ift=3then
Shuzi=True
exitfor
Endif
next
ift=3then
Shuzi=True
else
Shuzi=false
Endif
ENDFunction
%tableborder=\"1\"align=\"center\"
%
DoWhileNotrs.Eof\'只要不是结尾就执行循环
ifShuzi(rs(\"num\"))then
%
tr
td%=rs(\"id\")%/td
td%=rs(\"num\")%/td
/tr
%
endif
rs.MoveNext\'将记录指针移动到下一条记录
Loop
%
/table注：没有测试过，函数基本上完成了，需要你自己调试一下

千问 · 2011-9-13 08:59:50

千问 · 2011-9-13 08:59:50