28,406
社区成员
发帖
与我相关
我的任务
分享是否可以在同一页面部分传值并刷新
我现在在编一个实时读库的ASP，在此碰到些问题，在服务器端的脚本要定时刷新读库，客户端脚本定时接收从服务器端传来的数据，附程序，看哪位知道解这题
用了二个控件，IETIMER，延时一秒，还有一个是CHART控件，接收服务器端数据
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "DSN=qwe;uid=qwe;pwd=qwe;"
Set rs = createobject("ADODB.Recordset")
sql = "Select * from a where flag=1"
set rs = Conn.execute(sql)
If not rs.EOF then
tt=rs("num")
response.cookies("qw")("e")=tt
sql="update a set flag=0 where num="& tt
set rs=conn.execute(sql)
end if
%>
<script language="vbscript">
<!--
Sub IeTimer1_Timer
Categories = "第一组"
ChartSpace1.Clear
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "第一组温度值"
ChartSpace1.Charts(0).SeriesCollection(0).SetData ChartSpace1.Constants.chDimCategories, ChartSpace1.Constants.chDataLiteral, Categories
ChartSpace1.Charts(0).Type = Chartspace1.Constants.chChartTypeBarClustered
ChartSpace1.Charts(0).SeriesCollection(0).SetData ChartSpace1.Constants.chDimValues, ChartSpace1.Constants.chDataLiteral, "<%=tt%>"
label1.Caption = time()
End sub
-->
</script>
<p>
<object classid="clsid:59CCB4A0-727D-11CF-AC36-00AA00A47DD2" id="IeTimer1">
<param name="_ExtentX" value="1005">
<param name="_ExtentY" value="1005">
<param name="Interval" value="2000">
<param name="Enabled" value="True">
</object>
<object classid="clsid:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" id="Label1" width="70" height="24">
<param name="ForeColor" value="0">
<param name="BackColor" value="16777215">
<param name="VariousPropertyBits" value="8388635">
<param name="Caption" value>
<param name="PicturePosition" value="458753">
<param name="Size" value="1852;635">
<param name="MousePointer" value="0">
<param name="BorderColor" value="2147483654">
<param name="BorderStyle" value="0">
<param name="SpecialEffect" value="0">
<param name="Accelerator" value="0">
<param name="FontName" value="System">
<param name="FontEffects" value="1073741825">
<param name="FontHeight" value="165">
<param name="FontOffset" value="0">
<param name="FontCharSet" value="134">
<param name="FontPitchAndFamily" value="34">
<param name="ParagraphAlign" value="1">
<param name="FontWeight" value="700">
</object>
</p>
<p>
<object classid="clsid:0002E556-0000-0000-C000-000000000046" id="ChartSpace1" width="536" height="115">
<table width='100%' cellpadding='0' cellspacing='0' border='0' height='8'><tr><td bgColor='#336699' height='25' width='10%'> </td><td bgColor='#666666'width='85%'><font face='宋体' color='white' size='4'><b> 缺少 Microsoft Office Web Components</b></font></td></tr><tr><td bgColor='#cccccc' width='15'> </td><td bgColor='#cccccc' width='500px'><br> <font face='宋体' size='2'>此网页要求 Microsoft Office Web Components。<p align='center'> <a href='owc10.exe'>单击此处安装 MMicrosoft Office Web Components。</a>.</p></font><p><font face='宋体' size='2'>此网页同时要求 Microsoft Internet Explorer 4.01((SP-1)或更高版本。</p><p align='center'><a href='http://www.microsoft.com/windows/ie/default.htm'> 单击此处安装最新的 Internet Explorer</a>.</font><br> </td></tr></table></object>
</p>
<p>asdfasdfasf</p>
</body>
</html>
用了二个控件，IETIMER，延时一秒，还有一个是CHART控件，接收服务器端数据
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "DSN=qwe;uid=qwe;pwd=qwe;"
Set rs = createobject("ADODB.Recordset")
sql = "Select * from a where flag=1"
set rs = Conn.execute(sql)
If not rs.EOF then
tt=rs("num")
response.cookies("qw")("e")=tt
sql="update a set flag=0 where num="& tt
set rs=conn.execute(sql)
end if
%>
<script language="vbscript">
<!--
Sub IeTimer1_Timer
Categories = "第一组"
ChartSpace1.Clear
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "第一组温度值"
ChartSpace1.Charts(0).SeriesCollection(0).SetData ChartSpace1.Constants.chDimCategories, ChartSpace1.Constants.chDataLiteral, Categories
ChartSpace1.Charts(0).Type = Chartspace1.Constants.chChartTypeBarClustered
ChartSpace1.Charts(0).SeriesCollection(0).SetData ChartSpace1.Constants.chDimValues, ChartSpace1.Constants.chDataLiteral, "<%=tt%>"
label1.Caption = time()
End sub
-->
</script>
<p>
<object classid="clsid:59CCB4A0-727D-11CF-AC36-00AA00A47DD2" id="IeTimer1">
<param name="_ExtentX" value="1005">
<param name="_ExtentY" value="1005">
<param name="Interval" value="2000">
<param name="Enabled" value="True">
</object>
<object classid="clsid:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" id="Label1" width="70" height="24">
<param name="ForeColor" value="0">
<param name="BackColor" value="16777215">
<param name="VariousPropertyBits" value="8388635">
<param name="Caption" value>
<param name="PicturePosition" value="458753">
<param name="Size" value="1852;635">
<param name="MousePointer" value="0">
<param name="BorderColor" value="2147483654">
<param name="BorderStyle" value="0">
<param name="SpecialEffect" value="0">
<param name="Accelerator" value="0">
<param name="FontName" value="System">
<param name="FontEffects" value="1073741825">
<param name="FontHeight" value="165">
<param name="FontOffset" value="0">
<param name="FontCharSet" value="134">
<param name="FontPitchAndFamily" value="34">
<param name="ParagraphAlign" value="1">
<param name="FontWeight" value="700">
</object>
</p>
<p>
<object classid="clsid:0002E556-0000-0000-C000-000000000046" id="ChartSpace1" width="536" height="115">
<table width='100%' cellpadding='0' cellspacing='0' border='0' height='8'><tr><td bgColor='#336699' height='25' width='10%'> </td><td bgColor='#666666'width='85%'><font face='宋体' color='white' size='4'><b> 缺少 Microsoft Office Web Components</b></font></td></tr><tr><td bgColor='#cccccc' width='15'> </td><td bgColor='#cccccc' width='500px'><br> <font face='宋体' size='2'>此网页要求 Microsoft Office Web Components。<p align='center'> <a href='owc10.exe'>单击此处安装 MMicrosoft Office Web Components。</a>.</p></font><p><font face='宋体' size='2'>此网页同时要求 Microsoft Internet Explorer 4.01((SP-1)或更高版本。</p><p align='center'><a href='http://www.microsoft.com/windows/ie/default.htm'> 单击此处安装最新的 Internet Explorer</a>.</font><br> </td></tr></table></object>
</p>
<p>asdfasdfasf</p>
</body>
</html>
...全文
请发表友善的回复…
发表回复
