+ -
当前位置:首页 → 问答吧 → 在线等,急。。。。请各位大哥帮忙,,,急,,,请大家帮一下忙

在线等,急。。。。请各位大哥帮忙,,,急,,,请大家帮一下忙

时间:2011-08-31

来源:互联网

a.asp主页:<BODY topMargin=0 onLoad="makeRequest("csd.asp")">


 <div id="Show"> </div>

jsp:

function makeRequest(url) {
http_request = false;
if (window.XMLHttpRequest) {
http_request = new XMLHttpRequest();
if (http_request.overrideMimeType){
http_request.overrideMimeType(text/xml);

} else if (window.ActiveXObject) {
try{
http_request = new ActiveXObject("Msxml2.XMLHTTP"); 
} catch (e) {
try {
http_request = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {
}
}

if (!http_request) {
alert("您的浏览器不支持当前操作,请使用 IE 5.0 以上版本!");
return false;
}


//定义页面调用的方法init,不是init();没有();
http_request.onreadystatechange = init; 
http_request.open(GET, url, true); 

//禁止IE缓存
http_request.setRequestHeader("If-Modified-Since","0"); 

//发送数据
http_request.send(null);

//每60秒刷新一次页面
setTimeout("makeRequest("+url+")", 10000); 
}

function timer( fun_name )
{
  window.setInterval( fun_name+"();" , 1500 )
}

function init() { 
if (http_request.readyState == 4) {
if (http_request.status == 0 || http_request.status == 200) {
var msg_str = http_request.responseText;
if(msg_str==""){
msg_str = "";
}
document.getElementById ("Show").innerHTML=""+msg_str; 
} else {//http_request.status != 200
alert("!");
}
}
}


显示内容:

<%

sub show()
  sql22="select top 12 * from music1 order by postid desc"

  set rs22=server.createobject("adodb.recordset")

  rs22.open sql22,conn,1,1
   
  dim msg_str
do while not rs22.eof 
  msg_str=msg_str & "'" & rs22( "content" ) & "'"
  rs22.movenext
  loop
   
  end sub
%>


这些在主页a.asp显示不出来,,急,,,请大家帮一下忙

作者: asdfgh4846   发布时间: 2011-08-31


<BODY topMargin=0 onLoad="makeRequest('9.asp')">


http_request.open("GET", url, true);  

作者: cosler   发布时间: 2011-08-31