asp多条件查询求助?
做了好几天,急啊~~~我地勒个汗啊~~~由查询页提交查询条件至查询结果显示页结果显示页问题:能读取到表单传过来的变量值,但数据库却不按变量值进行查询,而是显示所有数据,以...
做了好几天,急啊~~~我地勒个汗啊~~~
由查询页提交查询条件 至 查询结果显示页
结果显示页问题:能读取到表单传过来的变量值,但数据库却不按变量值进行查询,而是显示所有数据,以下是显示页数据库代码,请大神们给指点下,
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = ("D:\kqyx\mydb\ltsjk.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &DBPath
sql="select * from jshm where 1=1"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
<%
on error resume next
set rs=dbconnection.EXECUTE(sql) 'sql为具体的sql执行语句
dim errmsg
if err.number=0 then
errmsg="数据库操作成功!"
else
errmsg="数据库操作失败!"
end if
%>
<%
dim xbb,zjgqb,zgb,zzmmb
xbb = Request.Form("xb")
zjgqb = Request.Form("zjgq")
zgb = Request.Form("zg")
zzmmb = Request.Form("zzmm")
%>
<%
if xbb <>"全部" then
Sql= Sql&" and xb='"& xbb &"'"
end if
if zjgqb <>"全部" then
Sql= Sql&" and zjgq='"& zjgqb &"'"
end if
if zgb <>"全部" then
Sql= Sql&" and zg='"& zgb &"'"
end if
if zzmmb <>"全部" then
Sql= Sql&" and zzmm='"& zzmmb &"'"
end if
%> 展开
由查询页提交查询条件 至 查询结果显示页
结果显示页问题:能读取到表单传过来的变量值,但数据库却不按变量值进行查询,而是显示所有数据,以下是显示页数据库代码,请大神们给指点下,
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = ("D:\kqyx\mydb\ltsjk.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &DBPath
sql="select * from jshm where 1=1"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
<%
on error resume next
set rs=dbconnection.EXECUTE(sql) 'sql为具体的sql执行语句
dim errmsg
if err.number=0 then
errmsg="数据库操作成功!"
else
errmsg="数据库操作失败!"
end if
%>
<%
dim xbb,zjgqb,zgb,zzmmb
xbb = Request.Form("xb")
zjgqb = Request.Form("zjgq")
zgb = Request.Form("zg")
zzmmb = Request.Form("zzmm")
%>
<%
if xbb <>"全部" then
Sql= Sql&" and xb='"& xbb &"'"
end if
if zjgqb <>"全部" then
Sql= Sql&" and zjgq='"& zjgqb &"'"
end if
if zgb <>"全部" then
Sql= Sql&" and zg='"& zgb &"'"
end if
if zzmmb <>"全部" then
Sql= Sql&" and zzmm='"& zzmmb &"'"
end if
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询