Current Directory:
\\10.5.0.10\iis\Sites\goprint2.com\www\
Contents:
Directories:
App_Code
App_Data
App_GlobalResources
App_LocalResources
App_WebReferences
articles
aspnet_client
Bin
common
designer
dillners
images
img
includes
kwikkopy
order_centre
printthree
RadControls
update
WebServices
Files:
about_us.aspx | Download
about_us.aspx.vb | Download
contact_us.aspx | Download
contact_us.aspx.vb | Download
create_user.aspx | Download
create_user.aspx.vb | Download
Default.aspx | Download
Default.aspx.vb | Download
discount.aspx | Download
discount.aspx.vb | Download
domain_activation.aspx | Download
domain_activation.aspx.vb | Download
downloadPD.aspx | Download
downloadPD.aspx.vb | Download
download_error.aspx | Download
download_error.aspx.vb | Download
email_policy.aspx | Download
email_policy.aspx.vb | Download
error_page.aspx | Download
error_page.aspx.vb | Download
faq.aspx | Download
faq.aspx.vb | Download
favicon.ico | Download
FileNotFound.htm | Download
generate_print_driver_step1.aspx | Download
generate_print_driver_step1.aspx.vb | Download
generate_print_driver_step2.aspx | Download
generate_print_driver_step2.aspx.vb | Download
generate_print_driver_step3.aspx | Download
generate_print_driver_step3.aspx.vb | Download
Global.asax | Download
header.fla | Download
header.swf | Download
home.aspx | Download
home.aspx.vb | Download
jsincluding.js | Download
login.aspx | Download
login.aspx.vb | Download
marcelito.txt | Download
packages.aspx | Download
packages.aspx.vb | Download
password_recovery.aspx | Download
password_recovery.aspx.vb | Download
PrintIt.master | Download
PrintIt.master.vb | Download
PrintIt.sitemap | Download
PrintItEs.sitemap | Download
PrintItFr.sitemap | Download
PrintIt_CreateUser.master | Download
PrintIt_CreateUser.master.vb | Download
PrintIt_OutSide.master | Download
PrintIt_OutSide.master.vb | Download
privacy_policy.aspx | Download
privacy_policy.aspx.vb | Download
proba.aspx | Download
proba.aspx.vb | Download
robots.txt | Download
sample.txt | Download
show_sess_par.aspx | Download
show_sess_par.aspx.vb | Download
site_map.aspx | Download
site_map.aspx.vb | Download
site_map.xml | Download
sRacadUploader.jar | Download
sRacadUploader_last.jar | Download
terms_and_conditions.aspx | Download
terms_and_conditions.aspx.vb | Download
terms_of_service.aspx | Download
terms_of_service.aspx.vb | Download
test.txt | Download
testimonials.aspx | Download
testimonials.aspx.vb | Download
TextDraw.html | Download
udraw-designer-widescreen-ui.zip | Download
web.config | Download
websites-for-printers.aspx | Download
websites-for-printers.aspx.vb | Download
File Preview:
Partial Class order_centre_convert_to_pdf_step1
Inherits System.Web.UI.Page
Private pdfConverterWS As New com.racadtech.services.PDFConverter()
Private ticket As New com.racadtech.services.Ticket()
Private _webAdapter As New WebWS()
Public ReadOnly Property WebAdapter() As WebWS
Get
Return _webAdapter
End Get
End Property
Public ReadOnly Property JobFilesDirectory() As String
Get
Return ConfigurationManager.AppSettings.Get("JobFilesPath").ToString()
End Get
End Property
Public ReadOnly Property BaseImageURL() As String
Get
If Not Session("BaseImageURL") Is Nothing Then
Return Session("BaseImageURL")
Else
Return "themes/orange/"
End If
End Get
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Session("ConvertToPdf") Then
Response.Redirect("~/order_centre/thank_you.aspx")
End If
Dim _storeId As Integer = Convert.ToInt32(Session("StoreId"))
Dim _jobId As Integer = Convert.ToInt32(Session("JobId"))
Dim _notPdfFileExists As Boolean = False
Dim _jobDS As New Data.DataSet
_jobDS = _webAdapter.GetFilesByJobId(_jobId)
Dim _jobDR As Data.DataTableReader
_jobDR = _jobDS.CreateDataReader()
If _jobDS.Tables(0).Rows.Count > 0 Then
' check if at least one not-pdf file exists (to convert it to pdf format)
While _jobDR.Read()
If _jobDR.Item("FileName").ToString().Split(".")(1) <> "pdf" Then
_notPdfFileExists = True
End If
End While
If _notPdfFileExists = False Then ' all files are .pdf files, skip converting to pdf format
Dim script As String = "<SCRIPT LANGUAGE='JavaScript'>window.onload=top.location.href = 'thank_you.aspx';</SCRIPT>"
Me.Page.RegisterClientScriptBlock("ClientScript", script)
'Response.Redirect("~/order_centre/thank_you.aspx")
End If
Else
Dim script As String = "<SCRIPT LANGUAGE='JavaScript'>window.onload=top.location.href = 'job_options.aspx';</SCRIPT>"
Me.Page.RegisterClientScriptBlock("ClientScript", script)
End If
Dim _directoryPart = JobFilesDirectory
Dim _jobIdPart = _jobId.ToString()
Dim _arrTicketsConv As New ArrayList()
Dim _arrNotSupportedFiles As New ArrayList()
Dim i As Integer = 0
_jobDR = _jobDS.CreateDataReader()
While _jobDR.Read()
Try
Dim _fileNamePart As String = _jobDR.Item("FileName")
Dim _file As String = _directoryPart & "\" & _jobIdPart & "\" & _fileNamePart
Dim _fileBytes As Byte() = System.IO.File.ReadAllBytes(_file)
Dim _localFileBytes As Byte() = System.IO.File.ReadAllBytes(_file)
Dim filenameArray As String() = _file.Split(".".ToCharArray())
If (pdfConverterWS.IsFileSupported(_fileNamePart)) Then
Dim _subDomain As String = Request.Url.Host.ToString().Split(".")(0)
If _subDomain.Equals("beta") Or _subDomain.Equals("localhost") Or _subDomain.Equals("amram") Then
ticket = pdfConverterWS.ConvertPDFFromStream(_storeId, _localFileBytes, filenameArray(filenameArray.Length - 1).ToString(), 120)
Else
ticket = pdfConverterWS.ConvertPDF(_storeId, _file, 120)
End If
_arrTicketsConv.Add(New ArrayList())
CType(_arrTicketsConv(i), ArrayList).Add(ticket.TicketId) '0
CType(_arrTicketsConv(i), ArrayList).Add(ticket.StoreId) '1
CType(_arrTicketsConv(i), ArrayList).Add(ticket.OriginalDocument) '2
CType(_arrTicketsConv(i), ArrayList).Add(ticket.NewDocument) '3
CType(_arrTicketsConv(i), ArrayList).Add(ticket.NewDocumentThumbnail) '4
CType(_arrTicketsConv(i), ArrayList).Add(ticket.Timeout) '5
CType(_arrTicketsConv(i), ArrayList).Add(ticket.QueuePosition) '6
CType(_arrTicketsConv(i), ArrayList).Add(ticket.IsComplete) '7
CType(_arrTicketsConv(i), ArrayList).Add(_fileNamePart) '8
i = i + 1
Else
'TODO : create array of files with not supported extensions
_arrNotSupportedFiles.Add(_fileNamePart)
End If
Catch ex As Exception
End Try
End While
' if _arrTickets consists of at least one item - go to converting
' else - go to thank you page
If _arrTicketsConv.Count > 0 Then
Session("AllTickets") = _arrTicketsConv
Session("NotSupportedFiles") = _arrNotSupportedFiles
Response.Redirect("convert_to_pdf_step2.aspx")
Else
Dim script As String = "<SCRIPT LANGUAGE='JavaScript'>window.onload=top.location.href = 'thank_you.aspx';</SCRIPT>"
Me.Page.RegisterClientScriptBlock("ClientScript", script)
End If
End Sub
End Class