其实如果用xmlHttp那就状态条也看不出来了 试试保存为xml.asp运行: <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
set req= Server.CreateObject("Microsoft.XMLDOM") req.async=false req.load(Request) if req.documentElement.nodeName="timesheet" then Response.write("<b>"+req.documentElement.text+"</b><br>") end if else %> 无刷新的!
<Script Language="JavaScript"> function scroller() { this.scroll(10,65000); setTimeout("scroller()",20); } scroller(); </Script>
<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> <div id="divDisplay"></div> <input type="text" value="" id="txt"> <input type="button" onclick="sendData();" value="Send it!"> <script> function sendData(){ var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.Open("POST", "xml.asp", false); xmlhttp.Send("<timesheet>"+document.all("txt").value+"</timesheet>"); divDisplay.innerHTML=divDisplay.innerHTML+bytes2BSTR(xmlhttp.responseBody); } </script> <%end if%>
freezh (只提供思路) 2003-05-20 15:31:28 在 Web 开发 / ASP 提问
状态栏地址三秒一动,怎么样能够解决让状态条也看不出来,还有页面上看不出刷新是怎么实现的?请教! 问题点数:0、回复次数:5 1楼 sdliubo (Fuck Japanese!) 回复于 2003-05-20 15:37:39 得分 0
页面上看不出刷新有可能是用的刷新空框架页的方式
状态栏不太好办 可以让状态栏隐藏或是显示一些动态的字 Top
2楼 possible_Y (████本人签名需要刮开,方可看到 ) 回复于 2003-05-20 15:43:11 得分 0
他是在隐藏的iframe中不停的刷新
其实如果用xmlHttp那就状态条也看不出来了
试试保存为xml.asp运行:
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
set req= Server.CreateObject("Microsoft.XMLDOM")
req.async=false
req.load(Request)
if req.documentElement.nodeName="timesheet" then
Response.write("<b>"+req.documentElement.text+"</b><br>")
end if
else
%>
无刷新的!
<Script Language="JavaScript">
function scroller()
{
this.scroll(10,65000);
setTimeout("scroller()",20);
}
scroller();
</Script>
<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>
<div id="divDisplay"></div>
<input type="text" value="" id="txt">
<input type="button" onclick="sendData();" value="Send it!">
<script>
function sendData(){
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "xml.asp", false);
xmlhttp.Send("<timesheet>"+document.all("txt").value+"</timesheet>");
divDisplay.innerHTML=divDisplay.innerHTML+bytes2BSTR(xmlhttp.responseBody);
}
</script>
<%end if%>