asp中的数据即时刷新

最新推荐文章于 2022-08-31 17:00:05 发布
最新推荐文章于 2022-08-31 17:00:05 发布
阅读量1.3k 收藏
点赞数
分类专栏： ASP相关 文章标签： asp session javascript function border sql
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bridgehead/article/details/1547379
版权

      为了实现股票的市值即时刷新，需要编写一段 AJAX程序。先将程序列出，然后再说明：

这个页面判断股票代码为上证，还是深证：SERVER2.ASP

< %
     ' 判断获得的股票代码标志位
    
     dim  code,Ncode,StockName
    Ncode = request( " gpdm " )
    session( " Ncode " ) = request( " gpdm " )  
     if  Ncode = ""   then  Ncode = " 600000 "
    
     if   left (Ncode, 3 ) = " 399 "   then  response.Redirect( " hq1.asp?code= " & Ncode)
    
     if   left (Ncode, 1 ) = " 0 "   or   left (Ncode, 1 ) = 1   then
        code = " 21 " & Ncode
     else
        code = " 11 " & Ncode
     end   if
    
    
     Select   Case   left (Ncode, 3 )   
       Case   " 000 "
          code = " 21 " & Ncode
       Case   " 001 "
          code = " 21 " & Ncode
       Case   " 002 "
        code = " 21 " & Ncode
       Case   " 003 "
          code = " 21 " & Ncode
       Case   " 030 "
          code = " 21 " & Ncode
       Case   " 038 "
          code = " 21 " & Ncode
       Case   " 009 "
          code = " 11 " & Ncode
       Case   " 010 "
          code = " 11 " & Ncode
       Case   " 090 "
        code = " 11 " & Ncode
       Case   " 099 "
          code = " 11 " & Ncode
       Case   " 110 "
          code = " 11 " & Ncode
       Case   " 111 "
          code = " 21 " & Ncode
       Case   " 119 "
          code = " 21 " & Ncode
       Case   " 120 "
          code = " 11 " & Ncode
       Case   " 125 "
        code = " 21 " & Ncode
       Case   " 126 "
          code = " 21 " & Ncode
       Case   " 129 "
          code = " 11 " & Ncode
       Case   " 131 "
          code = " 21 " & Ncode
       Case   " 159 "
          code = " 21 " & Ncode
       Case   " 160 "
          code = " 21 " & Ncode
       Case   " 161 "
        code = " 21 " & Ncode
       Case   " 162 "
          code = " 21 " & Ncode
       Case   " 163 "
          code = " 21 " & Ncode
       Case   " 164 "
          code = " 21 " & Ncode
       Case   " 165 "
          code = " 21 " & Ncode
       Case   " 181 "
          code = " 11 " & Ncode
       Case   " 184 "
        code = " 21 " & Ncode
       Case   " 190 "
          code = " 11 " & Ncode
       Case   " 200 "
          code = " 21 " & Ncode
       Case   " 201 "
          code = " 11 " & Ncode
       Case   " 202 "
          code = " 11 " & Ncode
       Case   " 203 "
          code = " 11 " & Ncode
       Case   " 204 "
        code = " 11 " & Ncode
       Case   " 360 "
          code = " 21 " & Ncode
       Case   " 363 "
          code = " 21 " & Ncode
       Case   " 369 "
          code = " 21 " & Ncode
       Case   " 395 "
          code = " 21 " & Ncode
       Case   " 500 "
          code = " 11 " & Ncode
       Case   " 510 "
        code = " 11 " & Ncode
       Case   " 519 "
          code = " 11 " & Ncode
       Case   " 522 "
          code = " 11 " & Ncode
       Case   " 523 "
          code = " 11 " & Ncode
       Case   " 580 "
          code = " 11 " & Ncode
       Case   " 582 "
          code = " 11 " & Ncode
       Case   " 600 "
        code = " 11 " & Ncode
       Case   " 601 "
          code = " 11 " & Ncode
       Case   " 609 "
          code = " 11 " & Ncode
       Case   " 738 "
          code = " 11 " & Ncode
       Case   " 799 "
          code = " 11 " & Ncode
       Case   " 900 "
          code = " 11 " & Ncode
       Case   " 939 "
          code = " 11 " & Ncode
     End   Select
    
     if   left (Ncode, 3 ) = " 100 "   then
         if  Ncode = " 100087 "   or  Ncode = " 100117 "   or  Ncode = " 100196 "   or  Ncode = " 100236 "   or  Ncode = " 100726 "   or  Ncode = " 100795 "   then
            code = " 11 " & Ncode
         else
            code = " 21 " & Ncode
         end   if
     end   if

     dim  flag   ' 将标志位信息赋予'session'
    
     if   left (code, 2 ) = 21   then
        
        session( " flag " ) = 1
     else
        session( " flag " ) = 2
        
     end   if
    
    
    
    response.Redirect( " index.asp " )
    
% >

 

这个是AJAX后面处理的页面，写得恶心点，将就着用：

另外，我想说的一点是，网上看了不少的帖子，说JAVASCRIPT是客户端的东东，获取SESSION只能在服务端执行。我深表同意。不过，同志们提供的用JS读取SESSION的语句好像不大对，起码在我的这个页面来说是不可以的。 测试成功的读取格式：var flag= Session("flag");
                                                var code= Session("Ncode");

另外，在这个页面中，RS（“”）的使用也有些出入。就不写出我查找到的了，正确的：

var zd2=rs("s8").Value-rs("s3").Value;

 

<%  @Language = " JavaScript "   %>

<%

// 2007-03-30 16:28 pm design by qurongtao uesd ajax



var  flag =  Session( " flag " );
 var  code =  Session( " Ncode " );


 function  OpenDB(sdbname)
 {

    var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
    var conn = Server.CreateObject("ADODB.Connection");
    conn.Open(connstr);
    return conn;
}


if  (flag == 2 )
 {
var sResult = new Array();
var oConn = OpenDB("show2003.mdb");

var sql = "select * from show2003 where s1= '"+code+" ' ";
var rs = oConn.Execute(sql);

var zd= (rs("s8").Value-rs("s3").Value)/ rs("s3").Value;
var zd2=rs("s8").Value-rs("s3").Value;
//var kk=FormatNumber(zd,3)


}
else   if  (flag == 1 )
 {
var sResult = new Array();
var oConn = OpenDB("sjshq.mdb");

var sql = "select * from sjshq where HQZQDM = '"+code+" ' ";
var rs = oConn.Execute(sql);
var zd=rs("HQJSD").Value / rs("HQZRSP").Value
}

while ( ! rs.EOF)

 {


    if (flag==2)
    {
    sResult[sResult.length] = rs("s32").Value + "###" + rs("s30").Value+ "###" + rs("s24").Value+ "###" + rs("s22").Value+ "###" + rs("s10").Value+ "###" +rs("s9").Value+ "###"+ rs("s16").Value+ "###"+ rs("s18").Value+ "###"+ rs("s26").Value+ "###"+ rs("s28").Value+ "###"+ rs("S8").Value+ "###"+ rs("S3").Value+ "###"+ rs("S4").Value+"###"+zd2+ "###"+ rs("S7").Value+ "###"+ rs("S6").Value+"###"+zd+ "###"+ rs("S11").Value+ "###"+ rs("S5").Value;
    }
       
    else if (flag==1)
    {
    sResult[sResult.length] = rs("HQSJW5").Value + "###" + rs("HQSJW4").Value+ "###" + rs("HQSJW3").Value+ "###" + rs("HQSJW2").Value+ "###" + rs("HQSJW1").Value+"###" + rs("HQBJW1").Value+ "###"+ rs("HQBJW2").Value+ "###"+ rs("HQBJW3").Value+ "###"+ rs("HQBJW4").Value+ "###"+ rs("HQBJW5").Value+ "###"+ rs("HQZJCJ").Value+ "###"+ rs("HQZRSP").Value+ "###"+ rs("HQJRKP").Value+ "###"+ rs("HQJSD1").Value+ "###"+ rs("HQZDCJ").Value+ "###"+ rs("HQZGCJ").Value+ "###"+zd+"###"+ rs("HQCJSL").Value+ "###"+ rs("HQCJJE").Value;
    }

  
    
    rs.MoveNext();
}


Response.Write(escape(sResult.join( " ### " )));

 %>

最后是前台显示：

没有做CSS定义，版面串版。好使就行了~~

< script language = " JavaScript " >
function  GetResult()
 {

    var oBao = new ActiveXObject("Microsoft.XMLHTTP");
    
    oBao.open("POST","Server.asp",false);
    oBao.send();
    
    var strResult = unescape(oBao.responseText);
    //将字符串分开.
    var arrResult = strResult.split("###");
    RemoveRow(); //删除以前的数据.
    //将取得的字符串分开,并写入表格中.
    for(var i=0;i<arrResult.length;i++)
    {
        arrTmp = arrResult[i].split("@@@");
        s4 = arrTmp[0]; //字段num1的值
        //s6 = arrTmp[1]; //字段num2的值
        //s7 = arrTmp[2]; //字段num3的值
        row1 = tb.insertRow();
        
        cell1 = row1.insertCell();
        cell1.innerText = s4;
       
        //cell2 = row1.insertCell();
        //cell2.innerText = s6;
        
        //cell3 = row1.insertCell();
        //cell3.innerText = s7;
        
        
        
    }
}

function  RemoveRow()
 {
    //保留第一行表头,其余数据均删除.
    var iRows = tb.rows.length;
    for(var i=0;i<iRows-1;i++)
    {
        tb.deleteRow(1);
    }
}

function  MyShow()
 {
    //2秒自动刷新一次,2秒取得一次数据.
    timer = window.setInterval("GetResult()",2000);
}
</ script >

< style type = " text/css " >
<!--
.pdLeft5  {    PADDING-LEFT: 5px; PADDING-TOP: 2px; HEIGHT: 20px
}
.curL  {    PADDING-LEFT: 5px; FONT-WEIGHT: bold; COLOR: #ffffff; PADDING-TOP: 2px; HEIGHT: 21px; BACKGROUND-COLOR: #007cc8
}
.pdLeft5b  {    PADDING-LEFT: 5px; PADDING-TOP: 2px
}
.STYLE3  {
    font-family: "宋体";
    font-size: 10;
}
.STYLE4  {
    PADDING-LEFT: 5px;
    PADDING-TOP: 2px;
    HEIGHT: 20px;
    font-family: "宋体";
    font-size: 10;
}
.STYLE5  {font-size: 10px}
-->
</ style >
< body onLoad = " MyShow() " >
< table width = " 820 "  border = " 1 "  align = " left " >
   < tr >
     < th width = " 24 "  class = " STYLE3 "  scope = " row " >& nbsp; </ th >
     < td width = " 780 "  rowspan = " 20 "  align = " left "  valign = " top "  class = " STYLE3 " >< table width = " 200 "  border = " 1 "  id = " tb " >
       < tr >
         < th scope = " row " >< span class = " STYLE5 " ></ span ></ th >
       </ tr >
     </ table ></ td >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5 " > 卖 五(元 / 手) </ span ></ th >
   </ tr >
   < tr >
     < TD class = STYLE4 > 卖 四(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 卖 三(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 卖 二(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 卖 一(元 / 手) </ TD >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " curL " > 当前价(元) </ span ></ th >
   </ tr >
   < tr >
     < TD class = STYLE4 > 买 一(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 买 二(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 买 三(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 买 四(元 / 手) </ TD >
   </ tr >
   < tr >
     < TD class = STYLE4 > 买 五(元 / 手) </ TD >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 昨收盘 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 今开盘 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 涨跌额 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 最低价 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 最高价 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 涨跌幅 </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 成交量(手) </ span ></ th >
   </ tr >
   < tr >
     < th class = " STYLE3 "  scope = " row " >< span class = " pdLeft5b " > 成交额(万元) </ span ></ th >
   </ tr >
</ table >
< pre class = " STYLE3 " >& nbsp; </ pre >

 

最后的总结，JAVASCRIPT 不叫不熟悉，所以有些代码直接用VBS写了。其实我觉得JS+VBS也不错的。JS 实现功能，VBS处理数据。

待补充中……   业余专业选手

 

bridgehead
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
asp 输入框即时搜索问题
kangju2040的博客
01-02 632
问题描述： 1.数据库有一条记录：     客户名称：中國電信     short_PY（拼音缩写）：ZGDX 2.我在输入框输入ZG能搜索到相应的信息，但是我输入中國则无法找到。 请问如何解决，我用的是js+asp，下面是代码（所有代码请看附件http://pan.baidu.com/s/1i3yYlWL）：  Response.ContentType="text/xml
ASP.NET页面刷新：自动刷新页面的实现方法总结
陈杰的专栏
06-02 1763
ASP.NET页面刷新：自动刷新页面的实现方法总结
jQuery+ASP动态实时刷新数据库数值,在线人数
08-18
jQuery+ASP动态实时刷新数据库数值,在线人数。不刷新页面，采用JQuery+JSON实时读取数据。
用按扭刷新页面（ASP获取当前页URL参数）
wangyadong99的专栏
08-10 1915
用个按扭实现刷新，达到按IE的“刷新”或F5键一样的效果，不过将按钮做在页面里，看上去更专业呵呵，做法如下：   1、先要获得当前页的URL和参数。   获取不带参数的本ASP文件的URL很简单，只需要用“Request.ServerVariables("SCRIPT_NAME")”即可，甚至如果知道ASP页是哪个文件名，就连这个也可以省了，直接写ASP文件路径名就行了。   如果带参
.net core 调试时实时更新页面
qq_43949291的博客
08-31 381
.net core 调试时页面预览
Ajax添加数据即时显示信息篇
10-28
在本教程中，我们将探讨如何利用Ajax实现向服务器数据库添加数据，并即时在网页上显示这些新添加的信息，而无需刷新页面。 首先，我们需要理解Ajax的工作原理。Ajax的核心是XMLHttpRequest对象，它允许JavaScript在...
asp+JS无刷新多记录投票+点赞系统【修正版】
10-11
【ASP+JS无刷新多记录投票+点赞系统详解】 在当今的互联网应用中，...它展示了如何利用ASP和JavaScript进行数据交互，以及如何通过Ajax实现无刷新效果，对于想要学习此类技术的开发者来说，这是一个很好的实践案例。
ASP源码—ajax 即时聊天程序.zip
最新发布
10-14
在本案例中，“ASP源码—ajax 即时聊天程序.zip”是一个包含使用ASP技术构建的实时聊天应用程序的源代码文件。这个压缩包很可能是为开发者提供了一个基于Ajax（Asynchronous JavaScript and XML）技术的聊天系统实现...
asp.net网页即时通
08-24
在这个“asp.net网页即时通”项目中，开发者利用ASP.NET的强大力量，结合Ajax（异步JavaScript和XML）技术，创建了一个实时通信的网页聊天系统。 **ASP.NET的核心特性：** 1. **页面生命周期管理**：ASP.NET提供了...
asp自动更新html数据,asp+xmlhttp实现页面无刷新数据动态显示
weixin_28703507的博客
06-26 659
xmlhttp是非常好的一个组件，我们一般用它来做小偷程序，可以实现无数据库抓取对方内容显示，还可以用于生成HTML静态页面，还可以在HTML静态页面上实现动态内容显示。用xmlhttp组件，通过get或post方式请求远程页面数据，实现无需刷新页面更新数据动态显示。测试文件有两个，一个名为list.asp(请求页)，另一个为msg.asp(内容页)。list.asp内容如下：functionG...
asp+ajax无限刷新获取数据
10-10
结合BlocksIt.js+ajax实现瀑布流，滚动无限刷新获取数据，以及后端数据读取代码 该资源是用access数据库，语句效率不是很高，只不过是为了演示。 不过我里头写好了sql server的row_number分页查询sql
ASP.NET前台界面部分数据的动态刷新
菜鸡程序员的博客
12-13 1207
ASP.NET前台界面部分数据的动态刷新 前言 ​ 菜鸡一枚，本博客主要是总结自己遇到过的问题，大佬请略过。 ​ 在暑假的项目期间，本人遇到了一个前台界面的一个数据刷新问题，主要是点击左侧的分类，实现页面右侧数据的实时刷新，由于我使用的是ASP.NET，所以我刚开始设想的是使用button按钮控件来实现右侧数据的动态刷新，但是由于客户提出了要能够灵活变更分类的需求，所以前一种方法就不适用了，于是我想到了使用repeater控件。 左侧列表的动态生成 ​ 开始的思路如下图所示： ​ 但是使用repe
Asp页面刷新方法（转）
hnzhoumeng的专栏
01-10 733
先看看ASP.NET页面刷新的实现方法：第一： private void Button1_Click( object sender, System.EventArgs e ) { Response.Redirect( Request.Url.ToString( ) ); } 第二： private void Button2_Click( object sender, System.EventArg
网页数据的实时刷新
热门推荐
Home Of HappyBear
01-25 1万+
网页数据的实时刷新本来是打算在WEB页面上实现这样的功能：例如网页上有多个按钮，按钮1，按钮2，按钮3等按钮1的响应比较耗时，如何能够做到点击了按钮1之后，不用等待其响应，就可以再点击其他按钮，而按钮1响应结束之后会把结果刷出来？仔细一想，这是不可能的！这种要求对winform的程序而言非常简单，对web就难了。不等待按钮1的响应返回，只能是异步实现，开启线程或者BeginIn
ASP.NET中的AJAX技术：基础与实战演示
AJAX技术是Web开发中的一种重要技术，它允许页面进行部分刷新，提高用户体验，减少了不必要的数据交换和页面整体刷新，从而使得Web应用更加高效、响应更迅速。在ASP.NET环境中，开发者可以利用AJAX工具集来轻松实现...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值