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_thank_you
Inherits System.Web.UI.Page
Private _numberOfFiles As String
Private _fileSubmitted As String
Private _totalFileSize As String
Private _goPrint2Adapter As New com.racadtech.services.GoPrint2Client()
Private _webWS As New WebWS()
Public ReadOnly Property GoPrint2Adapter() As com.racadtech.services.GoPrint2Client
Get
Return _goPrint2Adapter
End Get
End Property
Public ReadOnly Property MasterKey() As String
Get
Return "877k31hg333-d03423332wq-312dkazlfs-433398j543"
End Get
End Property
Public ReadOnly Property CurrentActivationId() As String
Get
Return _webWS.GetActivationIdByStoreId(Session("StoreId")).ToString()
End Get
End Property
Public ReadOnly Property CurrentJobId() As String
Get
Return Session("JobId").ToString()
End Get
End Property
Public ReadOnly Property JobFilesDirectory() As String
Get
Return ConfigurationManager.AppSettings.Get("JobFilesPath").ToString()
End Get
End Property
Public Property NumberOfFiles() As String
Get
Return _numberOfFiles
End Get
Set(ByVal value As String)
_numberOfFiles = value
End Set
End Property
Public Property FileSubmitted() As String
Get
Return _fileSubmitted
End Get
Set(ByVal value As String)
_fileSubmitted = value
End Set
End Property
Public Property TotalFileSize() As String
Get
Return _totalFileSize
End Get
Set(ByVal value As String)
_totalFileSize = value
End Set
End Property
Public ReadOnly Property CurrentUser() As String
Get
Return System.Web.HttpContext.Current.User.Identity.Name.ToString()
End Get
End Property
Public ReadOnly Property CurrentUserId() As String
Get
Return Membership.GetUser(CurrentUser).ProviderUserKey.ToString()
End Get
End Property
Public ReadOnly Property CurrentCustomerId() As String
Get
If Not Session("CustomerId") Is Nothing Then
Return Session("CustomerId")
Else
Return _webWS.GetCustomerIdByUserId(CurrentUserId)
End If
End Get
End Property
Public ReadOnly Property CurrentInterfaceSettings() As com.racadtech.services.PrintDriverInterface
Get
Return GoPrint2Adapter.GetPrintDriverInterface(MasterKey, CurrentActivationId)
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
Public ReadOnly Property RefererUrlStr() As String
Get
If Not Session("RefererURL") Is Nothing Then
Return Session("RefererURL")
Else
Return "-Empty-"
End If
End Get
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("ThankYou") = "true"
'Response.Write("Thank You " & Session("ThankYou"))
If Not Page.IsPostBack Then
' Disable Language Panel.
Dim _languagesPanel As Web.UI.WebControls.Panel = Me.Master.FindControl("LanguagesPanel")
Dim _languagesSpacer As Web.UI.HtmlControls.HtmlGenericControl = Me.Master.FindControl("LanguagesSpacerLabel")
_languagesPanel.Visible = False
_languagesSpacer.InnerHtml = "<br /><br />"
' Clear Temp Job Id.
Session("TempJobId") = Nothing
' Update Thank You Message.
Me.UploadedFilesHeader.Text = CurrentInterfaceSettings.ThankYouMessage
If (Not System.Web.HttpContext.Current.User.Identity.IsAuthenticated()) Then
Response.Redirect("~/order_centre/login.aspx")
End If
Dim _jobId As Integer = Convert.ToInt32(Session("JobId"))
TicketNumberLabel1.Text = _jobId
lblUploadResult.Visible = True
lblUploadResult.Text = UploadedFiles(_jobId)
Dim DownloadId As String = GoPrint2Adapter.UpdateJobFilesSetDownloadId(_jobId, CurrentActivationId, MasterKey)
Dim DownloadURL As String = "http://" + Request.Url.Host.ToString() + "/common/DownloadJob.aspx?downloadId=" + DownloadId
Dim reciepient As String() = New String() {GoPrint2Adapter.GetEmailSettings(MasterKey, CurrentActivationId).EmailAddress}
Dim _jobFilesDS As Data.DataSet = _webWS.GetFilesByJobId(CurrentJobId)
NumberOfFiles = _jobFilesDS.Tables(0).Rows.Count.ToString()
FileSubmitted = _jobFilesDS.Tables(0).Rows(0).Item("Filename").ToString()
Dim _jobFilesDR As Data.DataTableReader
_jobFilesDR = _jobFilesDS.CreateDataReader()
Dim _totalFileSizeInt As Integer = 0
While _jobFilesDR.Read
_totalFileSizeInt = _totalFileSizeInt + Integer.Parse(_jobFilesDR.Item("FileSize").ToString())
End While
Dim _fileSizeInKiloBytes As Integer = _totalFileSizeInt / 1024
Dim _fileSizeInMegaBytes As Integer = _totalFileSizeInt / 1024 / 1024
If (_totalFileSizeInt < 1023) Then
TotalFileSize = _totalFileSizeInt & "%20Bytes"
ElseIf (_fileSizeInKiloBytes < 1024) Then
TotalFileSize = _fileSizeInKiloBytes & "%20Kb"
ElseIf (_fileSizeInKiloBytes >= 1024) Then
TotalFileSize = _fileSizeInMegaBytes & "%20Mb"
End If
Dim CustomerInformation As com.racadtech.services.CustomerDetails = _
GoPrint2Adapter.GetCustomerDetails(MasterKey, CurrentCustomerId)
Dim _custEmail As String = CustomerInformation.Email.ToString()
Dim _custFirstname As String = CustomerInformation.Firstname.ToString()
Dim _custLastname As String = CustomerInformation.Lastname.ToString()
Try
' Send Email to Customer.
GoPrint2Adapter.SendTicketEmailReferer(_custEmail, _
GoPrint2Adapter.GetEmailSettings(MasterKey, CurrentActivationId).EmailAddress, _
"Job Submitted [" & CurrentJobId.ToString() & "] [ " & _custFirstname & " " & _custLastname & " ]", CurrentActivationId, _
CurrentCustomerId, CurrentJobId, NumberOfFiles, FileSubmitted, TotalFileSize, _
"false", System.Threading.Thread.CurrentThread.CurrentCulture.TwoLetterISOLanguageName, _
MasterKey, RefererUrlStr)
Catch ex As Exception
End Try
Try
' Send Email to Store Owner.
Dim _productionEmail As String = GoPrint2Adapter.GetEmailSettings(MasterKey, CurrentActivationId).EmailAddress
GoPrint2Adapter.SendTicketEmailReferer(_productionEmail, _
_custEmail, "Job Submitted [" & CurrentJobId.ToString() & "] [ " & _custFirstname & " " & _custLastname & " ]", CurrentActivationId, _
CurrentCustomerId, CurrentJobId, NumberOfFiles, FileSubmitted, TotalFileSize, _
"true", Profile.Language, MasterKey, RefererUrlStr)
Try
Dim _curMembershipUser As MembershipUser = Membership.GetUser(_webWS.GetUserIdByStoreId(Session("StoreId")))
If (Not _curMembershipUser.Email.Equals(_productionEmail)) Then
GoPrint2Adapter.SendTicketEmailReferer(_curMembershipUser.Email, _
"GoPrint2 <support@goprint2.com>", "Job Submitted [" & CurrentJobId.ToString() & "] [ " & _custFirstname & " " & _custLastname & " ]", CurrentActivationId, _
CurrentCustomerId, CurrentJobId, NumberOfFiles, FileSubmitted, TotalFileSize, _
"true", Profile.Language, MasterKey, RefererUrlStr)
End If
Catch ex1 As Exception
End Try
Catch ex As Exception
End Try
End If
End Sub
Protected Function UploadedFiles(ByVal _jobId As Integer) As String
Try
Dim _message As String = ""
_message = _message & "<table border='0' cellspacing='2' width='500' >" _
& "<tr><td align='left' valign='top' class='files_uploaded_header'>" _
& GetLocalResourceObject("FileNameColumn") _
& "</td><td align='center' valign='top' class='files_uploaded_header'>" _
& GetLocalResourceObject("FileSizeColumn") _
& "</td></tr>"
Dim _jobFilesDS As Data.DataSet = _webWS.GetFilesByJobId(_jobId)
Dim _jobFilesDR As Data.DataTableReader
_jobFilesDR = _jobFilesDS.CreateDataReader()
While _jobFilesDR.Read
Dim _fileSize As Integer = Integer.Parse(_jobFilesDR.Item("FileSize").ToString())
Dim _fileSizeInKiloBytes As Integer = _fileSize / 1024
Dim _fileSizeInMegaBytes As Integer = _fileSize / 1024 / 1024
Dim _fileSizeStr As String = " "
If (_fileSize < 1023) Then
_fileSizeStr = _fileSize & " Bytes"
ElseIf (_fileSizeInKiloBytes < 1024) Then
_fileSizeStr = _fileSizeInKiloBytes & " Kb"
ElseIf (_fileSizeInKiloBytes >= 1024) Then
_fileSizeStr = _fileSizeInMegaBytes & " Mb"
End If
_message = _message & "<tr><td align='left' valign='top' style='color: #ff0000;padding: 4px 4px 2px 0px;'>"
If _jobFilesDR.Item("ServerLocation").ToString() <> "" Then
_message = _message & "<a target='_blank' href='" & _jobFilesDR.Item("ServerLocation") & "'>" & _
"<img src='img/icon_preview.gif' alt='Preview' border='0' style='vertical-align:middle'></a> "
End If
_message = _message & _jobFilesDR.Item("FileName") & "</td><td align='center' valign='top' style='color:#2f638d; padding: 4px 4px 2px 0px;'>" & _fileSizeStr & "</td></tr>"
'If _jobFilesDR.Item("FileSize") < 1024 Then
' _message = _message & "<td align='center' valign='top' style='color:#2f638d; padding: 5px 5px 5px 5px;'>" & _jobFilesDR.Item("FileSize") & " byte</td>"
'ElseIf 1024 <= _jobFilesDR.Item("FileSize") < 1048576 Then
' _message = _message & "<td align='center' valign='top' style='color:#2f638d; padding: 5px 5px 5px 5px;'>" & Math.Round((_jobFilesDR.Item("FileSize") / 1024), 2) & " Kb </td>"
'Else
' _message = _message & "<td align='center' valign='top' style='color:#2f638d; padding: 5px 5px 5px 5px;'>" & Math.Round((_jobFilesDR.Item("FileSize") / 1048576), 2) & " Mb </td>"
'End If
End While
''Dim _array As ArrayList = _commonFunctions.PopulateArray(_connectionString, "Select Filename From SDC_Job_Files Where JobId = " & _jobId)
''Dim _arrayMember As Object
''Dim i = 0
''For Each _arrayMember In _array
'' _message = _message & CType(_arrayMember, String) & "<br/>"
''Next
'
'
_message = _message & "</table>"
Return _message
Catch ex As Exception
Response.Redirect("~/customer/error_page.aspx")
Return Nothing
End Try
End Function
' removing zip list files used by uploader to resume folders
'Public Function RemoveSystemFiles() As Boolean
' Dim _result As Boolean = False
' Dim _path As String = JobFilesDirectory & "\" & CurrentJobId
' Dim _allFiles As String() = System.IO.Directory.GetFiles(_path)
' Response.Write(_path.Length & " <br/>")
' For Each _file As String In _allFiles
' Dim _fileName As String = _file.Substring((_path.Length + 1), (_file.Length - _path.Length - 1))
' Response.Write(_fileName & " <br/>")
' If _fileName.Substring(0, 7) = "gsezip_" Then
' Response.Write("Find file with gsezip_ prefix <br/>")
' Try
' System.IO.File.Delete(_file)
' _result = True
' Response.Write("Delete file with gsezip_ prefix <br/>")
' Catch ex As Exception
' _result = False
' Response.Write("Cannot delete file with gsezip_ prefix <br/>")
' End Try
' End If
' Next
' Return _result
'End Function
End Class