asp代码问题 在线求救
要做1.2.3.4.5.---10然后做四个图片按钮(上一页,下一页,首页,尾页)我自己写了代码老是出错,希望高手们帮帮忙。代码如下<formmethod="post"a...
要做 1 . 2 . 3. 4. 5. ---10 然后做四个图片按钮(上一页,下一页,首页,尾页)我自己写了代码 老是出错,希望高手们帮帮忙。
代码如下
<form method="post" action="../newhouse/introduction.asp">
<%if Page<2 then
response.write "<img src=/faq/photo/ico_5.gif border=0 /> <img src=/faq/photo/ico_2.gif border=0 /> "
else
response.write "<a href=introduction.asp?page=1><img src=/faq/photo/ico_5.gif border=0 /></a> "
response.write "<a href=introduction.asp?page=" & Page-1 & "><img src=/faq/photo/ico_2.gif border=0 /></a> "
end if
if rs.pagecount-page<1 then
response.Write( page &"<span class=STYLE82>|</span>")
else
if rs.pagecount<10 then
for i=1 to rs.pagecount
if page=i then
response.Write( i &"<span class=STYLE82>|</span>")
else
response.Write("<a href=introduction.asp?page=" & i & ">"& i &"</a><span class=STYLE82>|</span>")
end if
next
else
for p=1 to 5
response.Write("<a href=introduction.asp?page=" & page+p-5 & ">"& page+p-5 &"</a><span class=STYLE82>|</span>")
next
response.Write( i &"<span class=STYLE82>|</span>")
for p=1 to 5
response.Write("<a href=introduction.asp?page=" & page+p & ">"& page+p&"</a><span class=STYLE82>|</span>")
next
end if
end if
if rs.pagecount-page<1 then
response.write "<img src=/faq/photo/ico_3.gif border=0 /> <img src=/faq/photo/ico_4.gif />"
else
response.write "<a href=introduction.asp?page=" & (page+1) & ">"
response.write "<img src=/faq/photo/ico_3.gif border=0 /></a> <a href=introduction.asp?page="&rs.pagecount&"><img src=/faq/photo/ico_4.gif border=0 /></a>"
end if
%>
</form></td>
</tr>
</table>
<%end if%>
我的网址是(韩文)http://www.qdbdc.com/introduction.asp 最下面那个 如果解决了可以在给100分 谢谢 展开
代码如下
<form method="post" action="../newhouse/introduction.asp">
<%if Page<2 then
response.write "<img src=/faq/photo/ico_5.gif border=0 /> <img src=/faq/photo/ico_2.gif border=0 /> "
else
response.write "<a href=introduction.asp?page=1><img src=/faq/photo/ico_5.gif border=0 /></a> "
response.write "<a href=introduction.asp?page=" & Page-1 & "><img src=/faq/photo/ico_2.gif border=0 /></a> "
end if
if rs.pagecount-page<1 then
response.Write( page &"<span class=STYLE82>|</span>")
else
if rs.pagecount<10 then
for i=1 to rs.pagecount
if page=i then
response.Write( i &"<span class=STYLE82>|</span>")
else
response.Write("<a href=introduction.asp?page=" & i & ">"& i &"</a><span class=STYLE82>|</span>")
end if
next
else
for p=1 to 5
response.Write("<a href=introduction.asp?page=" & page+p-5 & ">"& page+p-5 &"</a><span class=STYLE82>|</span>")
next
response.Write( i &"<span class=STYLE82>|</span>")
for p=1 to 5
response.Write("<a href=introduction.asp?page=" & page+p & ">"& page+p&"</a><span class=STYLE82>|</span>")
next
end if
end if
if rs.pagecount-page<1 then
response.write "<img src=/faq/photo/ico_3.gif border=0 /> <img src=/faq/photo/ico_4.gif />"
else
response.write "<a href=introduction.asp?page=" & (page+1) & ">"
response.write "<img src=/faq/photo/ico_3.gif border=0 /></a> <a href=introduction.asp?page="&rs.pagecount&"><img src=/faq/photo/ico_4.gif border=0 /></a>"
end if
%>
</form></td>
</tr>
</table>
<%end if%>
我的网址是(韩文)http://www.qdbdc.com/introduction.asp 最下面那个 如果解决了可以在给100分 谢谢 展开
11个回答
展开全部
按照你的代码修改的,你写的太复杂了,很乱
<%
'首页和上页分页代码
if Page>1 then
response.write "<a href=introduction.asp?page=1><img src=/faq/photo/ico_5.gif border=0 /></a> "
response.write "<a href=introduction.asp?page=" & Page-1 & "><img src=/faq/photo/ico_2.gif border=0 /></a> "
else
response.write "<img src=/faq/photo/ico_5.gif border=0 /> <img src=/faq/photo/ico_2.gif border=0 /> "
end if
'数字分页代码
c1=page-5 '显示当前页的前5页,可以根据自己需要修改
c2=page+5 '显示当前页的后5页,可以根据自己需要修改
cc1=page-1
cc2=page+1
if c1<1 then c1=1
if c2>rs.PageCount then c2=rs.PageCount
for i=c1 to cc1
Response.Write"<a href=introduction.asp?page="&i&">["&i&"]</a> "
next
Response.Write"<font color=red> ["&page&"] </font>"
for j=cc2 to c2
Response.Write" <a href=introduction.asp?page="&j&">["&j&"]</a>"
next
'数字分页结束
'下页和尾页分页代码
if page<rs.pagecount then
response.write "<a href=introduction.asp?page=" & (page+1) & ">"
response.write "<img src=/faq/photo/ico_3.gif border=0 /></a> <a href=introduction.asp?page="&rs.pagecount&"><img src=/faq/photo/ico_4.gif border=0 /></a>"
else
response.write "<img src=/faq/photo/ico_3.gif border=0 /> <img src=/faq/photo/ico_4.gif />"
end if
%>
<%
'首页和上页分页代码
if Page>1 then
response.write "<a href=introduction.asp?page=1><img src=/faq/photo/ico_5.gif border=0 /></a> "
response.write "<a href=introduction.asp?page=" & Page-1 & "><img src=/faq/photo/ico_2.gif border=0 /></a> "
else
response.write "<img src=/faq/photo/ico_5.gif border=0 /> <img src=/faq/photo/ico_2.gif border=0 /> "
end if
'数字分页代码
c1=page-5 '显示当前页的前5页,可以根据自己需要修改
c2=page+5 '显示当前页的后5页,可以根据自己需要修改
cc1=page-1
cc2=page+1
if c1<1 then c1=1
if c2>rs.PageCount then c2=rs.PageCount
for i=c1 to cc1
Response.Write"<a href=introduction.asp?page="&i&">["&i&"]</a> "
next
Response.Write"<font color=red> ["&page&"] </font>"
for j=cc2 to c2
Response.Write" <a href=introduction.asp?page="&j&">["&j&"]</a>"
next
'数字分页结束
'下页和尾页分页代码
if page<rs.pagecount then
response.write "<a href=introduction.asp?page=" & (page+1) & ">"
response.write "<img src=/faq/photo/ico_3.gif border=0 /></a> <a href=introduction.asp?page="&rs.pagecount&"><img src=/faq/photo/ico_4.gif border=0 /></a>"
else
response.write "<img src=/faq/photo/ico_3.gif border=0 /> <img src=/faq/photo/ico_4.gif />"
end if
%>
展开全部
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 * from shopxp_product order by shopxpcjiao desc",conn,1,1
dim cell:cell=5
dim totalnum:totalnum=rs.recordcount
%>
<table width="150" border="0" cellpadding="0" cellspacing="0">
<%i=0
do while not rs.eof
if i mod cell = 0 then response.write"<tr>"
%>
<td>
<table border="0" cellpadding="0" cellspacing="0"><tr><td height="24" valign="middle"><font color="#DC143C"><font color="#DC143C"><a href="productshopxp.asp?id=<%=rs("shopxpptid")%>" target="_parent"><img src="<%=trim(rs("upfilepic"))%>" alt="<%=rs("shopxpptname")%>" width="<% = xtk %>" height="<% = xtg %>" border="0" /></a></font></font></td>
</tr>
<tr>
<td width="100%" height="24" valign="middle">
<%response.write " <a href=productshopxp.asp?id="&rs("shopxpptid")&" title=此商品已成功销售"&rs("shopxpcjiao")&"次>"
if len(trim(rs("shopxpptname")))>11 then
response.write left(trim(rs("shopxpptname")),10)&"."
else
response.write trim(rs("shopxpptname"))
end if
response.write "</a>"
%>
<font color="#DC143C">↑<font color="#DC143C">¥<%=trim(rs("shopxphyjia"))%></font></font></td>
</tr></table></td>
<%
i=i+1
if (i mod cell=cell) or i=totalnum then response.write "</tr>"
if i>=5 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<map name="rqph" id="rqph">
<area shape="rect" coords="126,8,177,30" href="xpnewp.asp?action_key_order=liulancount" />
</map>
rs.open "select top 5 * from shopxp_product order by shopxpcjiao desc",conn,1,1
dim cell:cell=5
dim totalnum:totalnum=rs.recordcount
%>
<table width="150" border="0" cellpadding="0" cellspacing="0">
<%i=0
do while not rs.eof
if i mod cell = 0 then response.write"<tr>"
%>
<td>
<table border="0" cellpadding="0" cellspacing="0"><tr><td height="24" valign="middle"><font color="#DC143C"><font color="#DC143C"><a href="productshopxp.asp?id=<%=rs("shopxpptid")%>" target="_parent"><img src="<%=trim(rs("upfilepic"))%>" alt="<%=rs("shopxpptname")%>" width="<% = xtk %>" height="<% = xtg %>" border="0" /></a></font></font></td>
</tr>
<tr>
<td width="100%" height="24" valign="middle">
<%response.write " <a href=productshopxp.asp?id="&rs("shopxpptid")&" title=此商品已成功销售"&rs("shopxpcjiao")&"次>"
if len(trim(rs("shopxpptname")))>11 then
response.write left(trim(rs("shopxpptname")),10)&"."
else
response.write trim(rs("shopxpptname"))
end if
response.write "</a>"
%>
<font color="#DC143C">↑<font color="#DC143C">¥<%=trim(rs("shopxphyjia"))%></font></font></td>
</tr></table></td>
<%
i=i+1
if (i mod cell=cell) or i=totalnum then response.write "</tr>"
if i>=5 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<map name="rqph" id="rqph">
<area shape="rect" coords="126,8,177,30" href="xpnewp.asp?action_key_order=liulancount" />
</map>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
去掉35行的 "end if".
语法规则: 关键字要成套出现 如 if ..then... else... end if
代码缩进;
给你一段分页的代码,包其中的"第一页"等,改成图片输出就可以了:
<html>
<head>
<title>利用ADO分页</title>
</head>
<body>
<!-- METADATA TYPE="typelib" File="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Dim cn,rs
Dim iPage '定义变量以显示当前页数
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
"UID=sa;PWD=admin"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.PageSize = 2'表示一页显示的纪录数
'光标需设置为静态类型,锁定设置为只读锁定,以支持PageCout(当前记录总页数)属性
rs.Open "SELECT * FROM Chapter8",cn,adOpenStatic,adLockReadOnly
'关键代码1
If Len(Request("page")) = 0 Then
iPage = 1
Else
iPage = Request("page")
End If
rs.AbsolutePage = iPage
%>
'设计显示记录的table头部
<p align="center">信息第<% =iPage%>页</p>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="646" align="center">
<tr>
<td width="33">编号</td>
<td width="98">名称</td>
<td width="37">作者</td>
<td width="56">类别</td>
<td width="135">出版社</td>
<td width="69">出版日期</td>
<td width="33">价格</td>
<td width="39">页数</td>
</tr>
</tr>
<%
For i =1 To rs.PageSize
If Not rs.Eof Then
%>
'导入记录信息
<tr>
<td width="33"><%=rs(0)%> </td>
<td width="98"><%=rs(1)%> </td>
<td width="37"><%=rs(2)%> </td>
<td width="56"><%=rs(3)%> </td>
<td width="135"><%=rs(4)%> </td>
<td width="69"><%=rs(5)%> </td>
<td width="33"><%=rs(6)%> </td>
<td width="39"><%=rs(7)%> </td>
</tr>
<%
End If
If Not rs.Eof Then rs.MoveNext
Next
%>
</table>
'关键代码2
'上下页显示
<p align="center">
<% If CInt(iPage) = 1 Then %>
第一页|上一页|
<% Else %>
<a href="08_07.asp?page=1">第一页</a>|
<a href="08_07.asp?page=<% = iPage - 1 %>">上一页</a>|
<% End If %>
<% If CInt(iPage) = CInt(rs.PageCount) Then %>
下一页| 最后一页
<% Else %>
<a href="08_07.asp?page=<% = iPage + 1 %>">下一页</a>|
<a href="08_07.asp?page=<% = rs.PageCount %>">最后一页</a>
<% End If %>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
</body>
</html>
语法规则: 关键字要成套出现 如 if ..then... else... end if
代码缩进;
给你一段分页的代码,包其中的"第一页"等,改成图片输出就可以了:
<html>
<head>
<title>利用ADO分页</title>
</head>
<body>
<!-- METADATA TYPE="typelib" File="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Dim cn,rs
Dim iPage '定义变量以显示当前页数
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
"UID=sa;PWD=admin"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.PageSize = 2'表示一页显示的纪录数
'光标需设置为静态类型,锁定设置为只读锁定,以支持PageCout(当前记录总页数)属性
rs.Open "SELECT * FROM Chapter8",cn,adOpenStatic,adLockReadOnly
'关键代码1
If Len(Request("page")) = 0 Then
iPage = 1
Else
iPage = Request("page")
End If
rs.AbsolutePage = iPage
%>
'设计显示记录的table头部
<p align="center">信息第<% =iPage%>页</p>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="646" align="center">
<tr>
<td width="33">编号</td>
<td width="98">名称</td>
<td width="37">作者</td>
<td width="56">类别</td>
<td width="135">出版社</td>
<td width="69">出版日期</td>
<td width="33">价格</td>
<td width="39">页数</td>
</tr>
</tr>
<%
For i =1 To rs.PageSize
If Not rs.Eof Then
%>
'导入记录信息
<tr>
<td width="33"><%=rs(0)%> </td>
<td width="98"><%=rs(1)%> </td>
<td width="37"><%=rs(2)%> </td>
<td width="56"><%=rs(3)%> </td>
<td width="135"><%=rs(4)%> </td>
<td width="69"><%=rs(5)%> </td>
<td width="33"><%=rs(6)%> </td>
<td width="39"><%=rs(7)%> </td>
</tr>
<%
End If
If Not rs.Eof Then rs.MoveNext
Next
%>
</table>
'关键代码2
'上下页显示
<p align="center">
<% If CInt(iPage) = 1 Then %>
第一页|上一页|
<% Else %>
<a href="08_07.asp?page=1">第一页</a>|
<a href="08_07.asp?page=<% = iPage - 1 %>">上一页</a>|
<% End If %>
<% If CInt(iPage) = CInt(rs.PageCount) Then %>
下一页| 最后一页
<% Else %>
<a href="08_07.asp?page=<% = iPage + 1 %>">下一页</a>|
<a href="08_07.asp?page=<% = rs.PageCount %>">最后一页</a>
<% End If %>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
完全清楚你的意思,就是要显示后10页,前10页代码问题(baidu搜索也是这样),按我的意思改.你以后的代码会非常的方便,简直是完美啊,我自己用起来非常得方便,让我在以后大型编程的显示中只要5分钟就可处理完成,5分钟啊。简直是杀人越货,居家旅行的必备良方啊,不要死抱着自己得代码了,你花了那个分数,就值这个新方法(当然你要有一定得基础,要不然看不懂)。
1主题循环代码------
rs.pageSize=20 '设定每页显示20条
maxpage=rs.pageCount '计算总页数
page=request("p")
if page="" then page=1 '处理空页时页码
...
循环代码
...
s="lx="&val1&"&anid="&anclassid '要带的参数写这里
showpage "class.asp?"&s,maxpage,page '调用函数,注意双引号里面得页面要修改成你自己要显示的页
'下面得函数独立写到一个文件,要用它得再包含进来
SUB showpage(url,total,nowpage)
dim str
nowpage=cint(nowpage)
response.write "<B>"
If total<=10 Then
for i=1 to total
If nowpage=i then
str=str&" <font color=red>"&i&"</font> |"
else
str=str&" <a href="&url&"&p="&i&">"&i&"</a> |"
end if
Next
Else
''''''''''''''''''''''判断当前页的位置,显示不同的范围
str="<a href="&url&"&p=1>首页</a> <B>"
fromNum=int(nowpage/10)*10 'fix
if fromNum=0 then fromNum=1
toNum=fromNum+10
if toNum>total then toNum=total
if nowpage>=10 then str=str&"<a href="&url&"&p="&fromNum-1&" title='前几页'><</a> "
for i=fromNum to toNum
if nowpage=i then
str=str&" <font color=red>"&i&"</font> |"
else
str=str&" <a href="&url&"&p="&i&">"&i&"</a> |"
end if
Next
if nowpage<total-(total mod 10) then str=str&" <a href="&url&"&p="&toNum+1&" title='后几页'>></a> " '''''''''''加后10页代码
str=str&"<a href="&url&"&p="&total&">尾页</a>"
''''''''''''''''''''''
End If
response.write str&"</b>"
END SUB
'不要看我的baidu等级是 初入江湖,编程经验我可是有8年.毕业到现在.为了你的分数,我霍出去了.看不懂还可以继续提问.额外赠送方法
显示某一页可以这样操作.
currentPage=page '前面获取的页码
MaxPerPage=rs.pagesize '每页显示数
rs.move (currentPage-1)*MaxPerPage '很重要
dim shopmark
shopmark=rs.bookmark
....
做RS的循环
...
完成某一页数值显示(特点:速度爆快)
1主题循环代码------
rs.pageSize=20 '设定每页显示20条
maxpage=rs.pageCount '计算总页数
page=request("p")
if page="" then page=1 '处理空页时页码
...
循环代码
...
s="lx="&val1&"&anid="&anclassid '要带的参数写这里
showpage "class.asp?"&s,maxpage,page '调用函数,注意双引号里面得页面要修改成你自己要显示的页
'下面得函数独立写到一个文件,要用它得再包含进来
SUB showpage(url,total,nowpage)
dim str
nowpage=cint(nowpage)
response.write "<B>"
If total<=10 Then
for i=1 to total
If nowpage=i then
str=str&" <font color=red>"&i&"</font> |"
else
str=str&" <a href="&url&"&p="&i&">"&i&"</a> |"
end if
Next
Else
''''''''''''''''''''''判断当前页的位置,显示不同的范围
str="<a href="&url&"&p=1>首页</a> <B>"
fromNum=int(nowpage/10)*10 'fix
if fromNum=0 then fromNum=1
toNum=fromNum+10
if toNum>total then toNum=total
if nowpage>=10 then str=str&"<a href="&url&"&p="&fromNum-1&" title='前几页'><</a> "
for i=fromNum to toNum
if nowpage=i then
str=str&" <font color=red>"&i&"</font> |"
else
str=str&" <a href="&url&"&p="&i&">"&i&"</a> |"
end if
Next
if nowpage<total-(total mod 10) then str=str&" <a href="&url&"&p="&toNum+1&" title='后几页'>></a> " '''''''''''加后10页代码
str=str&"<a href="&url&"&p="&total&">尾页</a>"
''''''''''''''''''''''
End If
response.write str&"</b>"
END SUB
'不要看我的baidu等级是 初入江湖,编程经验我可是有8年.毕业到现在.为了你的分数,我霍出去了.看不懂还可以继续提问.额外赠送方法
显示某一页可以这样操作.
currentPage=page '前面获取的页码
MaxPerPage=rs.pagesize '每页显示数
rs.move (currentPage-1)*MaxPerPage '很重要
dim shopmark
shopmark=rs.bookmark
....
做RS的循环
...
完成某一页数值显示(特点:速度爆快)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'---------------------------------------------------------------------------
设置每页显示的数=perpages
<%perpages=25
page=request("page")
if page="" then
page=1
end if
keyword=request("keyword")%>
'---------------------------------------------------------------------------
<html>
<head>
<title></title>
</head>
<body>
'---------------------------------------------------------------------------
打开数据库,并且得到正确数据控制指针
<% set rs=server.CreateObject("adodb.recordset")
rs.open "数据库名 order by 某条件",conn,1,1
i=rs.recordcount
for o=1 to perpages*(page-1)
rs.movenext
next
for o=1 to perpages%>
中间需要循环显示的内容
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing%>
'---------------------------------------------------------------------------
设置页面总数 fix()函数为取整,只取整数部分
<%totalpages=fix(i/perpages)
if totalpages<1 then
totalpages=1
else if totalpages=i/perpages then
totalpages=i/perpages
else
totalpages=totalpages+1
end if
end if%>
'---------------------------------------------------------------------------
设置翻页
全部共有<%=i%>条信息 第<%=page%>/<%=totalpages%>页
<%if page>1 then%><a href=某文件?keyword=<%=keyword%>>首页</a><%else%>首页<%end if%>
<%if page>1 then%><a href=某文件?page=<%=page-1%>&keyword=<%=keyword%>>上一页</a><%else%>上一页<%end if%>
<%if not page-totalpages=0 then%><a href=某文件?page=<%=page+1%>&keyword=<%=keyword%>>下一页</a><%else%>下一页<%end if%>
<%if page-totalpages=0 then%>尾页<%else%><a href=某文件?page=<%=totalpages%>&keyword=<%=keyword%>>尾页</a><%end if%>
设置每页显示的数=perpages
<%perpages=25
page=request("page")
if page="" then
page=1
end if
keyword=request("keyword")%>
'---------------------------------------------------------------------------
<html>
<head>
<title></title>
</head>
<body>
'---------------------------------------------------------------------------
打开数据库,并且得到正确数据控制指针
<% set rs=server.CreateObject("adodb.recordset")
rs.open "数据库名 order by 某条件",conn,1,1
i=rs.recordcount
for o=1 to perpages*(page-1)
rs.movenext
next
for o=1 to perpages%>
中间需要循环显示的内容
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing%>
'---------------------------------------------------------------------------
设置页面总数 fix()函数为取整,只取整数部分
<%totalpages=fix(i/perpages)
if totalpages<1 then
totalpages=1
else if totalpages=i/perpages then
totalpages=i/perpages
else
totalpages=totalpages+1
end if
end if%>
'---------------------------------------------------------------------------
设置翻页
全部共有<%=i%>条信息 第<%=page%>/<%=totalpages%>页
<%if page>1 then%><a href=某文件?keyword=<%=keyword%>>首页</a><%else%>首页<%end if%>
<%if page>1 then%><a href=某文件?page=<%=page-1%>&keyword=<%=keyword%>>上一页</a><%else%>上一页<%end if%>
<%if not page-totalpages=0 then%><a href=某文件?page=<%=page+1%>&keyword=<%=keyword%>>下一页</a><%else%>下一页<%end if%>
<%if page-totalpages=0 then%>尾页<%else%><a href=某文件?page=<%=totalpages%>&keyword=<%=keyword%>>尾页</a><%end if%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询