asp+ajax简单查询

kingsjava 2009-03-18 03:34:27

文件：index.html
---------------------
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE> My Documents </TITLE>
</HEAD>
<style>

</style>

<BODY>
<form name="form1" method="get">
<input type="text" name="searcha" id="searcha"> <input type="button" value="查询" onClick="javascript:f1();">
</form>
<div id="disp">
</div>
</BODY>
</HTML>
<script language="javascript" type="text/javascript">
function f1()
{
if(document.form1.searcha.value=="")
{
alert('请输入要查询的内容');
return false;
}

var xmlhttp;

var s="";
var searcha=document.getElementById("searcha").value;
var xmlhttp;
try
{
xmhttp=new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e)
{
try
{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
catch (e)
{
try
{
xmlhttp=new XMLHttpRequest();
}
catch (e)
{
}
}
}
xmlhttp.onreadystatechange=function()
{
if(4==xmlhttp.readyState)
{
if(200==xmlhttp.status)
{
var xmldoc=xmlhttp.responseXML;
var message_nodes=xmldoc.getElementsByTagName("message");
var n_messages=message_nodes.length;
for (i=0;i<n_messages;i++)
{
var user_node=message_nodes[i].getElementsByTagName("user")[0].firstChild.data;
var text_node=message_nodes[i].getElementsByTagName("text")[0].firstChild.data;
var time_node=message_nodes[i].getElementsByTagName("time")[0].firstChild.data;
s=s+"<b>用户名：</b>"+user_node+"<br><b>留言:</b>"+text_node+"<br><b>发言时间：</b>"+time_node+"<br><br>";
}
document.getElementById("disp").innerHTML=s;
}
else
{
document.getElementById("disp").innerHTML="无数据";
}
}
}
var url="search.asp?searcha="+escape(searcha)+"&t="+new Date().getTime();
xmlhttp.open("get",url,true);
xmlhttp.send(null);

}
</script>
---------------------
文件：search.asp
---------------------

<%getdataconnection%>
<%
dim text
text=Trim(request("searcha"))
Response.ContentType="text/xml"
str="<?xml version=""1.0"" encoding=""gb2312""?>"&vbnewline
str=str&"<root>"&vbnewline
set rs=server.createobject("adodb.recordset")
sql="select y_username,y_message,y_time from ly where y_username like '%"&text&"%' order by y_time desc"
rs.open sql,dataconn,1,1
If rs.eof Then
str="搜索不到您想要的信息"
Else

i=1
Do While Not rs.eof
str=str&"<message id="""&i&""">"&vbnewline
str=str&" <user>"&(rs("y_username"))&"</user>"&vbnewline
str=str&" <text>"&(rs("y_message"))&"</text>"&vbnewline
str=str&" <time>"&(rs("y_time"))&"</time>"&vbnewline
str=str&"</message>"&vbnewline
i=i+1
rs.movenext
loop

End If
str=str&"</root>"
response.write str
rs.close
set rs = nothing

closedataconnection
%>
-----------------
出现错误情况：
用微软IE7。0：
错误：'undefined' is null or not an object
使用 Firefox浏览器出现的错误：
如果输入表中没有的数据进行查询，页面没反应，
输入有效的数据进行查询，是正常的，但IE7。0中输入有效的数据也不能查询，页面依然
出现同样的错误，请求解决。谢谢

...全文