水晶报表9.2+ASP,控件显示一个灰色的界面，数据无法正常显示

[xiaofwq]

原码如下：

<!--#include file="conn.asp"-->
<%

DIM SQLstr
dim reportname
dim path
'dim conn
set session("oRs")=Server.CreateObject("ADODB.Recordset")
set oADORecordset=Server.CreateObject("ADODB.Recordset")
set xmldoc=Server.CreateObject("MSXML2.DOMDocument")

SQLstr = "select * from cust"

oADORecordset.Open SQLstr,conn,1,1
oADORecordset.Save xmldoc,1
oADORecordset.Close
session("oRs").Open xmldoc

'On Error Resume Next
reportname="SMR004R03.rpt"
Path=Request.ServerVariables("PATH_TRANSLATED")

If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If
f IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if


Set session("oRpt")=session("oApp").OpenReport(Server.MapPath(reportname),1)
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False

Set oRptTable = session("oRpt").Database.Tables.Item(1)

oRptTable.SetDataSource session("oRs"), 3

session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "<SCRIPT LANGUAGE=javascript>alert('An Error has occured on the server in attempting to access the data source " & Err.Description & "')</SCRIPT>"
Else
If IsObject(session("oPageEngine")) Then
set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If

%>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize()

Dim webBroker
Set webBroker = CreateObject("WebReportBroker9.WebReportBroker")

if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
else
Dim webSource
Set webSource = CreateObject("WebReportSource9.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL="http://127.0.0.1/tt/tt.rpt"
CRViewer.ReportSource =webSource
end if
CRViewer.ViewReport
window.focus
End Sub
-->
</SCRIPT>

<body topmargin="0" leftmargin="0" bottomMargin=0 scrolling="no" onload="Page_Initialize()">
<object classid=CLSID:2DEF4530-8CE6-41c9-84B6-A54536C90213 height="100%"
id=CRViewer width="100%" codebase="/viewer9/activeXViewer/activexviewer.cab#Version=9,2,0,442" align="top">
<param name="DisplayGroupTree" value="0" />
<param name="DisplayToolbar" value="-1" />
<param name="EnableGroupTree" value="0" />
<param name="EnableNavigationControls" value="-1" />
<param name="EnableStopButton" value="0" />
<param name="EnablePrintButton" value="-1" />
<param name="EnableZoomControl" value="-1" />
<param name="EnableCloseButton" value="0" />
<param name="EnableProgressControl" value="-1" />
<param name="EnableSearchControl" value="-1" />
<param name="EnableRefreshButton" value="0" />
<param name="EnableDrillDown" value="0" />
<param name="EnableAnimationControl" value="1" />
<param name="EnableSelectExpertButton" value="0" />
<param name="EnableToolbar" value="-1" />
<param name="DisplayBorder" value="0" />
<param name="DisplayTabs" value="0" />
<param name="DisplayBackgroundEdge" value="-1" />
<param name="SelectionFormula" value />
<param name="EnablePopupMenu" value="-1" />
<param name="EnableExportButton" value="-1" />
<param name="EnableSearchExpertButton" value="0" />
<param name="EnableHelpButton" value="0" />
</object>

[neibu]

你的灰色的界面代码好象有问题。

[xiaofwq]

废话！

[neibu]

虽然回答错误，但也不至于得到这种态度吧？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
这种态度？？？？？？？？？？

[xiaofwq]

请大家多多指点指点！