<%
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
%>
在此代码的基础上添加“检验号码已存在的功能”

<%
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编辑过]

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

<%
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编辑过]