查看: 410  |  回复: 0
很实用的AJAX+ASP的提示代码
楼主
发表于 2023年3月10日 14:38

index.asp的内容:

<html>
<head>
<script src="clienthint.js"></script>
</head>
<body>
<form>
	First Name:<input type="text" id="txt1" onkeyup="showHint(this.value)" />
</form>
<p>Suggestions: <span id="txtHint"></span></p>
</body>
</html>

clienthint.js的内容:

var xmlHttp;
function showHint(str) {
    if (str.length == 0) {
        document.getElementById("txtHint").innerHTML = "";
        return;
    }

    xmlHttp = GetXmlHttpObject()

    if (xmlHttp == null) {
        alert("您的浏览器不支持AJAX!");
        return;
    }

    url = "gethint.asp";
    url = url + "?q=" + str;
    url = url + "&sid=" + Math.random();
    xmlHttp.onreadystatechange = stateChanged;
    xmlHttp.open("GET", url, true);
    xmlHttp.send(null);
}

function stateChanged() {
    if (xmlHttp.readyState == 4 && xmlHttp.status==200) {
        document.getElementById("txtHint").innerHTML = xmlHttp.responseText;
    }
}

function GetXmlHttpObject() {
  xmlHttp = null;
  try {
      // Firefox, Opera 8.0+, Safari
      xmlHttp = new XMLHttpRequest();
  }
  catch (e) {
      // Internet Explorer
      try {
          xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
      }
      catch (e) {
          xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
      }
  }
  return xmlHttp;
}

gethint.asp的内容:

<%
response.expires=-1
dim a(30)
'用名字为数组赋值
a(1)="Anna"
a(2)="Brittany"
a(3)="Cinderella"
a(4)="Diana"
a(5)="Eva"
a(6)="Fiona"
a(7)="Gunda"
a(8)="Hege"
a(9)="Inga"
a(10)="Johanna"
a(11)="Kitty"
a(12)="Linda"
a(13)="Nina"
a(14)="Ophelia"
a(15)="Petunia"
a(16)="Amanda"
a(17)="Raquel"
a(18)="Cindy"
a(19)="Doris"
a(20)="Eve"
a(21)="Evita"
a(22)="Sunniva"
a(23)="Tove"
a(24)="Unni"
a(25)="Violet"
a(26)="Liza"
a(27)="Elizabeth"
a(28)="Ellen"
a(29)="Wenche"
a(30)="Vicky"
'从URL取得参数q
q=ucase(request.querystring("q"))
'如果q的长度大于0,则查找所有的hint
if len(q)>0 then
  hint=""
  for i=1 to 30
    if q=ucase(mid(a(i),1,len(q))) then
      if hint="" then
        hint=a(i)
      else
        hint=hint & " , " & a(i)
      end if
    end if
  next
end if
'如果找不到hint,则输出"no suggestion"
'或者输出正确的值
if hint="" then
  response.write("no suggestion")
else
  response.write(hint)
end if
%>

输入类似 an 就可以看到提示了。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com