Function classlist (ID)
{
If (ID> 0)
{
VaR url = "INC/classlist. asp? Parentid = "+ ID +" & RD = "+ math. Random ();
XMLHTTP = getxmlhttpobject (statechanged)
XMLHTTP. Open ("get", URL, true)
XMLHTTP. Send (null)
}
}
Function statechanged ()
{
If (XMLHTTP. readystate = 4 | XMLHTTP. readystate = "complete ")
{
VaR TXT = Unescape (XMLHTTP. responsetext);/* use JS encoding for conversion in the receiving part */
If (txt! = NULL & txt! = "")
{
VaR shuzu = new array ();
VaR resp = "";
Shuzu = TXT. Split (",");
For (VAR I = 0; I <shuzu. length; I ++)
{
VaR lxsz = new array ();
Lxsz = shuzu [I]. Split ("| ");
Resp = resp + "<a href =" + lxsz [0] + ">" + lxsz [1] + "</a>"
}
$ ("Erjiclass"). innerhtml = resp;
}
Else
{
$ ("Erjiclass"). innerhtml = "ASDFASDF ";
}
}
}
Response. expires =-1
Parentid = request. querystring ("parentid ")
Response. Write (escape (getsmallclass ("smallclass", parentid)/* js conversion in the sending part */