你把你的小偷程序发上来我们看看,也许可以对你的程序进行一些修改才行
代码如下:
假设已经建立XMLHTTP对象代码(这里不在重复)function getInfo() {
var phone = document.getElementById("username").value;
var url = "daimajiance.asp?user=" + escape(phone);//daimajiance.asp为需要调用其他网站数据的核心ASP文件!
request.open("GET", url, true);
request.onreadystatechange = updatePage;
request.send(null);
}
function updatePage()
{
if (request.readystate == 4)
if (request.status == 200)
{
var response = unescape(request.responseText);
response=response.toString();
response=response.split("|");
document.getElementById("sp").innerText =response[1];//大单买量 document.getElementById("zd").innerText =response[2];//大单卖量
}
daimajiance.asp源文件:
Dim Url,msg,start,over,gc,zf,jg,zdf,hsl,lbi,npan,wpan
Url="http://bill.finance.
msg = getHTTPPage(Url)
‘取得主买量
start=Instr(msg,"主买量") + 40
over=Instr(msg,"主卖量")-10
gc=mid(msg,start,over-start)
For i=1 To Len(gc)
zf=Mid(gc,i,1)
If IsNumeric(zf) Or zf="." Then
jg=jg&zf
End if
Next
’取得主卖量
start=InStr(msg,"主卖量")+40
over=InStr(msg,"中性量")-10
gc=Mid(msg,start,over-start)
For i=1 To Len(gc)
zf=Mid(gc,i,1)
If IsNumeric(zf) Or zf="." Or zf="-" Then
zdf=zdf&zf
End if
Next
response.write(escape(jg&"|"&zdf))
然后置两个显示标签:
<span id="sp">大单买量</span>
<span id="zd">大单卖量</span>