谁有使用xmlhttp在客户端实现点击表格一行，删除服务器数据库数据的例子---分不够另加

你搜索一下这方的帖子。在客户段和服务器端分别处理，但客户端不用刷新。用的是xmlHttp协议传输的xml文件，吧你想要的数据存到一个新建的xml文当中，。
手头没现成的例子！

解决方案 »

  1.   

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>新闻</title>
    <!--#include file="inc/conn.asp"-->
    <script language="vbscript">
    '数据外理'
    Function bstr(vIn)
    Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
    strReturn = ""
    For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
    Else
    NextCharCode = AscB(MidB(vIn,i+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i = i + 1
    End If
    Next

    bstr = strReturn
    End Function
    </script>
    <script language=javascript>
    var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
    function show(id){
    var sid=eval("content"+id);
    var pid=eval("plus" + id);
    if (sid.style.display=="none"){
    sid.style.display="";
    pid.src="image/del.gif";
    xmlhttp.open("get","news_content.asp",false);//news_content.asp中可执行删除操作,用request("id")接受变量
    xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    xmlhttp.send("id="+id);
    sid.innerHTML="正在读取数据....";
    setTimeout("disp("+id+")",1000);
    }else
    {
    //sid.innerHTML="";
    sid.style.display = "none";
    var pid=eval("plus" + id);
    pid.src="image/plus.gif";
    }
    }function disp(id){
    var sid=eval("content"+id);
    sid.innerHTML = bstr(xmlhttp.responseBody);
    }
    </script><link href="style/style.css" rel="stylesheet" type="text/css">
    </head><body bgcolor="#FFFFFF">
    <%
    set rs = server.CreateObject("adodb.recordset")
    sql="select distinct kind from [news]"
    rs.open sql,conn,1,1
    dim kind
    str=""
    do while not rs.eof
    str =str + rs("kind")+","
    rs.movenext
    loop
    response.write left(str,len(str)-1)
    'response.End()
    kind=split(left(str,len(str)-1),",")
    rs.close
    'response.end
    %><table width="52%" height="46" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#0099FF">
      <%
    sql="select * from [news] where kind = '" & kind(0)&"'"
    rs.open sql,conn,1,1
    %>
      <tr> 
        <td height="20">&nbsp;<%=kind(0)%></td>
      </tr>
      <%
    do while not rs.eof 
    %>
      <!--<tr background="image/line.gif"> 
        <td height="1" colspan="2"><img src="image/line.gif" width="1" height="3"></td>
      </tr>
      -->
      <tr> 
        <td title="<%response.write rs("title") & " 阅读次数" & rs("times")%>"><a href="javascript:show(<%=rs("id")%>)" ><img src="image/plus.gif" width="15" height="15" border="0" id=<%response.write  "plus" & rs("id")%>></a> 
          <%response.write "<a href=news_detail.asp?id=" &rs("id")&" target='_self'>" & rs("title") & "</a> 阅读次数 "&rs("times")%></td>
      </tr>
      <tr> 
        <td width="7%" height=0 id="content<%=rs("id")%>" style="display:none"></td>
      </tr>
      <%rs.movenext
      loop%>
      <tr><td align=right><a href=morenews.asp?kind=<%=kind(0)%>>更多...</a></td></tr>
    </table>
    </body>
    </html>
    <%
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %>