以某种方式将自动完成Div附加到输入文本框 IIS版本:IIS 8.5 服务器:Windows Server 2012 R2 根文件夹:D:\Sites\Default\WWWRoot 站点目录:D:\Sites\Default\WWWRoot\Website 语言:ASP、JavaScript、HTML、AJAX
所以我建立了这个页面,它有一个搜索框。当您在搜索框中输入名称时,它使用ajax连接到另一个页面,使用搜索条件查询我们的数据库,并在div框中实时返回搜索条目的“like”结果(谢天谢地,这是一个快速返回)。所以我有这个工作。这是我的问题。Div本身需要连接到搜索框,因此它的行为就像谷歌的搜索框一样,因为没有更好的例子,当您键入内容时,自动建议的行为就像搜索字段的下拉菜单。我做了一些研究,看起来HTML5有一个内置的标签,允许这样做。不幸的是,我没有使用HTML5。任何帮助都将不胜感激。我所要做的就是让div在返回结果后像搜索字段中的“下拉菜单”一样运行,如果需要,可以用键盘滚动搜索结果。我还附上了它现在的外观截图(图片左侧)和我希望它如何工作的示例(图片右侧) 提前感谢您的帮助 以下是JavaScript/HTML(主页)的代码:以某种方式将自动完成Div附加到输入文本框 IIS版本:IIS 8.5 服务器:Windows Server 2012 R2 根文件夹:D:\Sites\Default\WWWRoot 站点目录:D:\Sites\Default\WWWRoot\Website 语言:ASP、JavaScript、HTML、AJAX,javascript,html,ajax,autocomplete,autosuggest,Javascript,Html,Ajax,Autocomplete,Autosuggest,所以我建立了这个页面,它有一个搜索框。当您在搜索框中输入名称时,它使用ajax连接到另一个页面,使用搜索条件查询我们的数据库,并在div框中实时返回搜索条目的“like”结果(谢天谢地,这是一个快速返回)。所以我有这个工作。这是我的问题。Div本身需要连接到搜索框,因此它的行为就像谷歌的搜索框一样,因为没有更好的例子,当您键入内容时,自动建议的行为就像搜索字段的下拉菜单。我做了一些研究,看起来HTML5有一个内置的标签,允许这样做。不幸的是,我没有使用HTML5。任何帮助都将不胜感激。我所要做的
var xmlHttp
函数showHint(str、box、thisForm、autoSubmit)
{
如果(str.length==0)
{
document.getElementById(“txtHint”).innerHTML=“”;
返回;
}
xmlHttp=GetXmlHttpObject()
if(xmlHttp==null)
{
警报(“您的浏览器不支持此功能。请手动搜索”);
返回;
}
var url=“gethint.asp”;
url=url+“?q=“+str;
url=url+“&b=“+box;
url=url+“&f=“+thisForm;
url=url+“&a=“+autoSubmit;
url=url+“&sid=“+Math.random();
onreadystatechange=stateChanged;
open(“GET”,url,true);
xmlHttp.send(空);
}
函数stateChanged()
{
if(xmlHttp.readyState==4)
{
document.getElementById(“txtHint”).innerHTML=xmlHttp.responseText;
}
}
函数GetXmlHttpObject()
{
var xmlHttp=null;
尝试
{
//Firefox、Opera 8.0+、Safari
xmlHttp=新的XMLHttpRequest();
}
捕获(e)
{
//Internet Explorer
尝试
{
xmlHttp=新的ActiveXObject(“Msxml2.xmlHttp”);
}
捕获(e)
{
xmlHttp=新的ActiveXObject(“Microsoft.xmlHttp”);
}
}
返回xmlHttp;
}
下面是它侦听到查询的页面的代码:
<!--#include file="Databases.asp"-->
<%
response.expires=-1
Dim rsWords
Dim rsWords_numRows
Dim q
Dim b
Dim hint
q=ucase(request.querystring("q"))
b=(request.querystring("b"))
f=(request.querystring("f"))
a=(request.querystring("a"))
hint=""
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=SQLOLEDB;Data Source=" & DatabaseServerR & ";Integrated Security=SSPI;Network Library=DBMSSOCN;Initial Catalog=" & Database_R & ";"
Set rsWords = Conn.Execute ("SELECT TOP 20 WKR_FLL_NM, WDW_LGON_ID FROM dbo.HPeepzs With(NoLock) WHERE WKR_FLL_NM LIKE'" + q + "%' OR WDW_LGON_ID LIKE'" + q + "%' OR WKR_ID LIKE'" + q + "%' ORDER BY WKR_FLL_NM ASC")
If Not rsWords.EOF Then
'If entrytype = 1 Then
'Do While Not rsWords.EOF
' If trim(hint) = "" Then
' hint = "<a href=""javascript:setTextBox('" & rsWords("PC_Name") & "','" & b & "','" & f & "','" & a & "');"">" & rsWords("PC_Name") & "</a>"
' Else
' hint = hint & "<a href=""javascript:setTextBox('" & rsWords("PC_Name") & "','" & b & "','" & f & "','" & a & "');"">" & rsWords("PC_Name") & "</a>"
' End If
' rsWords.MoveNext()
'Loop
'Else
Do While Not rsWords.EOF
If trim(hint) = "" Then
hint = "<li> <a href=""javascript:setTextBox('" & rsWords("WDW_LGON_ID") & "','" & b & "','" & f & "','" & a & "');"">" & rsWords("WKR_FLL_NM") & " (" & rsWords("WDW_LGON_ID") & ")</a>"
Else
hint = hint & "<li> <a href=""javascript:setTextBox('" & rsWords("WDW_LGON_ID") & "','" & b & "','" & f & "','" & a & "');"">" & rsWords("WKR_FLL_NM") & " (" & rsWords("WDW_LGON_ID") & ") </a>"
End If
rsWords.MoveNext()
Loop
'End If
End If
if trim(hint)="" then
response.write("Unable To Find Your Search")
else
response.write(hint)
end if
rsWords.Close()
Conn.Close
Set rsWords = Nothing
Set Conn = Nothing
%>
所以,我已经知道该怎么做了。我只是把div放在搜索字段下面,它作为一个弹出式下拉菜单,当使用边距样式输入搜索时弹出
<div id="txtHint" style="position:absolute;margin-top:2px;margin-left:0px;z-index: 99 !important;"></div>
Hi@jrp1982如果您有不同的问题,那么在回答中提问是不正确的。相反,你应该问一个新的问题。所以,只需删除问题部分。如果您需要访问该内容,但不知道如何访问。
<div id="txtHint" style="position:absolute;margin-top:2px;margin-left:0px;z-index: 99 !important;"></div>