[非常求助]菜单列表连接到数据库做个查询结果页面 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [非常求助]菜单列表连接到数据库做个查询结果页面

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 813 人关注过本帖

标题：[非常求助]菜单列表连接到数据库做个查询结果页面

只看楼主加入收藏

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

楼主

问题点数：0 回复次数：9

[非常求助]菜单列表连接到数据库做个查询结果页面

现在有个菜单列表想连接到数据库的其中一列然后做个查询结果页面
我用DW自己的纪录集

<%
Dim cplb
Dim cplb_numRows
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("..\index\database\1.mdb")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr
Set cplb = Server.CreateObject("ADODB.Recordset")
cplb.ActiveConnection = MM_naer_STRING
cplb.Source = "SELECT 产品系列 FROM sbsj WHERE 产品系列 like '" + Replace(cplb__varcpxl, "'", "''") + "'"
cplb.CursorType = 0
cplb.CursorLocation = 2
cplb.LockType = 1
cplb.Open()

cplb_numRows = 0
%>

不知道我哪里出现问题了非常的着急啊大叔大爷们啊大姐大妈们帮帮我啊

搜索更多相关主题的帖子: 数据库　菜单　页面　结果　

2007-08-28 09:37

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

第 2 楼

得分:0

他提示说[microsoft][ODBC Microsoft access Driver]参数不足，期待是1。

2007-08-28 09:39

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

第 3 楼

得分:0

有哪位大哥啊大姐啊加我一下QQ啊 79677593 我发贴说不清楚 55555555555

2007-08-28 09:48

craft001wen

等　级：论坛游民
帖　子：242
专家分：62
注　册：2006-5-4

第 4 楼

得分:0

这种写法倒是少见,你用这个试试
<%
Dim cplb
Dim cplb_numRows
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("..\index\database\1.mdb")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr
Set cplb = Server.CreateObject("ADODB.Recordset")

cplb.open"SELECT 产品系列 FROM sbsj WHERE 产品系列 like '" & Replace(cplb__varcpxl, "'", "''") &"'",MM_naer_STRING,1

%>

2007-08-28 10:00

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

第 5 楼

得分:0

有点迷糊了，问个问题，我现在有个表单叶也就是有菜单列表的页面，然后一会得做出个列表模板的页面（结果显示页），但是是不是中间还得有什么页面才行啊
迷糊等待中。。。。。。。。。。。。。。。。。

2007-08-28 10:09

天涯听雨

来　自：东莞
等　级：论坛游民
威　望：4
帖　子：497
专家分：64
注　册：2007-8-25

第 6 楼

得分:0

请不要利用DW的功能来自动生成源代码。。还是自己试着写一些简单的源代码

简单的查询语句也请先看一些书籍，或者教程的介绍。

Set rs = Server.CreateObject("ADODB.Recordset")

strsql="select * from table1"

rs.open strsql conn,1,1

明白红色地方的参数意义，许多教程有介绍

从明天起做幸福的人，喂马劈柴周游世界！

2007-08-28 11:08

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

第 7 楼

得分:0

就是为了冲冲门面，我学的不系统，这个先做好，然后慢慢吸收吧。我现在都不知道该问什么问题

2007-08-28 12:49

yuan0121

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-27

第 8 楼

得分:0

非常感谢天涯听雨兄弟的帮忙

这个页面还是有错误提示，已经蒙灯了！！！！！！！！！！1
<%
Dim cplb
Dim cplb_numRows
cplb__varcpxl=trim(request.QueryString("CodeKey"))

if cplb__varcpxl="" then
response.write "请进行后退选择关键字"
response.end
end if

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("..\index\database\1.mdb")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr
Set cplb = Server.CreateObject("ADODB.Recordset")
cplb.open"SELECT 产品系列 FROM sbsj WHERE 产品系列 like '%"&Replace(sbsj__xilie, "'", "''")&"%'",MM_naer_STRING,1,1--------------------------第25行
%>
<body>
</body>
</html>
<%
lb.Close()
Set cplb = Nothing
%>

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/lb.asp，行 25

[此贴子已经被作者于2007-8-28 16:25:56编辑过]

2007-08-28 16:24