|
|
主题: 怎样选择不同的表去搜索？？？
|
webgoing
职务：普通成员
等级：1
金币：0.0
发贴：38
注册：2002/7/23 17:19:39
|
#12003/4/12 15:26:55
有一个数据库，里面有三个表，分别是(烤炉，搅拌机，豆浆机)的，现在我做一个搜索引擎，并做了一个列表框，但怎样才能选择了一种产品以后，就是选择对应的这个表来搜索？？？还有排序也是一样？？？
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#22003/4/12 15:40:43
tb = request("tb")
sql = "select * form "&tb&" where .......
|
ziriyan
职务：普通成员
等级：2
金币：1.0
发贴：303
注册：2002/1/28 15:58:03
|
#32003/4/12 15:59:03
还要用到if...then
根据前页传递过来的选项连接不同的表
<%
name=request.form("name")
string=request.form("string")
if name="烤炉" then
sql="select * from 烤炉 where kl_name like '%"&string&"%'"
elseif name="搅拌机" then
sql="select * from 搅拌机 where jb_name like '%"&string&"%'"
end if
...............
%>
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#42003/4/12 18:00:22
你把select的option的value定义成表同样的名字就可以省去if...then了
|
webgoing
职务：普通成员
等级：1
金币：0.0
发贴：38
注册：2002/7/23 17:19:39
|
#52003/4/12 21:30:10
我的怎么会出错，我会SQL这段代码帖出来了
<%
Dim select1
Dim select1_numRows
Set select1 = Server.CreateObject("ADODB.Recordset")
select1.ActiveConnection = MM_proudct_STRING
select1.Source = "SELECT * FROM "&select1&" WHERE model like '%" + Replace(select1__MMColParam, "'", "''") + "%'"
select1.CursorType = 0
select1.CursorLocation = 2
select1.LockType = 1
select1.Open()
select1_numRows = 0
%>
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#62003/4/12 21:32:18
什么错误提示？
|
webgoing
职务：普通成员
等级：1
金币：0.0
发贴：38
注册：2002/7/23 17:19:39
|
#72003/4/12 21:34:59
500-内部服务嚣错误
|
webgoing
职务：普通成员
等级：1
金币：0.0
发贴：38
注册：2002/7/23 17:19:39
|
#82003/4/12 22:10:23
我又改成了
<%
Dim select1
Dim select1_numRows
Set select1 = Server.CreateObject("ADODB.Recordset")
select1.ActiveConnection = MM_proudct_STRING
select1= request(select1)
if select1="kl" then
select1.Source = "SELECT * FROM kl WHERE model like '%" + Replace(select1__MMColParam, "'", "''") + "%'"
elseif select1="dj" then
select1.Source = "SELECT * FROM dj WHERE model like '%" + Replace(select1__MMColParam, "'", "''") + "%'"
elseif select1="jb" then
select1.Source = "SELECT * FROM jb WHERE model like '%" + Replace(select1__MMColParam, "'", "''") + "%'"
end if
select1.CursorType = 0
select1.CursorLocation = 2
select1.LockType = 1
select1.Open()
select1_numRows = 0
%>
还是不行？？？
|
