高校问答王俪丁 赵本六:求教如果数据库中不存在某项记录怎么写代码让它出现出错框？
来源：百度文库 编辑：高校问答 时间：2024/05/03 01:17:20
我Access数据库中只有两个用户的手机号
我想让它实现这样的功能：当查数据库中没有的手机号时让它弹出报错的窗体，请问怎么添加代码啊？
下面是我在Dreamweaver 中写的代码：请高人帮我修改 谢谢！！！
<%
Sub FindOut()
dim number
number=Request.Form("number")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql="Select A.* From client A Where A.phone like '%"&number&"%' "
Rs1.Open Sql,conn,1,3
If number="" then
Response.Write "<script>alert('请输入要查询的手机号！');history.go(-1);</script>"
Response.End
End If
%>
我想让它实现这样的功能：当查数据库中没有的手机号时让它弹出报错的窗体，请问怎么添加代码啊？
下面是我在Dreamweaver 中写的代码：请高人帮我修改 谢谢！！！
<%
Sub FindOut()
dim number
number=Request.Form("number")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql="Select A.* From client A Where A.phone like '%"&number&"%' "
Rs1.Open Sql,conn,1,3
If number="" then
Response.Write "<script>alert('请输入要查询的手机号！');history.go(-1);</script>"
Response.End
End If
%>
Sub FindOut()
dim number
number=Request.Form("number")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql="Select A.* From client A Where A.phone like '%"&number&"%' "
Rs1.Open Sql,conn,1,3
If number="" then
Response.Write "<script>alert('请输入要查询的手机号！');history.go(-1);</script>"
Response.End
else
if rs.eof and rs.bof then
response.write"<script> alert('该手机号码并不存在，请重新输入！');history.go(-1);</script>"
response.redirect("XXXX.asp")
end if
End If