Dim cnn As New OracleConnection(G_strCnn)
Dim com As New OracleCommand
If strParent = Nothing Or strParent = "" Then
com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "'"
Else
com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "' And parentnodeid='" & strParent & "'"
End If
com.Connection = cnn
Dim dr As OracleDataReader
Dim bFile() As Byte
Try
cnn.Open()
dr = com.ExecuteReader
If dr.Read Then
ReDim bFile(dr.GetOracleLob(0).Length)
strDiskFileName = Server.MapPath(".") & "\FileCache\" & dr.Item(1)
Me.txtFileName.Text = strDiskFileName
strHttpFileNameAs = "./FileCache/" & dr.Item(1)
dr.GetOracleLob(0).Read(bFile, 0, dr.GetOracleLob(0).Length)
Dim oFile As New System.IO.FileStream(strDiskFileName, IO.FileMode.Create)
oFile.Write(bFile, 0, bFile.Length)
oFile.Flush()
oFile.Close()
Else
lblDisplayReport.Text = "请添加相关的报告!"
End If
Catch ex As Exception
Response.Write(ex.ToString)
Finally
dr.Close()
dr.Dispose()
com.Dispose()
cnn.Close()
cnn.Dispose()
End Try
strFilePath = "files"
Dim strScript As String
strScript = "<script language='javascript'>document.frames(""iframereport"").location.href=""" & strHttpFileNameAs & """;</script>"