Question

ASP 检查数据库中是否存在从表单提交的与Company相同的记录

<!--#include file="conn.asp"-->

<%
dim , founderr
Company=trim(request("Company"))
if Company="" then
response.write "<script language='javascript'>alert('请输入公司名称！');window.history.back(-1);</script>"
else
if Instr(Company,"=")>0 or Instr(Company,"%")>0 then
response.write "<script language='javascript'>alert('公司名称中含有非法字符！');window.history.back(-1);</script>"
founderr=true
end if
end if

if founderr=false then
dim sqlCheckReg,rsCheckReg
set rsCheckReg=server.createobject("adodb.recordset")
sqlCheckReg="select * from Customer where Company='" & Company & "'"
rsCheckReg.open sqlCheckReg,conn,1,1
else
if rsCheckReg.recordcount>0 then
response.write "<script language='javascript'>alert('很遗憾，已经有这个客户了，请继续努力！');window.history.back(-1);</script>"
founderr=true
end if
end if
rsCheckReg.close
set rsCheckReg=nothing

if founderr=false then
response.write "<script language='javascript'>alert('恭喜你！');window.location(ContinueAdd.asp?Company=trim(request("Company")));</script>"
end if
%>

以上代码不能有效检查表单提交的数据是否存在，那位大哥请帮忙改一下，谢谢。

Answer 1

if founderr=false then
dim sqlCheckReg,rsCheckReg
set rsCheckReg=server.createobject("adodb.recordset")
sqlCheckReg="select * from Customer where Company='" & Company & "'"
rsCheckReg.open sqlCheckReg,conn,1,1

在这里，
if not rsCheckReg.eof then
输出公司已存在。
end if

else
if rsCheckReg.recordcount>0 then
response.write "<script language='javascript'>alert('很遗憾，已经有这个客户了，请继续努力！');window.history.back(-1);</script>"
founderr=true
end if
end if
rsCheckReg.close
set rsCheckReg=nothing

Answer 2

dim , founderr
改成
dim founderr: founderr=false

sqlCheckReg="select * from Customer where Company='" & Company & "'"
改成
sqlCheckReg="select * from Customer where Company like '%" & Company & "%'"

Answer 3

运行出错了吗？把错误提示发上来吧。如果没有错误报告，能否告知调试过程及结果？