Haven't you ever went through this case?
Checking the sources used in my company, I can easily find these cases.
If I explain in detail, my point is
'Pop-up window' and 'Considerable Series'.
The case in which windows with the T-chart have holes on the screen takes place in random.
I think that occurs more common in out-dated computers with many pop-ups on the screen.
That computer has 2.80GB CPU and 1GB RAM.
It hardly occurs in the computers with better than 3GB CPU and 2GB RAM.
720 data are put in the X-axis and sometimes more than 4320 data can be put.
The problem is that it happens so randomly that it is hard to find the cause.
I usually use the source like this in general.
Code: Select all
---------------------------------------------------------------------
<%
Option Explicit
' Response.Clear
Response.Buffer = True
Response.Expires = 0
' response.expires = -1
' Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
Response.AddHeader "pragma", "no-cache"
Response.CacheControl = "no-cache"
'=======================================================
%>
<!-- #include virtual = "/inc/totalpage/inc_all_page.asp" -->
<!-- #include virtual = "/inc/database/inc_DAL_Helpers.asp" -->
<OBJECT RUNAT=server PROGID=DAL.DAOSimple id=oDAOSimple> </OBJECT>
<!-- #include virtual = "/inc/product/os390/function_sub_systemid.asp" -->
<!-- #include virtual = "/inc/product/os390/com_function_date.asp" -->
<!-- #include virtual = "/inc/proc/com_function_number.asp" -->
<%
Dim m_modName
Dim blnDebug, blnResponseEnd
m_modName = "online/04.asp"
blnDebug = false
blnResponseEnd = false
dim strSystem, strTime
dim avg_time
'=======================================================
Function GetBySystem()
GetBySystem = _
oDAOSimple.RunSPReturnString("usp_os390_common_getbysystemid", , _
Application("Conn_String"))
end Function
'=======================================================
Call Page_Load()
%>
<SCRIPT LANGUAGE=javascript>
<!--
function window_onload()
{
ifrm.document.location.href = "04_ifrm.asp?lstSystem=<%=strSystem%>&lstTime=<%=strTime%>";
TChartInit();
NowDateTime();
SetSelect(frmForm1.lstSystem,"<%=strSystem%>");
SetSelect(frmForm1.lstTime,"<%=strTime%>");
setTimeout ("Move2()",2*60*1000)
}
function Move(strValue)
{
ifrm.document.location.href = "04_ifrm.asp?lstSystem=<%=strSystem%>&lstTime=<%=strTime%>";
setTimeout ("Move()",5*60*1000)
}
function Move2()
{
frmForm1.action = "04.asp";
frmForm1.method = "Post";
frmForm1.submit();
}
function NowDateTime()
{
dNowDateTime.innerHTML = GetNowDate(".","F") + "(" + GetWeekDay("K") + ") " + GetNowTime("").substring(0,5);
setTimeout("NowDateTime();",60000);
}
function MM_reloadPage(init)
{
if (init==true) with (navigator)
{
if((appName=="Netscape")&&(parseInt(appVersion)==4))
{
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage;
}
}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub TChartList()
End Sub
Sub TChartInit()
frmForm1.TChart1.Environment.IEPrintWithPage = true
frmForm1.TChart1.Import.LoadFromURL("<%=gUrlMain%>" & "os390/tchart_tee/online_cpu_01.tee")
frmForm1.TChart1.RemoveAllSeries
<%call View_011()%>
End Sub
Sub TChart1_OnClick()
End Sub
Sub TChart1_OnClickSeries(SeriesIndex, ValueIndex, Button, Shift, X, Y)
msgBox "Time : " + CStr(frmForm1.TChart1.Series(SeriesIndex).PointLabel(ValueIndex)) + chr(10) + frmForm1.TChart1.Series(SeriesIndex).Title & " Value : "+CStr(frmForm1.TChart1.Series(SeriesIndex).PointValue(ValueIndex))
frmForm1.TChart1.StopMouse
End Sub
sub button1_onclick()
frmForm1.TChart1.ShowEditor
end sub
-->
</script>
<style>
body{filter='progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=pink, EndColorStr=#FFFFFF)'}
.test1 {filter='progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#EEFCFF, EndColorStr=#94CBD9)'}
</style>
</head>
<body bgcolor="#DEF6FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="return window_onload()">
<form name="frmForm1">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<!-- Teechart -->
<tr>
<td height="85%" colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="2">
<OBJECT classid="CLSID:B6C10489-FB89-11D4-93C9-006008A7EED4" data=data:application/x-oleobject;base64,iQTBton71BGTyQBgCKfu1FRQRjALVENoYXJ0Q2hhcnQABExlZnQCAANUb3 ACAAVXaWR0aAMCAwZIZWlnaHQD1gEUQmFja1dhbGwuQnJ1c2guQ29sb3IHB2NsV2hpdGUUQmFja1dhbGwuQnJ1c2guU3R5bGUHB 2JzQ2xlYXISR3JhZGllbnQuRGlyZWN0aW9uBwtnZEJvdHRvbVRvcBFHcmFkaWVudC5FbmRDb2xvcgcHY2xXaGl0ZRRMZWZ0V2Fs bC5CcnVzaC5Db2xvcgcHY2xXaGl0ZQ5MZWZ0V2FsbC5Db2xvcgcHY2xXaGl0ZQxNYXJnaW5Cb3R0b20CAwlNYXJnaW5Ub3ACBRJ UaXRsZS5Gb250LkNoYXJzZXQHD0hBTkdFVUxfQ0hBUlNFVBFUaXRsZS5Gb250LkhlaWdodALtD1RpdGxlLkZvbnQuTmFtZQYEsb y4shBUaXRsZS5Gb250LlN0eWxlCwZmc0JvbGQAElRpdGxlLlRleHQuU3RyaW5ncwEGASAAFUJvdHRvbUF4aXMuQXhpcy5XaWR0a AIBF0JvdHRvbUF4aXMuR3JpZC5WaXNpYmxlCBtCb3R0b21BeGlzLkxhYmVsc1NlcGFyYXRpb24CABlCb3R0b21BeGlzLk1pbm9y VGlja0NvdW50AgQdQm90dG9tQXhpcy5UaXRsZS5Gb250LkNoYXJzZXQHD0hBTkdFVUxfQ0hBUlNFVBtCb3R0b21BeGlzLlRpdGx lLkZvbnQuQ29sb3IHBmNsQmx1ZRxCb3R0b21BeGlzLlRpdGxlLkZvbnQuSGVpZ2h0AvMaQm90dG9tQXhpcy5UaXRsZS5Gb250Lk 5hbWUGBLG8uLIOQ2hhcnQzRFBlcmNlbnQCBRJMZWZ0QXhpcy5BdXRvbWF0aWMIGUxlZnRBeGlzLkF1dG9tYXRpY01heGltdW0IG UxlZnRBeGlzLkF1dG9tYXRpY01pbmltdW0IE0xlZnRBeGlzLkF4aXMuV2lkdGgCARBMZWZ0QXhpcy5NYXhpbXVtBQAAAAAAAADI BUAXTGVmdEF4aXMuTWlub3JUaWNrQ291bnQCBBRMZWZ0QXhpcy5UaXRsZS5BbmdsZQMOARZMZWZ0QXhpcy5UaXRsZS5DYXB0aW9 uBgxDUFW757/rwLJbJV0bTGVmdEF4aXMuVGl0bGUuRm9udC5DaGFyc2V0Bw9IQU5HRVVMX0NIQVJTRVQZTGVmdEF4aXMuVGl0bG UuRm9udC5Db2xvcgcGY2xCbHVlGkxlZnRBeGlzLlRpdGxlLkZvbnQuSGVpZ2h0AvEYTGVmdEF4aXMuVGl0bGUuRm9udC5OYW1lB gVAsby4shJMZWZ0QXhpcy5UaXRsZVNpemUCARBMZWdlbmQuQWxpZ25tZW50BwhsYUJvdHRvbRFMZWdlbmQuQ29sb3JXaWR0aAIF E0xlZ2VuZC5Gb250LkNoYXJzZXQHD0hBTkdFVUxfQ0hBUlNFVBJMZWdlbmQuRm9udC5IZWlnaHQC8xBMZWdlbmQuRm9udC5OYW1 lBgaxvLiyw7wSTGVnZW5kLkxlZ2VuZFN0eWxlBwhsc1NlcmllcxFMZWdlbmQuU2hhZG93U2l6ZQIAE0xlZ2VuZC5TeW1ib2wuV2 lkdGgCBRBMZWdlbmQuVGV4dFN0eWxlBwhsdHNQbGFpbg1MZWdlbmQuVG9wUG9zAgATUmlnaHRBeGlzLkF1dG9tYXRpYwgaUmlna HRBeGlzLkF1dG9tYXRpY01heGltdW0IGlJpZ2h0QXhpcy5BdXRvbWF0aWNNaW5pbXVtCBRSaWdodEF4aXMuQXhpcy5XaWR0aAIB FlJpZ2h0QXhpcy5HcmlkLlZpc2libGUIEVJpZ2h0QXhpcy5NYXhpbXVtBQAAAAAAAADIBUAYUmlnaHRBeGlzLk1pbm9yVGlja0N vdW50AgQcUmlnaHRBeGlzLlRpdGxlLkZvbnQuQ2hhcnNldAcPSEFOR0VVTF9DSEFSU0VUG1JpZ2h0QXhpcy5UaXRsZS5Gb250Lk hlaWdodALzGVJpZ2h0QXhpcy5UaXRsZS5Gb250Lk5hbWUGBrG8uLLDvBJUb3BBeGlzLkF4aXMuV2lkdGgCAQ9Ub3BBeGlzLlZpc 2libGUIBlZpZXczRAgNWm9vbS5BbmltYXRlZAkKQmV2ZWxPdXRlcgcGYnZOb25lCkJldmVsV2lkdGgCAAtCb3JkZXJTdHlsZQcI YnNTaW5nbGUFQ29sb3IHB2NsV2hpdGUAAAAAAAACAAAAAP////8=
height=500 id=TChart1 style="HEIGHT: 500; LEFT: 0px; TOP: 0px; WIDTH: 980px" type=application/x-oleobject
width=980></OBJECT>
</table>
</td>
</tr>
</table>
<iframe name= "ifrm" style = "HEIGHT:500px; WIDTH: 500px;DISPLAY:none"></iframe>
</form>
</body>
</html>
<%
Sub Page_Load()
strSystem = rtrim(Request("lstSystem"))
strTime = rtrim(Request("lstTime"))
if strSystem = "" or isnull(strSystem) then
strSystem = "HQ"
end if
if strTime = "" or isnull(strTime) then
strTime = "24hour"
end if
If IsFormValid = false Then
Call ErrorMsg( _
m1100, _
m_modName)
Response.End
End If
Call Init()
End Sub
Sub Init()
if strTime = "24hour" then
avg_time = 2
else
avg_time = 10
end if
End Sub
Function IsFormValid
IsFormValid = true
If Len(strSystem) = 0 Then
IsFormValid = false
End if
End Function
%>
<%
sub View_011
dim j,u,x
dim Rs,Rs1
dim Gr_011,Gr_012
dim time_per_cnt
dim job_group_cnt
if strTime = "24hour" then
avg_time = 2
time_per_cnt = (60 / avg_time ) * 24
else
avg_time = 10
time_per_cnt = ((60 / avg_time ) * 24) * 7
end if
set Rs=oDAOSimple.RunSPReturnRs("usp_os390_online_cpu_04",Array(_
mp2(strSystem),mp2("ALL"),mp2(strTime)),_
Application("Conn_String"))
if Rs.EOF then
Gr_011 = null
else
Gr_011 = Rs.GetRows()
end if
Rs.Close()
Set Rs = Nothing
%>
frmForm1.TChart1.Axis.Bottom.Title.Caption =" Time "
frmForm1.TChart1.Axis.Left.Maximum = 100
<% if not isnull(Gr_011) then
job_group_cnt = (Ubound(Gr_011,2)+1) / time_per_cnt
for u= 0 to job_group_cnt -1 %>
frmForm1.TChart1.AddSeries(3)
<% next
for j = 0 to Ubound(Gr_011,2)
if strTime = "24hour" then
x = left(Gr_011(0,j),2) & ":" & right(Gr_011(0,j),2)
else
x = mid(Gr_011(0,j),5,2) & "/" & mid(Gr_011(0,j),7,2)& " " & mid(Gr_011(0,j),9,2)& ":" &mid(Gr_011(0,j),11,2)
end if %>
frmForm1.TChart1.Series(<%=j mod job_group_cnt%>).asArea.AreaPen.Visible = false
frmForm1.TChart1.Series(<%=j mod job_group_cnt%>).asArea.MultiArea = 1
frmForm1.TChart1.Series(<%=j mod job_group_cnt%>).ShowInLegend = True
frmForm1.TChart1.Series(<%=j mod job_group_cnt%>).Title = "<%=Gr_011(1,j)%>"
frmForm1.TChart1.series(<%=j mod job_group_cnt%>).Add <%=Gr_011(2,j)%>,"<%=x%>",536870912
<% next
erase Gr_011
end if
end sub
%>
----------------------------------------------------------------