UC知道250分，请教在VB6中用XMLHTTP读取远程服务器信息问题
来源：百度知道 编辑：UC知道 时间：2024/07/08 21:53:45
写一个VB6程序，用XMLHTTP实时读取远程服务器中ASP程序中的时间（用XMLHTTP实现无刷新，每隔一秒读一次），并按<br>为分隔将时间分为三行进行列表于一个文本框text1.text内,并去除其它HTML代码。
远程ASP程序如下：
times.asp
<html>
<head><!-- -->
<title>VB6中用AJAX实现无刷新更新远程数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/iknow1_0.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
response.write("现在时间：<br>")
response.write(date())&"<br>"
response.write(time())&"<br>"
%>
</body>
</html>
不能用VB控件直接写出不断更新的时间。
VB中文本框text1.text中显示的内容应如下样子(分三行实时显示远程服务器中返回信息):
现在时间:
2007-11-15
20:10:26
求的是XMLHTTP实现的方法.谢谢.
不能让整个窗口随同内容刷新.
请用XMLHTTP实现无闪刷新谢谢.
远程ASP程序如下：
times.asp
<html>
<head><!-- -->
<title>VB6中用AJAX实现无刷新更新远程数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/iknow1_0.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
response.write("现在时间：<br>")
response.write(date())&"<br>"
response.write(time())&"<br>"
%>
</body>
</html>
不能用VB控件直接写出不断更新的时间。
VB中文本框text1.text中显示的内容应如下样子(分三行实时显示远程服务器中返回信息):
现在时间:
2007-11-15
20:10:26
求的是XMLHTTP实现的方法.谢谢.
不能让整个窗口随同内容刷新.
请用XMLHTTP实现无闪刷新谢谢.
Private Sub Timer1_Timer()
ret$ = Inet1.OpenURL("www.123.net/times.asp")
Do While Inet1.StillExecuting = True
DoEvents
Loop
d = Replace(ret, " ", "", , , vbBinaryCompare)
p = InStr(1, d, "现在时间")
d = Mid(d, p, 38)
Dim a() As String
a = Split(d, "<br>")
text1.text=a(0) & VbCrLF & a(1) & VbCrLF & a(2)
End Sub