ASP 提取数据

求教一段ASP小代码: (从数据库调用数据)

如果输入编号正确，那么就会调出数据库的数据
如果输入错误，就会提示报错。

---

VBScript code:

<%
Dim DBConn
Set DBConn = server.CreateObject("ADODB.connection")
DBConn.open "Provider=SQLOLEDB.1;Password=ooo;Persist Security Info=True;User ID=sa;Initial Catalog=DataName;Data Source=IP;Connect Timeout=30"
set rs_mobile = server.CreateObject("adodb.recordset")
sql_mobile = " select * from tb_surveryA where cust_mobile= '"&request.Form("cust_mobile")&"' "
rs_mobile.open sql_mobile, DBConn, 1, 1
if rs_mobile.recordcount >=1 then
Response.Write("<script>alert('已經存在此手提電話!');window.location.href='P1.asp'</script>")
response.end()
end if
%>

---

大侠请问有没有简单点的啊，这个有点复杂了啊