求一个用ASP技术统计个股情况的技术

zyftank 2015-01-06 01:53:22
我想用ASP技术，实现读取SQL Server数据库中个股每日数据，通过自己的算法进行统计分析，做了两个文件，每一个文件是提交开始基础数据，第二个文件是一个分页显示统计情况，每页显示30行，现在的问题是，基础数据能够传导到第二个文件中，分页显示时，有的控制数据怎么传递不到下一个页面。
第一个文件代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询首页</title>
</head>
<body>
<form action="action.asp" method="post">
<p>请输入股票名称：
<input type="Text" name="Gpname" size="10"><br>
次级回升：
<input type="Text" name="cjhs" size="5"><br>
自然回升：
<input type="Text" name="zrhs" size="5"><br>
上升趋势：
<input type="Text" name="ssqs" size="5"><br>
下降趋势：
<input type="Text" name="xjqs" size="5"><br>
自然趋势：
<input type="Text" name="zrht" size="5"><br>
次级回升：
<input type="Text" name="cjht" size="5"><br>
<input type="submit" name="submit" value="提交">
</p>
</form>
</body>
</html>


第二个文件代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/DB.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_DB_STRING
Recordset1.Source = "SELECT 时间,最高,最低 FROM dbo.[600259$]"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 30
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

' count the total records by iterating through the recordset
Recordset1_total=0
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend

' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If

' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If

End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then
Recordset1_first = MM_rsCount
End If
If (Recordset1_last > MM_rsCount) Then
Recordset1_last = MM_rsCount
End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
...全文
131 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
mkcat 2015-01-07
  • 打赏
  • 举报
 回复
可GET提交方式
hefeng_aspnet 2015-01-06
  • 打赏
  • 举报
 回复
超链接带参数 页面接收参数
zyftank 2015-01-06
  • 打赏
  • 举报
 回复
后续代码： <% dim cjhs,zrhs,ssqs,xjqs,zrht,cjht dim lcjhs,lzrhs,lssqs,lxjqs,lzrht,lcjht,zgz,zdz if request.form("ssqs")<>"" then lssqs=csng(request.form("ssqs")) else lssqs="" end if if request.form("xjqs")<>"" then lxjqs=csng(request.form("xjqs")) else lxjqs="" end if lcjhs=request.form("cjhs") lzrhs=request.form("zrhs") lzrht=request.form("zrht") lcjht=request.form("cjht") %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>股票行情记录</title> </head> <body> <div align="center"><font color="red" size=6px><%=request.form("Gpname") %>股票行情记录</font></div> <table border="1" align="center"> <tr> <td width=120 height=20><div align="center">时间</div></td> <td width=80><div align="center">次级回升</div></td> <td width=80><div align="center">自然回升</div></td> <td width=80><div align="center">上升趋势</div></td> <td width=80><div align="center">下降趋势</div></td> <td width=80><div align="center">自然回调</div></td> <td width=80><div align="center">次级回调</div></td> </tr> <tr> <td height=20><div align="center"></div></td> <td><div align="center"><%=lcjhs%></div></td> <td><div align="center"><%=lzrhs%></div></td> <td><div align="center"><%=lssqs%></div></td> <td><div align="center"><%=lxjqs%></div></td> <td><div align="center"><%=lzrht%></div></td> <td><div align="center"><%=lcjht%></div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% zgz=CSng(Recordset1("最高")) zdz=csng(Recordset1("最低")) if zgz > lssqs then ssqs=zgz lssqs=zgz else ssqs="" end if if zdz < lxjqs then xjqs=zdz lxjqs=zdz else xjqs="" end if %> <tr> <td><div align="center"><%=(Recordset1.Fields.Item("时间").Value)%></div></td> <td><div align="center"><%=cjhs%></div></td> <td><div align="center"><%=zrhs%></div></td> <td><div align="center"><%=ssqs%></div></td> <td><div align="center"><%=xjqs%></div></td> <td><div align="center"><%=zrht%></div></td> <td><div align="center"><%=cjht%></div></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table> <table border="0" width="50%" align="center"> <tr> <td width="23%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_moveFirst%>">第一页</a> <% End If ' end MM_offset <> 0 %> </td> <td width="31%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_movePrev%>">前一页</a> <% End If ' end MM_offset <> 0 %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveNext%>">下一页</a> <% End If ' end Not MM_atTotal %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveLast%>">最后一页</a> <% End If ' end Not MM_atTotal %> </td> </tr> </table> <div align="center">记录 <%=(Recordset1_first)%> 到 <%=(Recordset1_last)%> (总共 <%=(Recordset1_total)%> ） </div> </body> </html> <% Recordset1.Close() Set Recordset1 = Nothing %>
电子行业日报：台积电将代工高通7纳米LTE芯片订单.pdf
电子行业日报：台积电将代工高通7纳米LTE芯片订单.pdf
酷睿财经门户网站管理系统 V2011
该系统基于ASP+DIV+CSS+AJAX+XML+MSSQL技术开发的CMS网站管理系统，是一个经过完善设计并适用于各种服务器环境的易用、安全、高效、快速、优秀的网站解决方案。后台管理方便、易懂、易用、人性化，对操作人员技术要求低，没有建站知识的操作人员都可轻松进行。继续ASP开源之路，稳定、安全、强大的核心程序，对于有网站设计知识和程序爱好者可以随心所欲进行修改，方便建立具有自已特色的站点管理。 全新仿东方财富模板 全新内核全面升级增加了数十种实用功能 新增了功能强大的实时大盘模拟炒股系统 新增了上证指数、深证成指、沪深300、恒生指数、红筹指数、国企指数、道琼斯、标普500、纳斯达克、德国DAX、法国CAC、日经225、海峡时报等全球大盘实时行情 新增了6个即时行情数据板块排行、4个基本面数据排行、4个资金流向排行、板块排行、港股涨跌幅排行、中国概念股排行、沪深涨幅排行、跌幅排行、金额排行、换手排行、封基涨幅排行、折价率排行、基金净值排行等实时排行行情 新增了国内期货行情、国际期货行情、市场雷达行情、净值预测行情、估值前十行情、估值后十行情、基金净值行情、多空调查、仓位调查、新股申购表、权证及正股行情、权证列表等实时行情 新增了个股实时行情查询系统 新增了多达超过100种股票实时行情系统 超过数十个频道及200多个栏目 新增了众多标签及文章可视化管理，让您使用更简单管理更方便 新增了MSSQL数据库为你的网站添加无限动力，Access或MSSQL数据库任选 新增了后台定时任务，文章自动定时多点采集和自动生成HTML文件,让你的网站无人职守，自动更新 新增了WAP手机网站系统，让你的用户无论身在何处也可以随时用手机享受更多服务 新增了专家在线问题功能系统，让网站与会员的互动性更强 新加了论坛功能系统，让会员与会员之间交流更方便，为网站注入更多的活力与人气 新增了会员博客功能，让你的网站功能更全面 新增了数十个广告位 新增了数个频道及数十个子栏目 增强后台木马在线检测系统 修正了IE6.0、7.0、8.0和360等浏览器对DIV支持 修正了黑客利用后台或会员上传功能上传木马的BUG 修正了黑客利用模板管理添加木马文件的BUG 修正了其它数十处BUG及安全隐患 全新内核系统使用网站载入速度提高了70% 主要功能 实时大盘行情系统 超过100种实时行情系统，且5－10秒自动实时更新 实时个股行情系统 超过30种实时动态行情数据及图表行情系统，每5秒自动实时更新 丰富的频道及栏目 超过30个主频道及200多个栏目数据库已经采集上万条文章内容 实时大盘模拟炒股系统 实时模拟交易包括沪上证A股/B股、深证A股/B股、权证、基金等股票的实时买卖交易 全新的文章浏览权限应用功能 可批量设置文件的浏览权限，可将浏览权限精确到每个频道/每个栏目/每篇文章，让不同的会员享受不同的文章浏览权限，且可将每篇文章设置浏览点数，让网站更便于会员收费的管理。 强大的会员管理功能 会员空间/博客/相册/日志/圈子等、无限用户组添加功能、站内短信功能、消费查询功能、会员可设置为扣点会员、有效期会员和、无限期会员。 WAP手机网站系统 WEB网站与WAP手机网站同步，一个帐号，两站通用，实现WEB与WAP无缝衔接。让你的会员无论身在何处也可以随时用手机上网查看您网站提供的股票信息文章会员个人信息，及享受会员特殊服务 ASK在线专家问题系统 会员可通过该系统向网站专家提出各种股票相关的问题，网站专家可及时解答会员提出的各种问题 论坛功能系统 会员可通过该系统与其它会员讨论各种与股票相关的知识或交流购彩技巧，让你的网站更有活力 SEO优化 在线智能生成GOOGLE/百度标准收录XML格式地图，使网站更易于搜索和收录。 三种文件状态：可将站点全部页面高为动态、静态及伪态格式，大大提高浏览速度及搜索引擎的搜录量。 5种生成文件存放结构选择，5生成文件命名形式选择，可随意定生成的扩展名，一切更可能的根据您的喜好DIY。 独有利于Alexa收录的info.txt文件和搜索引擎蜘蛛爬行文件Robots.txt 模板程序分离，网站频道、栏目、内容页META关键词、网站META网页描述均为调用标签，利于网站的收录量并大大缩短了页面收录的时间更便于网站的自动配置管理 多点定时计划功能 多点定时采集和多点定时文章自动生成系统，让你的网站无人职守，自动更新 智能强大的过滤系统设置、UTF-8/GB2312自动识别、批量采集让你享受高速采集快感。 采集目标网站可随意更换，设置规则简单，操作更方便 设计先进的多系统整全功能： 先进的多系统整合API接口、让你的网站集成商城、论坛、博客、图片、下载、视频等网站系统，让你的网站更丰富多彩。 集成11个在线支付平台 集成：财付通 网银在线 易付通 云网支付 支付宝 快钱支付 中国在线支付网 西部支付 上海环迅等11个在线支付平台接口，会员充值实时到帐，让你收费无忧。 强大的插件管理 集成：CC视频联盟插件、WSS统计插件、WAP手机网站插件 标签管理系统 全新的标签应用功能全站采用标签调用系统，让网站运行速度更快，且完全防止站内的文章被其它网站所采集，后台标签管理更方便简单，让网站更安全且极易维护管理。 模板化体系 界面和程序分离，可在线可视化编辑、设计，所有模块均通过标签调用，集成类同Macromedia Dreamweaver一样简单的可视模板编辑方式，修改模板容易、快捷。 无限频道添加功能 可无限添加各种频道或栏目，新频道或栏目完全独立设置，独立模版。 数据库 提供强大的数据备份和恢复功能，可以在线备份、恢复、压缩数据库。查看系统空间占用情况、系统初始化、查看服务器信息及到在线直接执行SQL语句 系统采用ACCESS2000/MSSQL2000数据库，可支持上数千万的数据库，更安全、更稳定、更高效、更强大，运行速度更快。 系统安全 本以安全为基础，密码采用MD5加密，保证用户资料安全，程序代码中设计周密，可自动屏蔽恶意攻击代码。 更集成防SQL注入程序，从而可全面防止各种SQL注入攻击手段，并进行记录在案，保证了系统的安全和稳定运行。 更详细的管理事件记录，管理员每一步后台操作都记录在案。 双重登陆双重密码设计再加认证码，后台登陆更安全。 运行速度与效率 代码进行全面重整及优化，清除冗余及垃圾代码，清除大部分缓存，采用XML缓存，运行速度更快、郊率更高。 系统采用ASP+DIV+CSS+AJAX+XML+MSSQL技术开发而成，运行速度成倍提升。
上证A股数据分析
上证A股数据分析，通达信上证A股过滤未开板次新股、过滤科创板、过滤ST股票，得到1400支股票，导出所有数据，Excel整理代码、名称导入数据库。通过网易财经下载每日交易数据，参考 如何下载股票历史数据 - 知乎 https://zhuanlan.zhihu.com/p/65662875 。 首页 查询全部 查询个股 个股K线 行情分析 个股走势 条件筛选 涨跌停筛选 形态筛选 stock.py #!/usr/bin/python3 # co
上海证券综合指数统计分析及挖掘（一）
（2016-11-06 银河统计） 本文阐述网络环境下上证股票指数实时和历史数据接入、图形展示和分组统计，为进一步进行量化交易分析奠定基础 摘要：上海证券交易所股票上市交易20多年，已经积累了大量历史数据。随着网络技术的发展，人们获取交易信息的途径非常广泛，特别是大数据时代来临，大量金融数据、地理数据、天气数据等被有关部门和公司实时或定期在网上发布。特别是股票数据极为丰富、规范，新浪、雅虎、腾讯等...
技术关注：搜索引擎经验
[搜索技术] 搜索引擎经验总结 # 这里是一点我在学习和开发搜索引擎过程中的一点学习和经验总结，文中讲述了蜘蛛、切词、索引、查询器等名模块的一些概述和细节，希望能给搜索引擎中的初学点的一点帮助，对于那些高手也能够带来一点点启发的帮助！这是我在2004年学习和开发搜索引擎相关东西时的一点总结，可能比较肤浅，最近还是一直在搞这方面的研究，相对于这篇文章又有了...
ASP

28,405

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章