ASP AJAX DEMO - TOMMYHU - 专注互联网开发及运营技术,提供相关资料及软件下载,奇趣网络时事评论!
Mar 4

ASP AJAX DEMO 不指定

tommyhu , 17:42 , ASP , Comments(0) , Trackbacks(0) , Reads(7773) , Via Original Large | Medium | Small
现在都流行无刷新,强调用户体验,最近TOMMY也有用到,拿出来分享了!
]第一部分:使用

<script language="javascript" type="text/javascript" src="Ajax-cbi.js"></script>
<a onclick="Selsle(  <%=rs("id")>  );" name="Firsto<%=rs("id")> " id="Firsto<%=rs("id")>" ><%=rs("name")></a>
<div name="content" id="content">内容显示区域..</div>


第二部分:Ajax-cbi.js

var xmlHttp = createXmlHttpRequest();  
function createXmlHttpRequest()  
{  
var xmlhttp = null;  
try  
{  
xmlhttp = XMLHttpRequest();  
}  
catch(e1)  
{  
try  
{  
xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");  
}  
catch(e2)  
{  
try  
{  
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");  
}  
catch(e3)  
{  
xmlhttp = false;  
alert("创建失败!");  
}  
}  
}  
return xmlhttp;  
}  



function Selsle(id)  
{  
if (xmlHttp.readyState == 4 || xmlHttp.readyState == 0)  
{
xmlHttp.open("get","ajax-services.asp?CValue=" + id ,true);    //这里需要修改

xmlHttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
xmlHttp.onreadystatechange = handSearchRequest;  
xmlHttp.send(null);  
}  
}  

function handSearchRequest()  //更新页面函数
{  
  var diven = document.getElementById("CONTENT"); //要更新的区域的div id
  if (xmlHttp.readyState == 4)  
  {  
    diven.innerHTML = xmlHttp.responseText;
  }  
}  


第三部分:服务端ajax-services.asp

<!--#include virtual="conndb.asp"-->
<%  
Response.Charset="GB2312"
Dim CValue '定义获取变量
Dim CyKeyValue  '更新区域将要现实的值
CValue = Trim(Request.QueryString("CValue"))
IF CValue = "" then
  CyKeyValue = "<div id='CONTENT' name='CONTENT'>"  
  CyKeyValue = CyKeyValue & "内容显示区域.."
  CyKeyValue = CyKeyValue & "</div>"
  Response.Write CyKeyValue
  CyKeyValue = ""
Else  
       CyKeyValue = "<div id='CONTENT' name='CONTENT'>"
      CyKeyValue = CyKeyValue & VIEWCONTENT(CValue)    //这里更新的内容 写成函数方便维护
            CyKeyValue = CyKeyValue & "</div>"
      Response.Write CyKeyValue
End IF  
%>
<%
Function VIEWCONTENT(CValue)
……
……
……
END FUNCTION
%>


▲返回顶部
Last modified by tommyhu on2010/03/04 17:48

Add a comment

Nickname

emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot