realtimerate.asp

demo for java

<%
If True Then '能上网就用True,回家里玩就用False明白不
	Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
	objHttp.Open "GET","http://tw.stock.yahoo.com/d/c/ex.php", False
	objHttp.Send
	pageContent = objHttp.ResponseText
	Set objHttp=Nothing
Else
	Set FS=CreateObject("Scripting.FileSystemObject")
	Set objFile=FS.OpenTextFile(Server.MapPath("ex.php.txt"))
	While Not objFile.AtEndOfStream
		pageContent = pageContent + (objFile.ReadLine) & vbCrlf
	Wend
	objFile.close
	Set objFile=Nothing
	Set FS=Nothing
End If

'处理一下字符以方便内容分析
pageContent=Replace(pageContent,"""","'") '把所有的双引号"替换成单引号'
pageContent=Replace(pageContent,"<font color='#FF3333'><b>","<span class='tttt'>") '替换掉这里出现的异类
pageContent=Replace(pageContent,"</b></font>","</span>") '替换掉这里出现的异类


'下面段在这里可以不使用
If False Then '调试开关设为True有效
	HeadZone=Instr(pageContent,"<table width='100%' border='0' cellspacing='1' cellpadding='2'>")
	RumpZone=Instr(pageContent,"<table border='0' cellpadding='0' cellspacing='0' width='650'>")
	Response.Write "HeadZone = " & HeadZone & "<br>" '起始段位置
	Response.Write "RumpZone = " & RumpZone & "<br>" '终始段位置
	pageContent=Mid(pageContent,HeadZone,RumpZone-HeadZone) '将主要部分提取出来是为了方便分析
	Response.Write pageContent '显示一下处理后的内容
End If


Head=1 '初始捕捉位置为1
SignA="<span class='tttt'>" '标记字符A
SignB="</span>"  '标记字符B
'AB之间的字符就是汇率值

'这里开始循环捕捉位置以及提取数据
For I=1 To 10
	For J=1 To 10
		Head=Instr(Head,pageContent,SignA) '从Head位置开始捕捉pageContent内容中的SignA标记位置(头)
		Rump=Instr(Head,pageContent,SignB) '从Head位置开始捕捉pageContent内容中的SignB标记位置(尾)
		Rate=Mid(pageContent,Head+Len( SignA),Rump-(Head+Len(SignA)) ) '提取SignA和SignB之间的字符

		Head=Rump+Len(SignB) '记录一下当前的位置不至于又从第1位开始Instr
		RateContent=RateContent & Rate '将内容附加到变量
		If J<10 Then RateContent=RateContent & ","  '处理一下','号分隔问题
	Next
		If I<10 Then RateContent=RateContent & "|" '处理一下'|'号分隔问题
Next
%>