Ajax按需读取数据生成下级菜单

jilian.htm

<script language="javascript">
var http_request=false;
function send_request(url){//初始化,指定处理函数，发送请求的函数
http_request=false;
//开始初始化xmlhttprequest对象
if(window.xmlhttprequest){//mozilla浏览器
http_request=new xmlhttprequest();
if(http_request.overridemimetype){//设置mime类型
http_request.overridemimetype("text/html");
}
}
else if(window.activexobject){//ie浏览器
try{
http_request=new activexobject("xsxml2.xmlhttp");
http_request.setrequestheader("content-type","text/xml");
http_request.setrequestheader("content-type","gb2312");
}
catch(e){
try{
http_request=new activexobject("microsoft.xmlhttp");
http_request.setrequestheader("content-type","text/xml");
http_request.setrequestheader("content-type","gb2312");
}
catch(e){
}
}
}
if(!http_request){//异常，创建对象实例失败
window.alert("不能创建xmlhttprequest对象实例");
return false;
}
http_request.onreadystatechange=processrequest;
//确定发送请求的方式和url以及是否同步执行下段代码
http_request.open("get",url,true);
http_request.send(null);
}
//处理返回信息的函数
function processrequest(){
if(http_request.readystate==4){//判断对象状态
if(http_request.status==200){//信息已经成功返回，开始处理信息
document.getelementbyid(currentpos).innerhtml=http_request.responsetext;
}
else{//页面不正常
alert("您所请求的页面有异常");
}
}
}
function showroles(obj){
document.getelementbyid(obj).parentnode.style.display="";
document.getelementbyid(obj).innerhtml="正在读取数据..."
currentpos=obj;
send_request("jilian_data.asp?playpos="+obj);
}
</script>

<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<a href="javascript:void(0)" onclick="showroles('pos_1')">经理室
</a>
</td>
</tr>
<tr style="display:none">
<td height="20" id="pos_1"> </td>
</tr>
<tr>
<td height="20">
<a href="javascript:void(0)" onclick="showroles('pos_2')">开发部</a>
</td>
</tr>
<tr style="display:none">
<td id="pos_2" height="20"> </td>
</tr>
</td>
</table>

jilian_data.asp

<%@language="vbscript" codepage="936"%>
<%
playpos=request("playpos")
if playpos="pos_1" then
response.write("  jingli<br>  副总经理")
end if
if playpos="pos_2" then
response.write("  总工程师<br>  软件工程师")
end if
%>