Software components for data protection, secure storage and transfer
Private Sub ProcessRequest()
Dim FS As FileStream = Nothing
If m_currentRequest.Method = TSBHTTPMethod.hmGet Then
FS = New FileStream(m_basePath + m_currentRequest.URL, FileMode.Open, FileAccess.Read)
m_currentResponse.ContentLength = FS.Length
m_currentResponse.StatusCode = 200
Catch ex As Exception
m_currentResponse.StatusCode = 404
m_currentResponse.StatusCode = 400
ElseIf m_currentRequest.Method = TSBHTTPMethod.hmPost Then
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.