¿Cómo muestra el sitio web los datos de un precio de acción específico? Debe actualizarse automáticamente.
Existen muchos métodos: actualización automática, si se trata de un gráfico de líneas K, actualice automáticamente la imagen y luego genere automáticamente la imagen más reciente en el lado del servidor o use ActiveX
test.htm
lt;htmlgt;
lt;titlegt;testlt;/titlegt;
lt;headgt ;
lt;script language="vbscript"gt;
Función bytes2BSTR(vIn)
Dim strReturn, i, ThisCharCode, InnerCode, Hight8, Low8, NextCharCode
strReturn = ""
Para i = 1 a LenB(vIn)
EsteCharCode = AscB(MidB(vIn, i, 1))
Si ThisCharCode lt; vIn, i 1, 1) )
strReturn = strReturn amp; Chr(CLng(ThisCharCode) * amp; H100 CInt(NextCharCode))
i = i 1
Finalizar si
Siguiente
bytes2BSTR = strReturn
Finalizar función
lt;/scriptgt;
lt;script language=" JavaScript"gt;
función getData(stockcode)
{
var oBao = new ActiveXObject("Microsoft.XMLHTTP") ;
oBao.open("POST", "st.asp?code=" stockcode, false); //st.asp aquí está la rutina dos. Si tiene su propia información sobre acciones, puede llamar. el tuyo directamente.
oBao.send();
sdata = bytes2BSTR(oBao.ResponseBody);
devuelve sdata;
}
función UTCTime(){
dis.innerHTML=(getData('000718'));
setTimeout("UTCTime()", 30000 //aquí); 30000 se refiere a 5 minutos, y cada 1000 es 1 segundo
}
lt;/scriptgt;
lt;/headgt;
lt;body onLoad="UTCTime()" gt;
lt;span id="dis"gt;lt;/spangt;
lt;/bodygt;
p>lt;/htmlgt;
Rutina 2, esta rutina es para obtener la información bursátil más reciente de www.stockstar.com. Para el resultado de devolución, puede pasar los caracteres de acuerdo con el. situación específica.
Si tiene la información bursátil más reciente, no necesita el código st.asp
st.asp
lt;
= request.querystring("code")
si code="" entonces code="000000"
función getData(stockcode)
establece oBao = servidor createObject("Microsoft.XMLHTTP")
oBao.open "GET", "/stock/external_dealp.asp?code=szag" & stockcode, false
oBao.send(. )
sdata = bin2str(oBao.ResponseBody)
establecer oBao=nada
getData=sdata
finalizar función
función bin2str(bin)
dim tmp, ustr
tmp=""
para i=1 a LenB(bin)-1
ustr=AscB(MidB(bin, i, 1))
si ustrgt 127 entonces
i=i 1
tmp= tmpamp;chr(ustr*256 AscB(MidB(bin, i, 1)))
else
tmp=tmpamp;chr(ustr)
end if
siguiente
bin2str=tmp
función final
strStock=mid(getData(código), 12000)
strStock=mid(strStock, instr(strStock, "·ּ?±í"))
strStock=mid(strStock, 795)
strStock=left(strStock, instr(strStock, "lt;/tablegt;") 7)
respuesta.escribir strStock
gt;