网页中实现FLASH实时报价功能
效果见:http://www.529999.com左上角
原先是引用纸金黄的报价flash,因IP被封没法了,只能自已做一个了,搞了半天,终于搞定了这个实时报价。
文件分三个:
FLASH文件: goldprice.swf,关键代码如下:
var myData = new Array();
var url = "gold.txt?r=" + Math.random();
var loader = new LoadVars();
new LoadVars().load("gold.asp?r="+Math.random());
var loader = new LoadVars();
功能读取:gold.txt文件内容,与生成gold.txt的时间差,主要是调用gold.asp文件来生成。
数据库文件:gold.txt,
没什么特别,内容如下就一行:
time=10:28:34&gold=|186.66|186.26|187.06|
187.30|187.57|185.71|187.26|3.00
程序文件:gold.asp
主要用来生成gold.txt
可以用来FLASH中的?+Math.random()来生成主要用到ASP的FSO组件
实际应用中没有用到FSO来生成gold.txt
用了,Microsoft.XMLHTTP组件来“偷取”对方的数据文件gold.txt
<%
Path="对方地址/gold.txt"
t = GetBody(Path) '用GetBody函数读取
Response.BinaryWrite t '用二进制方法写到浏览器上
Function GetBody(url) '本函数为远程获取内容的函数
Set Retrieval = CreateObject("Microsoft.XMLHTTP") '建立XMLHTTP对象
With Retrieval
.Open "Get", url, False, "", "" '用Get,异步的方法发送
.Send
GetBody = .ResponseBody '函数返回获取的内容
End With
on error resume next
if Retrieval.status <>200 then
Set Retrieval = Nothing
exit function
end if
End Function
%>
把他另成为goldtxt.asp当做gold.txt也能用,输出结果一样
另一方法,没有成功,可能意那里有点出入
就是在flash中关键地址,换成http://的url
var myData = new Array();
var url = "http://对方的gold.txt?r=" + Math.random();
var loader = new LoadVars();
没成功
原载: http://www.auuo.com
版权说明:原创文章欢迎转载,但转载请务必以超链接标明文章原始出处、作者信息和本声明。否则必追究法律责任。
联系我们
QQ:51193930(Ahoo)
MSN:auuocx@hotmail.com
网址:http://www.auuo.com
地址:慈溪天九商务中心525室
电话:189-0662-0882
我们的优势
拥有优秀的网站设计师与程序工程师,精通各种一流的图形设计软件,如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目,我们为您准备了最专业的技术服务。为您开发的网站精致实用,代码清晰,保证您的网站安全可靠修改方便,最重要的是符合市场需求,并随时为客户解决各种技术问题。
我们正在努力开拓...