• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

XMLHTTP实现数据的异步调用

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 26次 | 进入软件测试论坛讨论

领测软件测试网 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>http://asp2004.net</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body onLoad="exe(0);">
<script language="javascript" src="function.js"></script>
<script language="javascript">
var isShow;
var isLoad;
isLoad = new ActiveXObject("Scripting.Dictionary");
//isShow = new ActiveXObject("Scripting.Dictionary");
function exe(id)
{
if (!isLoad.Exists(id))
{
isLoad.add(id,‘’‘’);
loaddata(id);
}
/*
if(isShow.Exists(id))
{
isShow.Remove(id);
}
else
{
isShow.Add(id,‘’‘’);
}
*/
if (id>0)
change1(‘’a‘’+id,‘’b‘’+id);
}
function loaddata(id)
{
eval(‘’c‘’+id).innerHTML = ‘’正在加载。。。‘’;
var xml = new ActiveXObject("Microsoft.XMLHTTP");
xml.open("GET","server.asp?id="+id,false);
xml.send();
var returnvalue = unescape(xml.ResponseText);
var m = returnvalue.split("#");
var str;
str="<table border=‘’0‘’ cellspacing=‘’0‘’ cellpadding=‘’0‘’>";
var i=0,len=m.length-1;
for (;i<len;i++)
{
var n = m[i].split("*");
if ( n[0] > 0 )//有子节点
{
var listtype;
if ( i == len-1 )//最后一个
{
str += "<tr colspan=‘’2‘’ onClick=exe(‘’" + n[1] + "‘’);><td id=‘’b" + n[1] + "‘’ class=‘’menu3‘’>" + n[3] + "</td></tr>";
listtype="list1";
}
else
{
str += "<tr colspan=‘’2‘’ onClick=exe(‘’" + n[1] + "‘’);><td id=‘’b" + n[1] + "‘’ class=‘’menu1‘’>" + n[3] + "</td></tr>";
listtype="list";
}
str += "<tr id=‘’a" + n[1] + "‘’ style=‘’display:none‘’><td id=‘’c" + n[1] + "‘’ class=‘’" + listtype + "‘’></td>";
}
else//叶子节点
{
if ( i == len-1 )//最后一个
{
str += "<tr><td id=‘’b" + n[1] + "‘’ class=‘’file1‘’><a href=‘’" + n[4] + "‘’ target=‘’_blank‘’>" + n[3] + "</a></td></tr>";
}
else
{
str += "<tr><td id=‘’b" + n[1] + "‘’ class=‘’file‘’><a href=‘’" + n[4] + "‘’ target=‘’_blank‘’>" + n[3] + "</a></td></tr>";
}
}
}
str += "</table>";
eval(‘’c‘’+id).innerHTML = str;
}
</script>
<a href="menu.asp">后台管理</a> 异步调用:<br>
<div id="c0"></div>
</body>
</html>


文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网