ASP查询问题

显示全部楼层 · 2021-1-27 05:54:13

各位大神帮帮忙，我现在遇到2个问题，
一是：输入查询关键字查询会出现（MicrosoftJETDatabaseEngine(0x80040E10)
至少一个参数没有被指定值。）
二是：如何通过点击企业名称实现跳转到详细页面
请各位大侠帮帮忙咯
以下是详细代码：

无标题文档

查询关键字：
企业名称
服务联络员

""Thensqlstr=sqlstr&"where"&sel&"like'%"&keyword&"%'"
rs.opensqlstr,comm,1,1
IfNot(rs.eofandrs.bof)Then
rs.pagesize=3'定义每页显示的记录数
pages=clng(Request("pages"))'获得当前页数
Ifpagesrs.recordcountThenpages=rs.recordcount
showpagers,pages'执行分页子程序showpage
Subshowpage(rs,pages)'分页子程序showpage(rs,pages)
rs.absolutepage=pages'指定指针所在的当前位置
Fori=1tors.pagesize'循环显示记录集中的记录
%>
序号企业名称企业注册号工商状态税务状态服务联络员企业类型

[td]
1then
response.Write("首页")
response.Write("上一页")
endif
ifpagesrs.pagecountthen
response.Write("下一页")
response.Write("末页")
endif
response.Write("["&pages&"/"&rs.pagecount&"]每页"&rs.pagesize&"条共"&rs.recordcount&"条记录")
rs.close
Setrs=Nothing
%>

分 -->

千问 · 2021-1-27 05:54:13

看看你的字段是不是都正确代码是否有错误

千问 · 2021-1-27 05:54:13

调试，sql打印出来看下
[td][/td]
[td][/td]

千问 · 2021-1-27 05:54:13

1、Ifkeyword""Thensqlstr=sqlstr&"where"&sel&"like'%"&keyword&"%'"这里的sel没有获取到值，所以输入关键词的时候出错
2、[td]这里要打开企业名称，应该改成
[td]">[/td]然后做一个company.asp页面，用来显示企业的详细信息。

千问 · 2021-1-27 05:54:13

引用3楼wangsdong1的回复:1、Ifkeyword""Thensqlstr=sqlstr&"where"&sel&"like'%"&keyword&"%'"这里的sel没有获取到值，所以输入关键词的时候出错
2、[td]这里要打开企业名称，应该改成
[td]">[/td]然后做一个company.asp页面，用来显示企业的详细信息。
大哥还是不行么。。。只能显示数据库中的首条记录啊。。。还是没传递过去