高校问答林夕评价不吐不快现场:access和ASP中的小问题，高分求助！
来源：百度文库 编辑：高校问答 时间：2024/05/04 16:56:46
在access中有个备注字段（文本格式），要求在判断的时候不能包括电话号码，比如只要是里面有87525442就会自动变成未通过。
请提供源代码或相关网址！
这位高手还没有理解我的意思，这样吧，我把实际需求说下：
（1）我这里是可以发布出租信息的，但我不想让中介发布来赚钱，因为他会留下中介电话，所以只要有电话就通过不了。另外，个人发布留的真实电话我也不想让他显示，因为这样也会有很多中介来找，然后赚取其他人的中介费，所以只要是在这里发布的电话都无法通过。
（2）如果这位高手感兴趣，可以留下电话，或发到我的邮件里来，happyczp@gmail.com
请提供源代码或相关网址！
这位高手还没有理解我的意思，这样吧，我把实际需求说下：
（1）我这里是可以发布出租信息的，但我不想让中介发布来赚钱，因为他会留下中介电话，所以只要有电话就通过不了。另外，个人发布留的真实电话我也不想让他显示，因为这样也会有很多中介来找，然后赚取其他人的中介费，所以只要是在这里发布的电话都无法通过。
（2）如果这位高手感兴趣，可以留下电话，或发到我的邮件里来，happyczp@gmail.com
function abcd(a,b)'查找B串是否在A串中！反回第几个字每，0没有
c=0
for i=1 to len(a)-len(b)+1
if mid(a,i,len(b))=b then c=i:exit for
next
abcd=c
end function
a="************************875251*******"
b=abc(a,"875251")
if b>0 then 有 else 没有
'i反回值，0没找到，>0 则是B串在A串的位置
dim s
s=request("提交的数据")
set reg= New RegExp
reg.Pattern = "\d{7,}"
reg.Global = True
if reg.test(s) then
response.write "数据中存在电话号码一类的提示"
response.end
end if
这个使用了正则表达式,可以检测存在7个及以上连续数字的情况.如果只要检测7到11个数字,那么可以改成
reg.Pattern = "\d{7,11}"
if Instr(Request("文本框"),"875251")>0 Then
response.write"<script>"
response.write "alert('错误');"
Response.write "</script>"
end IF