28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jzywh 2005-10-18
- 打赏
- 举报
隐藏iframe定时刷新生成script
NetRep_Loser 2005-10-18
- 打赏
- 举报
<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(){
try{
document.body.innerHTML = getXML('<%=sURL%>');
}
catch(e){
//
}
}
</script>
</head>
<body
</body>
<script language="Javascript">
update();
</script>
</html>
<script language="Javascript">
setInterval("update()",1000*60*1); //1分钟无闪烁刷新
</script>
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(){
try{
document.body.innerHTML = getXML('<%=sURL%>');
}
catch(e){
//
}
}
</script>
</head>
<body
</body>
<script language="Javascript">
update();
</script>
</html>
<script language="Javascript">
setInterval("update()",1000*60*1); //1分钟无闪烁刷新
</script>
meizz 2005-10-18
- 打赏
- 举报
无闪烁刷新的方法有二： xmlhttp <script src="...">
kingcrab 2005-10-18
- 打赏
- 举报
mark
Gdj 2005-10-18
- 打赏
- 举报
用c写一个小小的web服务。做成serverpush的是王道。
rehearts 2005-10-18
- 打赏
- 举报
“隐藏iframe定时刷新生成script” 这种方法，状态栏会不断刷新的，并且鼠标也是这样子
