bios密码设置方法:用ASP及VML实现股票走势图 ASP 关键词:用ASP VB,C,Delphi,VFP,...

来源：百度文库 编辑：偶看新闻 时间：2024/04/28 05:58:07










<%
‘连接数据库
set conn=Server.CreateObject("Adodb.Connection")
connStr="Provider=SQLOLEDB;Data Source=(local);database=DBName;uid=user;pwd=pass;"
conn.Open connStr

‘初始化,定义变量
BoardID=int(Request("BoardID"))
if Request("BoardID")="" then BoardID=1
PicWidth=720
PicHeight=300

‘显示股票列表下拉菜单
sql="Select * from Board where BoardID in (Select BoardID From Stocks)"
set RsBoard=conn.execute(sql)
StockStr=""
response.write StockStr

‘打开股票走势表
sql="Select * from StocksTrend where BoardID="&BoardID&" and CalTime>getDate()-1 and Day(CalTime)=Day(getDate()) order by ID"
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql,conn,1,1

‘获取股票价格列表至数组,并计算最高最低价
Rec=rs.RecordCount
redim Price(Rec)
Highest=0
Lowest=9999
for i=1 to Rec
Price(i)=rs("Price")
if Price(i)>Highest then Highest=Price(i)
if Price(i)rs.movenext
next
set rs=nothing

‘画时间点,间隔6小时
for i=0 to 24 step 6
X=Round(i/24*PicWidth)
DrawLine X,PicHeight,X,PicHeight+5,"#808080"
Printword X,PicHeight+15,i&":00"
next

‘画走势图边框
DrawLine 0,0,PicWidth,0,"#000000"
DrawLine 0,0,0,PicHeight,"#000000"
DrawLine PicWidth,0,PicWidth,PicHeight,"#000000"
DrawLine 0,PicHeight,PicWidth,PicHeight,"#000000"

‘画四等分线
DrawLine 0,PicHeight*1/4,PicWidth,PicHeight*1/4,"#AAAAAA"
DrawLine 0,PicHeight*2/4,PicWidth,PicHeight*2/4,"#AAAAAA"
DrawLine 0,PicHeight*3/4,PicWidth,PicHeight*3/4,"#AAAAAA"

‘标明四等分线价格
Printword PicWidth+15, 0/4*PicHeight, FormatNumber(Highest-(Highest-Lowest)*0/4,2,-1,0,0)
Printword PicWidth+15, 1/4*PicHeight, FormatNumber(Highest-(Highest-Lowest)*1/4,2,-1,0,0)
Printword PicWidth+15, 2/4*PicHeight, FormatNumber(Highest-(Highest-Lowest)*2/4,2,-1,0,0)
Printword PicWidth+15, 3/4*PicHeight, FormatNumber(Highest-(Highest-Lowest)*3/4,2,-1,0,0)
Printword PicWidth+15, 4/4*PicHeight, FormatNumber(Highest-(Highest-Lowest)*4/4,2,-1,0,0)

‘画走势图
for i=1 to Rec
if i=1 then
SX=0
SY=0
else
SX=X
SY=Y
end if
Y=PicHeight-Round((Price(i)-Lowest)/(Highest-Lowest)*PicHeight)
X=Round((i-1)*5)
DrawPrice SX,SY,X,Y,Price(i),"#000000"
next

‘自定义函数:画线
function DrawLine(SX,SY,X,Y,C)
%><%
response.write vbcrlf
end function

‘自定义函数:画线(带alt提示功能)
function DrawPrice(SX,SY,X,Y,Price,C)
%><%
response.write vbcrlf
end function

‘显示文本(默认红色)
function Printword(X,Y,word)
%><%=word%><%
response.write vbcrlf
end function
%>
用ASP实现打印 用ASP如何实现? 用ASP实现用户登陆 用asp实现数据库备份 请教高手,如何实现用ASP上传文件夹及文件夹下的内容 怎样用asp及asx实现选单歌曲的连续播放？ 怎么用ASP实现用户权限问题？ 用ASP实现注册表单的提交 用ASP实现注册表单的提交 asp用什么工具来实现 怎么用ASP实现产品展示系统 用ASP实现的网上考试系统 怎样实现竞价排名用ASP程序 用asp怎么实现简单留言簿？ 怎样实现相关搜索用ASP语言 用asp 如何实现ftp文件上传。 ftp上传文件用asp怎么实现 如何实现用ASP读取ECXEL数据 以下功能用asp如何实现? ASP用ACCESS实现点击数计算 asp 实现FTP上传 asp实现自动换行 怎样用asp实现https? 这个asp怎么实现????