wjh6of6agriculture(艰苦奋斗)

<iframe src="XMLHTTP.asp"></iframe>
------------------------------------------
XMLHTTP.asp:
<script language="vbscript">
Function bytes2BSTR(vIn)

    Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
    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
</script>
<script language="JavaScript">
function getXML(URL) {
        var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
        xmlhttp.Open("GET",URL, false);
        try { 
            xmlhttp.Send(); 
            var result = xmlhttp.status;
        }
        catch(e) {
             return(false); 
        }
        if(result==200) { 
            return(bytes2BSTR(xmlhttp.responseBody)); 
        }
        var xmlhttp = null;
}
function update()
{    
    document.body.innerHTML = getXML('GetNum.asp');}
setInterval("update()",1000)
</script>
------------------------------------
GetNum.asp里是数据库操作后response.write出结果就可以了,自己的代码!