注册 登录
编程论坛 ASP技术论坛

解决检验手机号码已存在的问题!望朋友帮个忙

zcxxtdnip 发布于 2007-09-11 16:54, 802 次点击
<%
response.buffer="true"
If request.form("user")="" Then
response.write"<script>alert('请填写联系人姓名!');history.back()</script>"
response.end
End If
If request.form("tel")="" Then
response.write"<script>alert('请填写您联系电话!');history.back()</script>"
response.end
End If
if len(trim(request.form("tel")))<11 then
response.write"<script>alert('你的手机号码不够11位请重新填写!');history.back()</script>"
response.end
End If
%>
<!--#include file="CONN.ASP" -->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from cdb where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("user")=request.form("user")
rs("tel")=request.form("tel")
rs("dt")=now()
rs("productID")=request.form("productID")
rs("ip")=request.ServerVariables("remote_addr")
rs("url")=Request.ServerVariables("HTTP_REFERER")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
在此代码的基础上添加“检验号码已存在的功能”
3 回复
#2
hmhz2007-09-11 18:06
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
rs.open "select * from cdb where tel='"&request.form("tel")&"'",conn,1,3
if rs.bof and rs.eof then
response.write "<script>alert('该电话号码已存在!');history.go(-1);</script>"
response.end
end if
rs.addnew
rs("user")=request.form("user")
rs("tel")=request.form("tel")
rs("dt")=now()
rs("productID")=request.form("productID")
rs("ip")=request.ServerVariables("remote_addr")
rs("url")=Request.ServerVariables("HTTP_REFERER")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

[此贴子已经被作者于2007-9-11 18:10:21编辑过]

#3
zcxxtdnip2007-09-12 09:22
回复:(hmhz)

不行啊!还是能重复输入同一个号码

#4
hmhz2007-09-12 15:47
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
rs.open "select * from cdb where tel='"&request.form("tel")&"'",conn,1,3
if not(rs.bof and rs.eof) then
response.write "<script>alert('该电话号码已存在!');history.go(-1);</script>"
else
rs.addnew
rs("user")=request.form("user")
rs("tel")=request.form("tel")
rs("dt")=now()
rs("productID")=request.form("productID")
rs("ip")=request.ServerVariables("remote_addr")
rs("url")=Request.ServerVariables("HTTP_REFERER")
rs.update
end if
rs.close
set rs=nothing
%>

[此贴子已经被作者于2007-9-12 15:49:03编辑过]

1