位置：首页>> 网络编程>> Asp编程>> 使用xmlhttp为网站增加股市行情查询功能（2）

使用xmlhttp为网站增加股市行情查询功能（2）

　　发布时间：2007-10-10 21:09:00　

标签：XMLHTTP,查询,股市,服务器

二、ASP XmlHttp编程简述

1、客户端dns2.htm页面：

<html><head><title>XMLHTTP之股票行情篇 - asp之家 - http://www.aspxhome.com</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgColor=#a1bae6>
<table border="0" cellpadding="0" cellspacing="0" width="100％">
<tr>
<td width="100％" align=center>
<form method="post" name=wordfind onsubmit="javascript:return false">
<FONT color=#002e5b face=geneva,arial,sans-serif size=2>
<B>请选择股票名称（美国纳斯达克）</B></FONT>
<FONT color=#002e5b face=geneva,arial,sans-serif size=2><B>:<br>
<select name=webname style="HEIGHT: 22px; WIDTH: 80px">
<option value="^IXIC">纳斯达克</option><option value="ASIA">亚信</option>
<option value="CHINA">中华网</option> <option value="NTES">网易</option>
<option value="SINA">新浪网</option> <option value="SOHU">搜狐</option>
</select><input type="submit" value="查询" id=Submit1 name=Submit1></B>
<TEXTAREA name=comments readonly rows=10 cols=76 ></TEXTAREA>
</form></td></tr></table></body></html>

2、服务器端dns2.asp程序：

<％
dim xmlGet
xmlGet=""
if len(trim(Request.form("fqdn"))) > 1 then
Dim objXML, objXSL, objFSO
Dim strFile, strFileName, strXSL
Dim strURL, theString

'股市行情数据库服务器的地址
strURL="http://cn.finance.yahoo.com/q?s="+trim(Request.form("fqdn"))+"&d=2b"
Set objXML = CreateObject("Microsoft.XMLHTTP") '创建MS的XMLHTTP组件
objXML.Open "get", strURL, False
objXML.Send ' 发送信息
xmlGet = objXML.responsebody '稍等片刻后，得到股市行情数据服务器端传回来的结果；
xmlGet = bytes2bstr(xmlGet) '转换成文本格式函数，可以源程序中找到；

'过滤无用的HTML成分，挑选出股票具体信息；
strFind1 = instr(1,xmlGet,"最後交易",1)+8
strFind2 = instr(strFind1,xmlGet,"<b>",1)+3
strFind3 = instr(strFind2,xmlGet,"</b></td>",1)
xmlGet1="最后交易："+mid(xmlGet,strFind2,strFind3-strFind2)+chr(13)+chr(10) '最后交易价

strFind1 = instr(1,xmlGet,"涨跌",1)+4
strFind2 = instr(strFind1,xmlGet,"<font color=",1)+19
strFind3 = instr(strFind2,xmlGet,"</font>",1)
xmlGet2="涨跌："+mid(xmlGet,strFind2,strFind3-strFind2)+chr(13)+chr(10) '涨跌

Set objXML = Nothing
end if
response.write trim(Request.form("fqdn"))+"的股市行情："+chr(13)+chr(10)+xmlGet1+xmlGet2
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
％>

在上述过程中，可以发现我们自己的web服务器中的asp程序其实只起到一个中间传递的作用，在实际应用中，也可以省去这个中间层，使用vbscript通过xmlhttp直接向股市行情数据库发送和接收数据。不过这样的话，可能会因为IE中“通过（其它）域访问数据资源”被禁用（默认）而引起权限不够导致无法执行，所以该省去asp中间层的方法并不太通用。

本程序在基于Windows2000平台的IIS5.0和IE6.0上运行通过。实际使用过程中，可以把上述代码拷贝到自己网页中，经过简单的页面编辑，就可在自己的网页中增加在页面无闪烁情况下的股票信息查询功能了，初看上去，还真的有点象专业的证券服务商网站提供的服务了。

第一页上一页 1

投稿

使用xmlhttp为网站增加股市行情查询功能（2）

猜你喜欢