实现无刷新加载数据(asp+ajax)

<div id="newphotos">数据载入中……</div>

<script language="JavaScript">

function getXML(URL){

         if (window.XMLHttpRequest)         {             var xmlhttp = new XMLHttpRequest();

        }         else         {             var MSXML = ['MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP', 'Microsoft.XMLHTTP'];             for(var n = 0; n < MSXML.length; n ++)             {                 try                 {                     var xmlhttp = new ActiveXObject(MSXML[n]);                     break;                 }                 catch(e)                 {                 }             }    }         xmlhttp.Open("GET", URL, false);         try{                 xmlhttp.Send();                 var result = xmlhttp.status;         }         catch(e){                 return(false);         }         if(result==200){                newphotos.innerHTML=unescape(xmlhttp.responseText);         }         var xmlhttp = null; }

function update(){          getXML('ajaxserver/newphoto.asp?placeid=<%= placeid %>&placecityid<%= placecityid %>'); }

setInterval("update()",1000);

</script>

 

asp文件

newphoto.asp

<!--#include file="include.asp" --> <% placeid=Request("placeid") placecityid=Request("placecityid") xmlhttp="" xmlhttp=xmlhttp&"<table width=""99%"" height=""149"" border=""0"" align=""right"" cellpadding=""3"" cellspacing=""0"" class=""fuangkuanghs"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&"<td valign=""top""><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&"<td height=""20"" align=""left"" class=""textblue""><table width=""396"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&" <td width=""65%""><a href=""http://www.jiluyisheng.com/photo.asp?placeid="&placeid&"&placecityid="&placecityid&"""><img src=""images/index/index_01.jpg"" width=""349"" height=""23"" border=""0""></a></td>"&chr(13) xmlhttp=xmlhttp&"<td width=""35%""><a href=""http://www.jiluyisheng.com/photo.asp?placeid="&placeid&"&placecityid="&placecityid&""" target=""_self""><img src=""images/index/index_02.jpg"" width=""47"" height=""23"" border=""0""></a></td>"&chr(13) xmlhttp=xmlhttp&"</tr>"&chr(13) xmlhttp=xmlhttp&"</table>"&chr(13) xmlhttp=xmlhttp&"</td>"&chr(13) xmlhttp=xmlhttp&"</tr>"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&"<td valign=""top""><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) set rs=userconn.execute("select top 3 weburl,photo_name,Photo_smallimg,idx_photo,jiuid,hits from v_jiphoto where weburl<>'' and iflag=2 and priv=1 "&where_str&" order by idx_photo desc") 'set rs=userconn.execute("select top 5 * from jiphoto where weburl<>'' and systype=5 order by idx_photo desc") if not rs.eof then do while not rs.eof weburl=rs("weburl") if weburl<>"" then web= Replace(weburl,"http://","") picurl=weburl&"/Uploadfile/"&web& "/Photo/smallimg/" & rs("Photo_smallimg") else picurl="images/h3.gif" end if xmlhttp=xmlhttp&"<td height=""25"" align=""center""><table width=""99%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&"<td height=""12"" align=""center""><table width=""123"" height=""93"" border=""1"" cellpadding=""3"" cellspacing=""0"" bordercolor=""#cccccc"" style=""BORDER-COLLAPSE: collapse"">"&chr(13) xmlhttp=xmlhttp&"<tr>"&chr(13) xmlhttp=xmlhttp&"<td width=""123"" height=""93"" align=""center""><a target=blank href="&weburl&"/photo.asp?idx_photo="&rs("idx_photo")&"&jiuid="&rs("jiuid")&"><img src="&picurl&" onload=""

相关内容推荐

怎样用ASP压缩文件

多数的时候我们需要压缩文件,保存到特定的位置,或者你可以使用它实现所有你想要的效果。 我们需要服务器支持WScript.Shell-多数的站长都不会允许这样的。 这里你可以获取下载链接

html中用js调用ASP文件,实现静态页面动态显示

html中用js调用ASP文件,实现静态页面动态显示,比如HMTL文章的动态新闻评论等 ---简单版[调用代码,把他放哪儿,就在哪儿显示]-------- script language="javascript" src="asdf.asp"/script-----asdf.asp文

用ASP生成Excel文件

用asp生成Excel文件不是像我认为的那么容易。我想这小段代码应该能帮助大家找到输出数据到csv和xls的方法。 %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%meta http-equiv="Content-Type" content="text/html; charset=

实现多条件模糊查询SQL语句

很多网友问到如何写模糊查询语句和多条件查询,这里我整理了一下,假设以姓名、性别、电话号...作为数据库中的字段名。 通常写一个简单的模糊查询的SQL语句格式可以如下例: sq

获得当前页面地址和来路地址

当前页面地址: html="http://" html=htmlRequest.ServerVariables("Server_Name") html=htmlRequest.ServerVariables("URL") ifrequest.ServerVariables("QUERY_STRING")""then html=html"?"Request.ServerVariables("QUERY_STRING") endif session("

返回
顶部