为什么我执行存储过程能够有数据显示,但但程序里面执行查询报表,没有数据显示,这是什么原因啊,我的程序代码为:
Sub geneSimuDailyReport(strPortList, strChkDate1)
     
     on Error resume next
     
     ' Clear extraneous errors from the Errors collection.
     DBConn.Errors.Clear
    
      set Cmd = server.CreateObject("adodb.command")
       
        Cmd.ActiveConnection = DBConn
          
     Cmd.CommandText ="UP_simulatorDayrep_one" '"UP_simulatorDailyReport_new" 
     Cmd.CommandType = 4 
     Cmd.CommandTimeout = 3600
     server.ScriptTimeout = 3600

     Cmd.Parameters.Append cmd.CreateParameter("@beginTime", 200, 1, 10,  strChkDate1)
      Cmd.Parameters.Append Cmd.CreateParameter("@portList ", 200, 1, 5000,strPortList)    
     Cmd.Parameters.Append cmd.CreateParameter("@beginHour", 200, 1, 2,  23)
     set retRs=Cmd.Execute() 
      
     if Err.number <>0 then    
            Response.Write "Error in " & Err.number & " " & Err.source 
            Response.Write "<BR>" & Err.description & "<P>"            
     end if
     
     set Cmd = nothing
End Sub
Sub ShowOnePage(rsResult, Svalue_flag)
    DIM avg_value, max_value, sum_value
    
    If rsResult Is NoThing Then
        Exit Sub
    End If
    
    IF rsResult.EOF then
        Response.Redirect ("../fail.asp?failcode=3")
    END IF    
        
    Response.Write "<script language=javascript>" & chr(13) & chr(10)
    Response.Write "//获得待添加的记录串并加入到Active X控件中" & chr(13) & chr(10)
    
    Do While Not rsResult.EOF 
            str_record = Cstr(rsResult("station_code")) & "[" & CSTR(rsResult("port_code")) & "]"
            str_record = str_record & "#" & rsResult("address")
            str_record = str_record & "#" & rsResult("prop_name")
            str_record = str_record & "#" & rsResult("prop_unit")
            str_record = str_record & "#" & rsResult("alert_value")
            str_record = str_record & "#" & rsResult("poweroff_value")
            str_record = str_record & "#" & rsResult("poweroffreset_value")
            str_record = str_record & "#" & rsResult("m_a_value_time")
            str_record = str_record & "#" & rsResult("alert_count")
            str_record = str_record & "#" & rsResult("alert_time")
            str_record = str_record & "#" & rsResult("poweroff_count")
            str_record = str_record & "#" & rsResult("poweroff_time")
            str_record = str_record & "#" & rsResult("kdalert_count")
            str_record = str_record & "#" & rsResult("kdalert_time")
            
            sum_value = 0 
            max_value = 0
            count_i = 0
            For i = 0 to 23
                    IF Not rsResult.EOF  Then
                            If  Svalue_flag = "a" then  '平均值
                                temp_value = rsResult("a_a_value")
                            Else    
                                temp_value = rsResult("m_a_value") '最大值
                            End if 
                                        
                            If not Isnull(rsResult("m_a_value")) then
                                if max_value < cdbl(rsResult("m_a_value")) Then 
                                    max_value = cdbl(rsResult("m_a_value")) 
                                end if    
                            End if 
                    
                            If not Isnull(rsResult("a_a_value")) Then
                                sum_value = sum_value + CDbl(rsResult("a_a_value"))
                                count_i = count_i + 1    

                            End if     
                            prop_code = rsResult("prop_code")
                            temp_value2 = getValueOfPort(2, prop_code , temp_value ,0, 0)    
                            str_record = str_record & "#" & temp_value2
                            
                            rsResult.MoveNext  
                    ELSE
                            str_record = str_record & "#" & ""
                    End If                        
            Next
            
            if count_i = 0 then
                count_i = 1
            end if
            temp_value2 = getValueOfPort(2, prop_code , sum_value / count_i, 0, 0)
            str_record = str_record & "#" & temp_value2
            
            temp_value2 = getValueOfPort(2, prop_code , max_value,0, 0)
            str_record = str_record & "#" & temp_value2        
            '备注
            str_record = str_record & "#" 
            str_record     = replace(str_record, "&nbsp;", " ")
            Response.Write "DGridPrint.AddRecord('" & str_record& "')" & chr(13) & chr(10)
        Loop        

    Response.Write "</script>"  & chr(13) & chr(10)
End Sub

%>
<SCRIPT LANGUAGE=javascript>
<!--
function quxiao_onclick() 
{
    window.parent.close();
    window.parent.returnValue="0";
}
//-->
</SCRIPT>
dim strCheckTm1        '开始时间
dim strCheckTm2        '结束时间
dim strSelectedPort    '站点代码列表

strCheckTm1        = Request.QueryString("tCheckTm1")
strCheckTm2        = Request.QueryString("tCheckTm2")
strSelectedPort     = Request.QueryString("selectedPortList")
strSelectedPort     = replace(strSelectedPort     , ";", "&")
Svalue_flag         = Request.QueryString("value_flag")
Str_PageHeader  = left(strCheckTm1,4) & "年" & mid(strCheckTm1,6,2)& "月"& right(strCheckTm1,2) & "模拟量日报表"

Str_foot=  trim(session("colliery_name"))

Str_TableHeader = "编 码#地址#探头属性#探头名称"
For i = 0 To 23
   Str_TableHeader = Str_TableHeader & "#"& right("0"&cstr(i),2) & "时"
Next
Str_TableHeader = Str_TableHeader & "#平均值#最大值#最大值发生时间#报警次数#报警累计时间#断电次数#断电累计时间#馈电异常次数#馈电异常累计时间#备注"