H
huisheng
Unregistered / Unconfirmed
GUEST, unregistred user!
帮我看一下是怎么回事?
<html>
<head>
<title>testfresh</title>
<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;
}
maindata.innerText = getXML("s123.asp");
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad=sendData()>
<div id=maindata>数据加载中，请稍候····</div>
</table>
</body>
</html>
以上代码不能运行,只显示"数据加载中,请稍候……"什么都没有了
以下方法显示不了中文：
<html>
<head>
<title>testfresh</title>
<script language=javascript>
var i=0;
function sendData(){
i=i+1;
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("get", "s123.asp?id="+i, false);
xmlhttp.Send();
// alert("页面开始刷新");
if(xmlhttp.responseText=="1")
{
mailtx();
}
maindata.innerHTML=xmlhttp.responseText;
// maindata.innerHTML=bytes2bstr(xmlhttp.responseText);
window.setTimeout("sendData()",5000);
}
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad=sendData()>
<div id=maindata>数据加载中，请稍候····</div>
</table>
</body>
</html>
以上方法不能显示中文，但可以实现我的要求。第二个页面没问题的。
不过要快，要在等着用。
现一些问题我已解决,只是在显示大量的中文时,有问题,少量的已可以显示,速度还可以
但大量的中文(也不是很多,就是有二、三十条记录吧）显示太慢
现在有5分种了还没有显示出来！
<html>
<head>
<title>testfresh</title>
<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;
}
maindata.innerText = getXML("s123.asp");
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad=sendData()>
<div id=maindata>数据加载中，请稍候····</div>
</table>
</body>
</html>
以上代码不能运行,只显示"数据加载中,请稍候……"什么都没有了
以下方法显示不了中文：
<html>
<head>
<title>testfresh</title>
<script language=javascript>
var i=0;
function sendData(){
i=i+1;
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("get", "s123.asp?id="+i, false);
xmlhttp.Send();
// alert("页面开始刷新");
if(xmlhttp.responseText=="1")
{
mailtx();
}
maindata.innerHTML=xmlhttp.responseText;
// maindata.innerHTML=bytes2bstr(xmlhttp.responseText);
window.setTimeout("sendData()",5000);
}
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad=sendData()>
<div id=maindata>数据加载中，请稍候····</div>
</table>
</body>
</html>
以上方法不能显示中文，但可以实现我的要求。第二个页面没问题的。
不过要快，要在等着用。
现一些问题我已解决,只是在显示大量的中文时,有问题,少量的已可以显示,速度还可以
但大量的中文(也不是很多,就是有二、三十条记录吧）显示太慢
现在有5分种了还没有显示出来！