001.<%
002.
003.
004.Set oConn = Server.CreateObject("ADODB.Connection")
005.
006.oConn.Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=thainjr_employee; UID=root;PASSWORD=123456; OPTION=3")
007.
008.
009.set session("oRs") = Server.CreateObject("ADODB.Recordset")
010.
011.session("oRs").ActiveConnection = oConn
012.
013.session("oRs").Open "select * from tbl_employee"
014.
015.reportname = "test.rpt"
016.
017.If Not IsObject (session("oApp")) Then
018.Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
019.End If
020.
021.
022.Path = Request.ServerVariables("PATH_TRANSLATED")
023.While (Right(Path, 1) <> "\" And Len(Path) <> 0)
024.iLen = Len(Path) - 1
025.Path = Left(Path, iLen)
026.Wend
027.
028.
029.If IsObject(session("oRpt")) then
030. Set session("oRpt") = nothing
031.End if
032.
033.On error resume next
034.
035.Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)
036.
037.
038.If Err.Number <> 0 Then
039. Response.Write "Error Occurred creating Report Object: " & Err.Description
040. Set Session("oRpt") = nothing
041. Set Session("oApp") = nothing
042. Session.Abandon
043. Response.End
044.End If
045.
046.
047.
048.session("oRpt").MorePrintEngineErrorMessages = False
049.session("oRpt").EnableParameterPrompting = False
050.
051.
052.
053.session("oRpt").DiscardSavedData
054.
055.set Database = session("oRpt").Database
056.
057.
058.set Tables = Database.Tables
059.
060.
061.set Table1 = Tables.Item(1)
062.
063.
064.Table1.SetPrivateData 3, session("oRs")
065.
066.On Error Resume Next
067.session("oRpt").ReadRecords
068.
069.If Err.Number <> 0 Then
070. Response.Write "Error Occurred Reading Records: " & Err.Description
071. Set Session("oRpt") = nothing
072. Set Session("oApp") = nothing
073. Session.Abandon
074. Response.End
075.Else
076. If IsObject(session("oPageEngine")) Then
077. set session("oPageEngine") = nothing
078. End If
079. set session("oPageEngine") = session("oRpt").PageEngine
080.End If
081.%>
082.<BODY BGCOLOR=C6C6C6 ONUNLOAD="CallDestroy();" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
083.<object id="CRViewer"
084. classid="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
085. width=100% height=100%
086. CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
087.
088. <param name="EnableRefreshButton" value=0>
089. <param name="EnableGroupTree" value=0>
090. <param name="DisplayGroupTree" value=0>
091. <param name="EnablePrintButton" value=1>
092. <param name="EnableExportButton" value=1>
093. <param name="EnableDrillDown" value=1>
094. <param name="EnableSearchControl" value=1>
095. <param name="EnableAnimationControl" value=0>
096. <param name="EnableZoomControl" value=1>
097.</object>
098.<script language="VBScript">
099.<!--
100.Sub Window_Onload
101. On Error Resume Next
102. Dim webBroker
103. Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
104. if ScriptEngineMajorVersion < 2 then
105. 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."
106. CRViewer.ReportName = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"
107. else
108. Dim webSource
109. Set webSource = CreateObject("WebReportSource.WebReportSource")
110. webSource.ReportSource = webBroker
111. webSource.URL = Location.Protocol + "//" + Location.Host + "/scrsamples/rptserver.asp"
112. webSource.PromptOnRefresh = True
113. CRViewer.ReportSource = webSource
114. end if
115. CRViewer.ViewReport
116.End Sub
117.-->
118.</script>
119.<script language="javascript">
120.function CallDestroy()
121.{
122. window.open("Cleanup.asp");
123.}
124.</script>
125.<script language="javascript">
126.window.moveTo(0,0);
127.//window.resizeTo(screen.availwidth,screen.availheight);
128.</script>
Quote:
