<form name="form1">
会计主目： <input type="text" name="acc_main" onfocus="getpara()">
会计子目:<select name="sub_acc"></select>
function getpara()
{
if(document.form1.acc_main.value.length==0){return;}//为空返回
var id=document.form1.acc_main.value.split(">")[1];
createXMLHttpRequest();
url='search_subaccinfo.asp?id='+id+'&s='+ new Date().getTime();
xmlHttp.open('GET',url,true);
xmlHttp.onreadystatechange=function(){homel(xmlHttp)};
xmlHttp.send(null);
}
function homel(x)
{
if (x.readyState==4){
if(x.status==200||x.status==0){
var s=x.responseText;
for(var i=0;i<=s.length;i++)
{
var obj=document.form1.sub_acc;
obj.options[obj.options.length]=new Option(s);
}
}
}
}
function homel(x)
{
if (x.readyState==4){
if(x.status==200||x.status==0){
var s=x.responseText;
var bb=s.split(",");
for(var i=0;i<=bb.length;i++)
{
var obj=document.form1.aa;
obj.options[obj.options.length]=new Option(bb[i]);
}
}
}
}
<!--#include file=你的连库文件.asp-->
<%
response.charset="gbk"
dim aaaaaaa
aaaaaaa=Request.QueryString("aaaaaaa")
if strSearch<>"" then
Response.Write GetData(aaaaaaa): Response.End
end if
private function GetData(str)
on error resume next
set rsAjax=server.CreateObject("adodb.recordset")
sql="SELECT ID, sName FROM 表 WHERE 字段 LIKE '%"&str&"%'"
rsAjax.open sql,conn,1,1
s=""
do while not rsAjax.eof
if s="" then s=rsAjax(0)&"|"&rsAjax(1) else s=s&","&rsAjax(0)&"|"&rsAjax(1)
rsAjax.movenext
loop
if s="" then s="NULL"
release rsAjax
release conn
if err then s="@error:"&err.description
GetData=s
end function
sub release(o)
if not isobject(o) then exit sub
if o.state<>0 then o.close
set o=nothing
end sub
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.CharSet="GBK"
Response.ContentType="text/xml"
%>
<%err.clear
on error resume next
dim rule
rule=request.QueryString("id")
dim sid(),sname()
sql="select aid,subacc_name_en,subacc_name_cn,subacc_code from subacc_info where aid in (select subacc_id from acc_ref_info where acc_main_id="&rule&")"
response.Write sql
set rs=server.CreateObject("Adodb.recordset")
rs.open sql,conn,1,1
i=0
do while not rs.eof
redim preserve sid(i),sname(i)
sid(i)=rs(0)
sname(i)=selectlanguage_fun(userdefault_language,""&rs(2)&"",""&rs(3)&"")
response.Write sid(i)&"|"&sname(i)&","
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
function $(id){return document.getElementById(id)}
function homel(x){
if (x.readyState==4){
if(x.status==200||x.status==0){
var s=x.responseText;
//alert(s)//这个字串格式对了吗？
if(s==''){return}
if(s.indexOf('@error:')!=-1){ alert('出现错误：'+s.replace('@error:','')); return; }
if (s=="NULL"){alert('查无此项！请改变关键字再试。');}
else{
//debugger;//加入这句，IE下调试用，用后删除
var o=$('aa'); o.length=1//delete all
var arr=ret.split(","), arr1=[], z=0, opt=null;
for(z=0; z<arr.length; z++){
arr1=arr[z].split("|")
opt=document.createElement("OPTION")
opt.value=arr1[0]; opt.text=arr1[1];
o.options.add(opt)
}
}
}
}
}
<%rule=request.QueryString("id")
if rule<>"" then
response.write GetData(rule)
response.End()
end if
private function GetData(rule)
on error resume next
set rsAjax=server.CreateObject("adodb.recordset")
sql="select aid,subacc_name_en,subacc_name_cn,subacc_code from subacc_info where aid in (select subacc_id from acc_ref_info where acc_main_id="&rule&")"
rsAjax.open sql,conn,1,1
s=""
do while not rsAjax.eof
if s="" then s=rsAjax(0)&"|"&rsAjax(1) else s=s&","&rsAjax(0)&"|"&rsAjax(1)
rsAjax.movenext
loop
if s="" then s="NULL"
release rsAjax
release conn
if err then s="@error:"&err.description
GetData=s
end function
sub release(o)
if not isobject(o) then exit sub
if o.state<>0 then o.close
set o=nothing
end sub
%>function homel(x)
{
if (x.readyState==4){
if(x.status==200||x.status==0){
var s=x.responseText;
var bb=s.split(",")
var arr=[];
var obj=document.form1.aa;
obj.options.length=0//重置下拉菜单
if(s==''){
obj.options[obj.options.length]=new Option("没有会计子目");
}
else
{
for(var i=0;i<=bb.length;i++)
{
arr=bb[i].split("|")
if(arr!="")
{
value=arr[0];
text=arr[1];
obj.options[obj.options.length]=new Option(value+">"+text);
}
}
}
}
}
}
