怎样取得这个页面中的数据存入ASP变量？
想到这个页面：http://zst.cjcp.com.cn/cjwk3/view/kuai3_zonghe.php?lotteryType=gx
中的“期号”和“奖号”数据并存入ASP变量，请教代码？
1、整个页面的所有“期号”和“奖号”一起循环取得。
2、能不能指定某一期的期号去取？例如我指定要取期号为“20130508059”的“奖号”数据可以实现吗？

请提供代码，不要光说用什么ajax的方法正则取得，我不太懂ajax，谢谢了。
------解决方案--------------------
function getvalue(qihao)
  Set xhr= Server.CreateObject("microsoft.xmlhttp")
  xhr.open "get","http://zst.cjcp.com.cn/cjwk3/view/kuai3_zonghe.php?lotteryType=gx",false
  xhr.send
  text= xhr.responsetext
  set xhr=nothing
  startp=instr(text,"<tbody id=""pagedata"">")+len("<tbody id=""pagedata"">")
  endp=instr(startp,text,"</tbody>")
  text=mid(text,startp,endp-startp)
  set rx=new regexp
  rx.Global=true
  rx.IgnoreCase=true
  rx.Pattern="<td class='z_bg_05'>(\d+)</td><td class='z_bg_13'>(\d+)</td>"
  set mc=rx.Execute(text)

  set rx=nothing
  if qihao<>"" then
    for each m in mc
      if m.submatches(0)=qihao then
        getvalue=m.submatches(1)
        exit function
      end if
    next
  else
    for each m in mc 
      getvalue=getvalue&"期号："&m.submatches(0)&"　　奖号："&m.submatches(1)&"<br/>"
    next
  end if
  set mc=nothing
end function

response.write getvalue("20130508047")&"<br/>"
response.write getvalue("20130508049")&"<br/>"
response.write getvalue("")'获取所有参数设置为""
------解决方案--------------------

'这和前面两个问题不是一样的吗？

<!--#include file="easp.asp"-->

<%

Easp.BasePath = ""

Easp.Use("Http")



Dim url, tmp, arr, perdid, awardcode

Dim item

url = "http://zst.cjcp.com.cn/cjwk3/view/kuai3_zonghe.php?lotteryType=gx"

tmp = Easp.Http.Get(url)

arr = Easp.Http.Search("<td class='z_bg_05'>\d{11}</td><td class='z_bg_13'>\d{3}</td>")

For Each item In arr

    '先找到期号

    perdid = Easp.Http.SubStr_(item, "<td class='z_bg_05'>", "</td>", "")

    '再查找开奖号码

    awardcode = Easp.Http.SubStr_(item, "<td class='z_bg_13'>", "</td>", "")

    Easp.WN "期号：" & perdid & " 开奖号码：" & awardcode

Next



'获取该页面指定期号的开奖号码

Easp.WN ""

Easp.WN GetAwardcode("20130508044")



Public Function GetAwardcode(ByVal perdid)