Asp+Ajax二级联动完美实现方法

作者：袖梨 2022-06-29

Asp+Ajax二级联动完美实现方法

Asp+Ajax二级联动

<select name="BId" onChange="getoId(this.value,'');">

    <%
Dim oRs,oSQL
Set oRs = server.CreateObject("adodb.recordset")
oSQL = "Select id,oTitle,oPx From News_Cls Where oId = 0 Order by oPx asc"
oRs.Open oSQL,Conn,1,1
If (oRs.EOF And oRs.BOF) Then
Response.Write("")
Else
Do While Not oRs.EOF
  Response.Write("")
oRs.MoveNext
Loop
End If
oRs.Close:Set oRs = Nothing
%>

ajax代码

/*--------------------------------------------------------------------
*
*创建一个XMLHttp实例
*return object 成功创建返回一个XMLHttp对象实例,否则返回false
*
*--------------------------------------------------------------------
*/
function CreateAjax(){
var XMLHttp;
try
{
   XMLHttp = new ActiveXObject("Microsoft.XMLHTTP");   //IE的创建方式
}
catch(e)
{
   try
   {
    XMLHttp = new XMLHttpRequest();     //FF等浏览器的创建方式
   }
   catch(e)
   {
    XMLHttp = false;        //创建失败，返回false
   }
}
return XMLHttp;     //返回XMLHttp实例
}
//--------------------------------------------------------
//  ASP编程网
//  http://www.111com.net/
//  Asp+Ajax联动二级联动,转载请保留此信息
function getoId(ids,sId){
var xmlHttp = CreateAjax();
var urlLink = 'List10.asp?oId='+ids+'&sId='+sId+'&n='+Math.random()+'';
if(xmlHttp){
  xmlHttp.open('GET',urlLink,true);
  xmlHttp.onreadystatechange=function(){
   if(xmlHttp.readyState == 4){  //客户端完成请求
      if(xmlHttp.status == 200){ //服务端完成处理并返回数据
       var ResponseText = xmlHttp.responseText;
       if(ResponseText == ""){ //service返回了错误信息
         //alert("yes");
        SmClass.innerHTML = ResponseText;
       }else{
        //alert("no");
        SmClass.innerHTML = ResponseText;
       }
      }else{
       SmClass.innerHTML = '服务器返回异常...';//服务器出现异常
      }
     }else{
     SmClass.innerHTML = '正在加载数据...';//请求未完成时的提示信息
   }
  }
  xmlHttp.send(null);//向服务器发送请求
}else{
  SmClass.innerHTML = '您的浏览器不支持或未启用 XMLHttp!';//创建未成功
}
}

List10.asp

Response.Charset = "GB2312"
Dim outStr,oRs,oSQL
oId = Request("oId")
sId = Request("sId")
If (oId = "" Or IsNull(oId)) Then
outStr = ""
Else
outStr = ""
Set oRs = Nothing
End If
Response.Write(outStr)

conn.asp

Dim Mdb,Conn,ConnStr
Mdb="DataBase/AdSl.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Mdb) & " "
Conn.open ConnStr
Sub CloseConn()
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
End Sub

Asp+Ajax二级联动完美实现方法

相关文章

精彩推荐