Почему мой отчет rdlc не загружается после публикации сайта? Но он работает на localhost. Извините за мою грамматику
DownloadPage.aspx-файл
Защищенные суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Попробуй
Если Сессия("Ветвь") = 1, То
Ответ.Перенаправление("~/SamplePage1.aspx", False)
Свойство HttpContext.Тока.ApplicationInstance.CompleteRequest()
ElseIf Session("Ветвь") = 2 Тогда
Ответ.Перенаправление("~/SamplePage2.aspx", False)
Свойство HttpContext.Тока.ApplicationInstance.CompleteRequest()
Конец, Если
Поймать ex как исключение
Сеанс("сообщение об ошибке") = ex.Message
Ответ.Перенаправление("~/ErrorPage.aspx")
Конец Попытки
Конец Подводной Лодки
В команде printpage.aspx-файл
Защищенный Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Обрабатывает Меня.Load
Если сеанс("пользователь") < gt; s, то
temp = сессия("пользователь").Метод toString()
Конец, Если
Dim strQuery As String = "select * from tblAccount_Reservation where" _
&ампер; " fldid, равным = @fldid, равным"
против.Открыть()
Использование cmd в качестве новой команды SqlCommand()
cmd.параметры.AddWithValue("@fldID", Session("user"))
УМК.Свойство Commandtype = Значение Commandtype.Текст
УМК.CommandText = strQuery
УМК.Подключение = кон
Дим СДР в качестве объекта sqldatareader = ЦМД.Метода executereader()
Пока СДР.читать()
Labelemail.Text = sdr("fldEmail").Метод toString()
Labelfirst.Text = sdr("fldfirstname").Метод toString()
Конец Пока
СДР.Закрывать()
УМК.Метод executenonquery()
Конец Использования
Если Нет IsPostBack То
GrabData(Session("пользователь"))
Конец, Если
Конец Подводной Лодки
Private Sub GrabData(ByVal ID в виде строки)
Тусклые предупреждения как предупреждение() = ничего
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Тусклое кодирование в виде строки = ничего
Тусклое расширение в виде строки = ничего
Servicepointmanager и.ServerCertificateValidationCallback = _
Новая Система.Net.Security.RemoteCertificateValidationCallback(AddressOf customCertValidation)
Меня.Отчет1.LocalReport.Источники Данных.Четкий()
Dim адаптер как новый AupairTempRegistration1TableAdapters.tblaupairtempTableAdapter()
Таблица Dim как новая AupairTempRegistration1.tblaupairtempDataTable
адаптер.FillByID(таблица, ID)
Меня.Отчет1.LocalReport.Источники Данных.Add(New ReportDataSource("DataSet1", CType(table, DataTable)))
Отчет1.LocalReport.Значение Reportpath, Равное = "Отчеты/Докладе4.с отчетами"
Отчет1.Местный репортаж.EnableExternalImages = True
Me.Report1.DataBind()
Dim bytes As Byte() = Report1.LocalReport.Визуализация("ПДФ", ничего, типа, кодирование, расширение, streamids, _
предупреждения)
Ответ.Буфер = True
Ответ.Четкий()
Ответ.Значение contentType = умолчанию.
Ответ.AddHeader("content-disposition", ("attachment; filename=" & "Personal Data and Barcoded Information Form" & amp; ".") + расширение)
Ответ.Кэш.SetCacheability(HttpCacheability.NoCache)
Ответ.BinaryWrite(байты)
Тусклый поток памяти как Новый Поток памяти
поток памяти.Seek(0, SeekOrigin.Begin)
Тусклое сообщение как новое почтовое сообщение
Dim прикреплен как новое вложение(memorystream, "Report4.pdf")
сообщение.Вложения.Добавить(новый привязанности(новая потоке MemoryStream(в байтах), "Barcoded_Confirmation_Form_" &усилителя; дата и время.Сейчас.Метод toString("ММ. ДД.гг") &ампер; ".формат PDF"))
сообщение.From = новый почтовый адрес("blankman@yahoo.com")
сообщение.Для.Добавить(Labelemail.Текст)
сообщение.Чч.Добавить(Labelemail.Текст)
сообщение.Subject = "форма персональных данных и Штрих-кодированная информация"
сообщение.IsBodyHtml = True
сообщение.Body = "Добрый День!" + "" + Labelfirst.Текст + "" + "пожалуйста, смотрите приложение."
Dim mail_client As SmtpClient = новый SmtpClient()
Дим str_from_address как String = "evpappointment@cfo.gov.ph"
'//Предоставление учетных данных (имя пользователя и пароль)
Дим network_cdr как а networkcredential = новый а networkcredential()
network_cdr.Имя пользователя = str_from_address
network_cdr.Password = "e05v22p16"
почтовый клиент.Хозяин = "mail.cfo.gov.ph"'; //SMTP-хост
почтовый клиент.UseDefaultCredentials = False
почтовый клиент.Учетные данные = network_cdr
'//Конец
почтовый клиент.Отправить сообщение)
Конец Подводной Лодки
Что я уже пробовал:
В команде printpage.aspx-файл
Защищенный Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Обрабатывает Меня.Load
Если сеанс("пользователь") < gt; s, то
temp = сессия("пользователь").Метод toString()
Конец, Если
Dim strQuery As String = "select * from tblAccount_Reservation where" _
&ампер; " fldid, равным = @fldid, равным"
против.Открыть()
Использование cmd в качестве новой команды SqlCommand()
cmd.параметры.AddWithValue("@fldID", Session("user"))
УМК.Свойство Commandtype = Значение Commandtype.Текст
УМК.CommandText = strQuery
УМК.Подключение = кон
Дим СДР в качестве объекта sqldatareader = ЦМД.Метода executereader()
Пока СДР.читать()
Labelemail.Text = sdr("fldEmail").Метод toString()
Labelfirst.Text = sdr("fldfirstname").Метод toString()
Конец Пока
СДР.Закрывать()
УМК.Метод executenonquery()
Конец Использования
Если Нет IsPostBack То
GrabData(Session("пользователь"))
Конец, Если
Конец Подводной Лодки
Private Sub GrabData(ByVal ID в виде строки)
Тусклые предупреждения как предупреждение() = ничего
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Тусклое кодирование в виде строки = ничего
Тусклое расширение в виде строки = ничего
Servicepointmanager и.ServerCertificateValidationCallback = _
Новая Система.Net.Security.RemoteCertificateValidationCallback(AddressOf customCertValidation)
Меня.Отчет1.LocalReport.Источники Данных.Четкий()
Dim адаптер как новый AupairTempRegistration1TableAdapters.tblaupairtempTableAdapter()
Таблица Dim как новая AupairTempRegistration1.tblaupairtempDataTable
адаптер.FillByID(таблица, ID)
Меня.Отчет1.LocalReport.Источники Данных.Add(New ReportDataSource("DataSet1", CType(table, DataTable)))
Отчет1.LocalReport.Значение Reportpath, Равное = "Отчеты/Докладе4.с отчетами"
Отчет1.Местный репортаж.EnableExternalImages = True
Me.Report1.DataBind()
Dim bytes As Byte() = Report1.LocalReport.Визуализация("ПДФ", ничего, типа, кодирование, расширение, streamids, _
предупреждения)
Ответ.Буфер = True
Ответ.Четкий()
Ответ.Значение contentType = умолчанию.
Ответ.AddHeader("content-disposition", ("attachment; filename=" & "Personal Data and Barcoded Information Form" & amp; ".") + расширение)
Ответ.Кэш.SetCacheability(HttpCacheability.NoCache)
Ответ.BinaryWrite(байты)
Тусклый поток памяти как Новый Поток памяти
поток памяти.Seek(0, SeekOrigin.Begin)
Тусклое сообщение как новое почтовое сообщение
Dim прикреплен как новое вложение(memorystream, "Report4.pdf")
сообщение.Вложения.Добавить(новый привязанности(новая потоке MemoryStream(в байтах), "Barcoded_Confirmation_Form_" &усилителя; дата и время.Сейчас.Метод toString("ММ. ДД.гг") &ампер; ".формат PDF"))
сообщение.From = новый почтовый адрес("blankman@yahoo.com")
сообщение.Для.Добавить(Labelemail.Текст)
сообщение.Чч.Добавить(Labelemail.Текст)
сообщение.Subject = "форма персональных данных и Штрих-кодированная информация"
сообщение.IsBodyHtml = True
сообщение.Body = "Добрый День!" + "" + Labelfirst.Текст + "" + "пожалуйста, смотрите приложение."
Dim mail_client As SmtpClient = новый SmtpClient()
Дим str_from_address как String = "evpappointment@cfo.gov.ph"
'//Предоставление учетных данных (имя пользователя и пароль)
Дим network_cdr как а networkcredential = новый а networkcredential()
network_cdr.Имя пользователя = str_from_address
network_cdr.Password = "e05v22p16"
почтовый клиент.Хозяин = "mail.cfo.gov.ph"'; //SMTP-хост
почтовый клиент.UseDefaultCredentials = False
почтовый клиент.Учетные данные = network_cdr
'//Конец
почтовый клиент.Отправить сообщение)
Конец Подводной Лодки
Пожалуйста, помогите мне