当前位置: 网学 > 编程文档 > ASP > 正文

asp实现dig功能的js代码

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/06/16

网学网为广大网友收集整理了,asp实现dig功能的js代码,希望对大家有所帮助!

//ajax 控件
function DiggAjax(){
var xhrObj=null;
if(window.XMLHttpRequest){
xhrObj=new XMLHttpRequest();
}
else if(window.ActiveXObject){
try{
xhrObj=new ActiveXObject("Microsoft.XMLHTTP");
}
catch(e1)
{
try{
xhrObj=new ActiveXObject("MSXML2.XMLHTTP");
}
catch(e2){
try{
xhrObj=new ActiveXObject("MSXML3.XMLHTTP");
}
catch(e3){
alert("创建Ajax失败:"+e3)
}
}
}
}
else
{
alert("未能识别的浏览器");
}
return xhrObj;
}
var loader=new DiggAjax;
function ajaxLoadPage(url,request,method,fun)
{
method=method.toUpperCase();
if (method==''GET'')
{
urls=url.split("?");
if (urls=='''' || typeof urls==''undefined'')
{
url=urls[0]+"?"+request;
}
else
{
url=urls[0]+"?"+urls+"&"+request;
}

request=null;
}
loader.open(method,url,true);
if (method=="POST")
{
loader.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
}
loader.onreadystatechange=function(){
eval(fun+''()'');
}
loader.send(request);
}
function callbacks()
{
if (loader.readyState==4)
{
var s=loader.responseText;
switch (s)
{
case "err":
alert(''digg error!'');
break;
case "over":
alert(''你已推荐过了!'');
break;
case "nologin":
alert(''您还没有登录,不能推荐!'');
break;
default:
var sarr=s.split(''|'');
eval("document.all.s"+sarr[0]).innerHTML=sarr;
eval("document.all.d"+sarr[0]).innerHTML="Thanks";

}

}
}


//Digg
function digg(channelid,infoid,installdir)
{
ajaxLoadPage(installdir+''plus/digg.asp'',''action=hits&ChannelID=''+channelid+''&infoid='' +infoid,''post'',''callbacks'');

}
function show_digg(channelid,infoid,installdir)
{
var xhr=new DiggAjax();
xhr.open("get",installdir+"plus/digg.asp?channelid="+channelid+"&infoid="+infoid+"&action=show",true);
xhr.onreadystatechange=function (){
if(xhr.readyState==1)
{
eval("document.all.s"+infoid).innerHTML="<img src=''"+installdir+"images/loading.gif''>";
}
else if(xhr.readyState==2 || xhr.readyState==3)
{
eval("document.all.s"+infoid).innerHTML="<img src=''"+installdir+"images/loading.gif''>";
}
else if(xhr.readyState==4)
{
if (xhr.status==200)
{
var r=xhr.responseText
var rarr=r.split(''|'');
eval("document.all.s"+infoid).innerHTML=rarr;
}
}
}
xhr.send(null);
}

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号