当前位置: 首页 > 图文教程 > 网络编程 > ASP > AJAX简单应用实例-弹出层

ASP
ASP简单入门教程(2):ASP环境配置
ASP简单入门教程(3):ASP语法
ASP简单入门教程(4):ASP变量
ASP简单入门教程(5):ASP子程序
HTTP 500 - 内部服务器错误(补充内容)
ASP教程:IIS中配置多站点
ASP实例教程:Content Rotator (ASP 3.0)
ASP实例教程:Content Linking组件
ASP实例教程:Browser Capabilities组件
ASP实例教程:AdRotator组件
ASP实例教程:Dictionary对象
ASP实例教程:File对象
ASP实例教程:Drive对象
ASP实例教程:TextStream对象
关于学习ASP的20个测试题目
ASP实例教程:Server对象
ASP实例教程:Session对象
ASP实例教程:用户信息和服务器
asp教程:解决IIS安装问题
ASP网站数据库被挂木马的处理办法

ASP 中的 AJAX简单应用实例-弹出层


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 142 ::
收藏到网摘: n/a

AJAX的简单应用,包括js弹出DIV层、层拖动、ajax后台读取数据!注意getinfo.asp文件是以utf-8格式保存的,在getinfo.asp里面可以写读数据库代码! function createobj() {
if (window.ActiveXObject) {
return(new ActiveXObject("Microsoft.XMLHTTP"));
}
else if (window.XMLHttpRequest) {
return(new XMLHttpRequest());
}
}

function personalInfo() {
var oBao=createobj();
var cont=document.getElementById("person_detial");
var cont_a=document.getElementById("person_content");
cont.style.display='block';
cont.style.cursor='pointer';
cont_a.innerHTML="请等待,加载中...";
var my_url="getinfo.asp?"+Math.random();
oBao.open("get",my_url,true);
oBao.onreadystatechange=function(){
if(oBao.readyState==4){
if(oBao.status==200){
cont_a.innerHTML=oBao.responseText;
}else{
cont_a.innerHTML="出现错误,错误代码为:"+oBao.status;
}
}
}
oBao.send();
}

function Drag(id)
{
var self=this;
this.obj=(typeof(id)=="string")?document.getElementById(id):id;
this.obj.onmousedown=function(e)
{
e=e||window.event;
var obj=self.obj;//指向自己
if(e.layerX){obj.position={x:e.layerX,y:e.layerY};}
else{obj.position={x:e.offsetX,y:e.offsetY};}
document.onmousemove=self.start;
document.onmouseup=self.end;

}
this.start=function(e)
{
e=e||event;
document.onselectstart = function(){ return false; };
window.getSelection && window.getSelection().removeAllRanges();
var obj=self.obj;
obj.style.left=e.clientX-obj.position.x+"px";
obj.style.top=e.clientY-obj.position.y+"px";
}
this.end=function(e)
{
e=e||event;
document.onmousemove = document.onmouseup = document.onselectstart = null;
}
}
AJAX简单应用实例-弹出层.rar