NewMedia Express KB
June 18, 2021, 01:48:32 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
 
  Home Help Search Login Register  
  Show Posts
Pages: [1] 2 3 ... 7
1  Sample Script / ASP / ASP File upload sample (pure upload) on: September 09, 2009, 08:51:26 AM
upload_base.asp
Quote
<%
Option Explicit
'Stores only files with size less than MaxFileSize


Dim DestinationPath
DestinationPath = Server.mapPath("UploadFolder")

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><%


Server.ScriptTimeout = 2000
Form.SizeLimit = &H100000

If Form.State = 0 Then 'Completted
   Form.Files.Save DestinationPath
   response.write "<br><Font Color=green>Files (" &Form.TotalBytes \1024 & "kB) was saved to " & DestinationPath& " folder.</Font>"
ElseIf Form.State > 10 then
  Const fsSizeLimit = &HD
  Select case Form.State
    case fsSizeLimit: response.write  "<br><FontColor=red>Source form size (" & Form.TotalBytes & "B)exceeds form limit (" & Form.SizeLimit &"B)</Font><br>"
    case else response.write "<br><Font Color=red>Some form error.</Font><br>"
  end Select
End If'Form.State = 0 then


%> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<TITLE>ASP huge file upload - base upload.</TITLE>
<STYLE TYPE="text/css"><!--TD  {font-family:Arial,Helvetica,sans-serif }TH  {font-family:Arial,Helvetica,sans-serif }TABLE  {font-size:10pt;font-family:Arial,Helvetica,sans-serif}--></STYLE>
<meta name="robots" content="noindex,nofollow">
</HEAD>
<BODY BGColor=white>


<Div style=width:600>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
 
  <TR>
    <TH noWrap align=left width="20%" bgColor=khaki> <A
    href="http://asp-upload.borec.net">Power ASP
    file upload</A> - base upload. </TH>
    <TD> </TD></TR></TABLE>
<TABLE cellSpacing=2 cellPadding=1 width="100%" bgColor=white border=0>
 
  <TR>
    <TD colSpan=2>
   <P>    Thissample demonstrates shortes possible server-side code.
       ASP code specifies only Form.SizeLimit (maximum size ofupload), Server.ScriptTimeout (maximum time to do upload) andDestinationPath (folder to store uploaded files).

<br>Upload timeout is <%=Server.ScriptTimeout%>s
<br>Form size limit is <%=Form.SizeLimit \ 1024 %>kB
<br>Destination folder is <%=DestinationPath%>


       </P>
  </TD></TR></TABLE>





<form method="POST" ENCTYPE="multipart/form-data">

   File 1 : <input type="file" name="File1"><br>
   File 2 : <input type="file" name="File2"><br>
   File 3 : <input type="file" name="File3">
<br>      
<input Name=SubmitButton Value="Upload files >>" Type=submit><br>

</Form>






<HR COLOR=silver Size=1>
<CENTER>
<FONT SIZE=1>© 1996 – <%=year(date)%> Antonin Foller,<a href="http://www.motobit.com">Motobit Software</a>,e-mail <A href="mailto:help@pstruh.cz" >help@pstruh.cz</A>
<br>To monitor current running uploads/downloads, see <AHref="http://www.motobit.com/help/iistrace/iis-monitor.asp">IISTracer- IIS real-time monitor</A>.
</FONT>

</CENTER>
</Div>
</BODY></HTML>




_upload.asp (class file)


Quote
<%
'Pure-ASP upload v. 2.06 (with progress bar)
'This software is a FreeWare with limitted use.
'1. You can use this software to upload files with size up to 10MB for free
' if you want to upload bigger files, please register ScriptUtilities and Huge-ASP upload
' See license info at http://asp-upload.borec.net
'2. I'll be glad if you include <A Href="http://asp-upload.borec.net">Pure ASP file upload</A>
' or similar text link to http://www.motobit.com on the web site using Pure-ASP upload.


'Feel free to send comments/suggestions to help@pstruh.cz

Const adTypeBinary = 1
Const adTypeText = 2


Const xfsCompleted    = &H0 '0  Form was successfully processed.
Const xfsNotPost    = &H1 '1  Request method is NOT post
Const xfsZeroLength   = &H2 '2  Zero length request (there are no data in a source form)
Const xfsInProgress   = &H3 '3  Form is in a middle of process.
Const xfsNone       = &H5 '5  Initial form state
Const xfsError      = &HA '10 
Const xfsNoBoundary   = &HB '11  Boundary of multipart/form-data is not specified.
Const xfsUnknownType  = &HC '12  Unknown source form (Content-type must be multipart/form-data)
Const xfsSizeLimit    = &HD '13  Form size exceeds allowed limit (ScriptUtils.ASPForm.SizeLimit)
Const xfsTimeOut    = &HE '14  Upload time exceeds allowed limit (ScriptUtils.ASPForm.ReadTimeout)
Const xfsNoConnected  = &HF '15  Client was disconnected before upload was completted.
Const xfsErrorBinaryRead = &H10 '16  Unexpected error from Request.BinaryRead method (ASP error).

'This class emulates ASPForm Class of Huge-ASP upload, http://upload.Motobit.cz
'See ScriptUtilities and Huge-ASP file upload help (ScptUtl.chm)

Class ASPForm
   Private m_ReadTime
   Public ChunkReadSize, BytesRead, TotalBytes, UploadID

   'non-used properties.
   Public TempPath, MaxMemoryStorage, CharSet, FormType, SourceData, ReadTimeout

   public Default Property Get Item(Key)
    Read
    Set Item = m_Items.Item(Key)
   End Property

   public Property Get Items
    Read
    Set Items = m_Items
   End Property

   public Property Get Files
    Read
    Set Files = m_Items.Files
   End Property

   public Property Get Texts
    Read
    Set Texts = m_Items.Texts
   End Property
   

   public Property Get NewUploadID
    Randomize
    NewUploadID = clng(rnd * &H7FFFFFFF)
   End Property

   Public Property Get ReadTime
    if isempty(m_ReadTime) then
       if not isempty(StartUploadTime) then ReadTime = Clng((Now() - StartUploadTime) * 86400 * 1000)
    else ' For progress window.
       ReadTime = m_ReadTime
    end if
   End Property

   Public Property Get State
    if m_State = xfsNone Then Read
    State = m_State
   End Property


   Private Function CheckRequestProperties
    'Wscript.Echo "**CheckRequestProperties"
   If UCase(Request.ServerVariables("REQUEST_METHOD")) <> "POST" Then 'Request method must be "POST"
       m_State = xfsNotPost
       Exit Function
    End If 'If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
   
    Dim CT
    CT = Request.ServerVariables("HTTP_Content_Type") 'reads Content-Type header
    if len(CT) = 0 then CT = Request.ServerVariables("CONTENT_TYPE") 'reads Content-Type header UNIX/Linux
   If LCase(Left(CT, 19)) <> "multipart/form-data" Then 'Content-Type header must be "multipart/form-data"
       m_State = xfsUnknownType
       Exit Function
    End If 'If LCase(Left(CT, 19)) <> "multipart/form-data" Then

    Dim PosB 'help position variable
    'This is upload request.
    'Get the boundary and length from Content-Type header
    PosB = InStr(LCase(CT), "boundary=") 'Finds boundary
    If PosB = 0 Then
       m_State = xfsNoBoundary
       Exit Function
    End If 'If PosB = 0 Then
    If PosB > 0 Then Boundary = Mid(CT, PosB + 9) 'Separetes boundary

    '****** Error of IE5.01 - doubbles http header
    PosB = InStr(LCase(CT), "boundary=")
    If PosB > 0 then 'Patch for the IE error
       PosB = InStr(Boundary, ",")
       If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
   
    end if
   
    '****** Error of IE5.01 - doubbles http header

    On Error Resume next
    TotalBytes = Request.TotalBytes
    If Err<>0 Then
       'For UNIX/Linux
      
       TotalBytes = CLng(Request.ServerVariables("HTTP_Content_Length")) 'Get Content-Length header
       if len(TotalBytes)=0 then TotalBytes = CLng(Request.ServerVariables("CONTENT_LENGTH")) 'Get Content-Length header
    End If
   
    If TotalBytes = 0 then
       m_State = xfsZeroLength
       Exit Function
    End If

    If IsInSizeLimit(TotalBytes) Then 'Form data are in allowed limit
       CheckRequestProperties = True
       m_State = xfsInProgress
    Else   'Form data are in allowed limit
       'Form data exceeds the limit.
       m_State = xfsSizeLimit   
    End if 'Form data are in allowed limit

   End Function


   'reads source data using BinaryRead and store them in SourceData stream
   Public Sub Read()
    if m_State <> xfsNone Then Exit Sub
    'Wscript.Echo "**Read"
    If Not CheckRequestProperties Then
       WriteProgressInfo
       Exit Sub
    End If

    'Initialize binary store stream
    if isempty(bSourceData) then Set bSourceData = createobject("ADODB.Stream")
    bSourceData.Open
    bSourceData.Type = 1 'Binary

    'Initialize Read variables.
    Dim DataPart, PartSize
    BytesRead = 0
    StartUploadTime = Now

    'read source data stream in chunks of ChunkReadSize
    Do While BytesRead < TotalBytes
       'Read chunk of data
       PartSize = ChunkReadSize
       if PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesRead
       DataPart = Request.BinaryRead(PartSize)
       BytesRead = BytesRead + PartSize
       'Wscript.Echo PartSize

       'Store the part size in our stream
       bSourceData.Write DataPart

       'Write progress info for secondary window.
       WriteProgressInfo

       'Check if the client is still connected
       If Not Response.IsClientConnected Then
        m_State = xfsNoConnected 
        Exit Sub
       End If
    Loop
    m_State = xfsCompleted

    'We have all source data in bSourceData stream
    ParseFormData
   End Sub

   Private Sub ParseFormData
    Dim Binary
    bSourceData.Position = 0
    Binary = bSourceData.Read
    'wscript.echo "Binary", LenB(Binary)
    m_Items.mpSeparateFields Binary, Boundary
   End Sub


   'This function reads progress info data from a temporary file.
   Public Function getForm(FormID)
    if isempty(ProgressFile.UploadID) Then 'Was UploadID of ProgressFile set?
       ProgressFile.UploadID = FormID
    End If

    'Get progress data
    Dim ProgressData
   
    ProgressData = ProgressFile
   
    if len(ProgressData) > 0 then 'There are some progress data
       if ProgressData = "DONE" Then 'Upload was done.
        ProgressFile.Done
        Err.Raise 1, "getForm", "Upload was done"
       Else ' if ProgressData = "DONE" Then 'Upload was done.
        'm_State & vbCrLf & TotalBytes & vbCrLf & BytesRead & vbCrLf & ReadTime
        ProgressData = Split (ProgressData, vbCrLf)
        if ubound(ProgressData) = 3 Then
         m_State = clng(ProgressData(0))
         TotalBytes = clng(ProgressData(1))
         BytesRead = clng(ProgressData(2))
         m_ReadTime = clng(ProgressData(3))
        End If'if ubound(ProgressData) = 3 Then
       End If'if ProgressData = "DONE" Then 'Upload was done.
    end if'if len(ProgressData) > 0 then 'There are some progress data
    Set getForm = Me
   End Function


   'This function writes progress info data to a temporary file.
   Private Sub WriteProgressInfo
    If UploadID > 0 Then ' Is the upload ID defined? (Upload is using progress)
       if isempty(ProgressFile.UploadID) Then 'Was UploadID of ProgressFile set?
        ProgressFile.UploadID = UploadID
       End If

       Dim ProgressData, FileName
       ProgressData = m_State & vbCrLf & TotalBytes & vbCrLf & BytesRead & vbCrLf & ReadTime
       ProgressFile.Contents = ProgressData
    End If
   End Sub

   'ASPForm Constructor
   Private Sub Class_Initialize()
    ChunkReadSize = &H10000 '64 kB
    SizeLimit = &H100000 '1MB

    BytesRead = 0
    m_State = xfsNone
   
    TotalBytes = Request.TotalBytes

    Set ProgressFile = New cProgressFile
    Set m_Items = New cFormFields
   End Sub

   'ASPForm Destructor
   Private Sub Class_Terminate()
    If UploadID > 0 Then ' Is the upload ID defined? (Upload is using progress)
       'We have to close info about upload.
       ProgressFile.Contents = "DONE"
    End If
   End Sub

   Private Function IsInSizeLimit(TotalBytes)
    IsInSizeLimit = (m_SizeLimit = 0 or m_SizeLimit > TotalBytes) and (MaxLicensedLimit > TotalBytes)
   End Function

   Public Property Get SizeLimit
    SizeLimit = m_SizeLimit
   End Property

   'Pure - ASP upload is a free script, but with 10MB upload limit
  ' if you want to upload bigger files, please register ScriptUtilities and Huge-ASP upload
   ' at http://www.motobit.com/help/scptutl/lc2.htm
   Public Property Let SizeLimit(NewLimit)
   if NewLimit > MaxLicensedLimit Then
       Err.Raise 1, "ASPForm - SizeLimit", "This version of Pure-ASPupload is licensed with maximum limit of 10MB (" & MaxLicensedLimit& "B)"
       m_SizeLimit = MaxLicensedLimit
    Else
       m_SizeLimit = NewLimit
    end if
   End Property

   Public Boundary
   Private m_Items
   Private m_State
   Private m_SizeLimit 'Defined form size limit.
   Private bSourceData 'ADODB.Stream
   Private StartUploadTime , TempFiolder
   Private ProgressFile 'File with info about current progress
End Class 'ASPForm
Const MaxLicensedLimit = &HA00000


'************************************************************************
'Emulates ScriptUtilities FormFields object
'We must have such class because of multiselect fields.
'See http://www.motobit.com
Class cFormFields
   Dim m_Keys()
   Dim m_Items()
   Dim m_Count
   

   Public Default Property Get Item(ByVal Key)
    If vartype(Key) = vbInteger or vartype(Key) = vbLong then
       'Numeric index
       if Key<1 or Key>m_Count Then Err.raise "Index out of bounds"
       Set Item = m_Items(Key-1)
       Exit Property
    end if

    'wscript.echo "**Item", Key
    Dim Count
    Count = ItemCount(Key)
    Key = LCase(Key)
   
    If Count > 0 then
       If Count>1 Then
        'More items
        'Get them All as an cFormFields
        Dim OutItem, ItemCounter
        Set OutItem = New cFormFields
        ItemCounter = 0
       
        For ItemCounter = 0 To Ubound(m_Keys)
         If LCase(m_Keys(ItemCounter)) = Key then OutItem.Add Key, m_Items(ItemCounter)
        Next
        Set Item = OutItem
        'wscript.echo "***Item-More", Key
       Else
        For ItemCounter = 0 To Ubound(m_Keys)
         If LCase(m_Keys(ItemCounter)) = Key then exit for
        Next

        if isobject (m_Items(ItemCounter)) then
         Set Item = m_Items(ItemCounter)
        else
         Item = m_Items(ItemCounter)
        end if
        'wscript.echo "***Item-One", Key
       End If
    Else'No item
       Set Item = New cFormField
    End if
   End Property

   Public Property Get MultiItem(ByVal Key)
    'returns an array of items with the same Key
    Dim Out: Set Out = New cFormFields
    Dim I, vItem
    Dim Count
    Count = ItemCount(Key)
   
    if Count = 1 then
       'one key - get it from Item
       Out.Add Key, Item(Key)
    elseif Count > 1 then
       'more keys - enumerate them using Items
       For Each I In Item(Key).Items
        Out.Add Key, I
       Next
    End If

    Set MultiItem = Out
   End Property


   'For multiitem (I'm sorry, VBS does not support optional parameters for Item property)
   Public Property Get Value
    Dim I, V
    For Each I in m_Items
       V = V & ", " & I
    Next
    V = Mid(V, 3)
    Value = V
   End Property


   Public Property Get xA_NewEnum
    Set xA_NewEnum = m_Items
   End Property

   Public Property Get Items()
    'Wscript.Echo "**cFormFields-Items"   
    Items = m_Items
   End Property

   Public Property Get Keys()
    Keys = m_Keys
   End Property

   public Property Get Files
    Dim cItem, OutItem, ItemCounter
    Set OutItem = New cFormFields
    ItemCounter = 0
    if m_Count > 0 then ' Enumerate only non-empty form
       For ItemCounter = 0 To Ubound(m_Keys)
        Set cItem = m_Items(ItemCounter)
        if cItem.IsFile then
         OutItem.Add m_Keys(ItemCounter), m_Items(ItemCounter)
        end if
       Next
    End If
    Set Files = OutItem
   End Property

   Public Property Get Texts
    Dim cItem, OutItem, ItemCounter
    Set OutItem = New cFormFields
    ItemCounter = 0
   
    For ItemCounter = 0 To Ubound(m_Keys)
       Set cItem = m_Items(ItemCounter)
       if Not cItem.IsFile then
        OutItem.Add m_Keys(ItemCounter), m_Items(ItemCounter)
       end if
    Next
    Set Texts = OutItem
   End Property

   Public Sub Save(Path)
    Dim Item
    For Each Item In m_Items
       If Item.isFile Then
        Item.Save Path
       End If
    Next
   End Sub


   'Count of dictionary items within specified key
   Public Property Get ItemCount(ByVal Key)
    'wscript.echo "ItemCount"
    Dim cKey, Counter
    Counter = 0
    Key = LCase(Key)
    For Each cKey In m_Keys
       'wscript.echo "ItemCount", "cKey"
       If LCase(cKey) = Key then Counter = Counter + 1
    Next
    ItemCount = Counter
   End Property

   'Count of all dictionary items
   Public Property Get Count()
    Count = m_Count
   End Property

   Public Sub Add(byval Key, Item)
    Key = "" & Key
    ReDim Preserve m_Items(m_Count)
    ReDim Preserve m_Keys(m_Count)
    m_Keys(m_Count) = Key
    Set m_Items(m_Count) = Item
    m_Count = m_Count + 1
   End Sub

   Private Sub Class_Initialize()
    Dim vHelp()
    ' I do not know why, but some of VBS verrsions declares m_Items and m_Keys as Empty,
    ' not as Variant() - see class variables.
    ' vHelp eliminates this problem. V. 2.03, 2.04
    On Error Resume Next
    m_Items = vHelp
    m_Keys = vHelp
    m_Count = 0
   End Sub


   '********************************** mpSeparateFields **********************************
   'This method retrieves the upload fields from binary data
   'Binary is safearray ( VT_UI1 | VT_ARRAY ) of all multipart document raw binary data from input.
   Public Sub mpSeparateFields(Binary, ByVal Boundary)
    Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary

    Boundary = "--" & Boundary      
    Boundary = StringToBinary(Boundary)

    PosOpenBoundary = InStrB(Binary, Boundary)
    PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)

    Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)
       'Header and file/source field data
       Dim HeaderContent, bFieldContent
       'Header fields
       Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
       'Helping variables
       Dim TwoCharsAfterEndBoundary
       'Get end of header
       PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))

       'Separates field header
       HeaderContent = MidB(Binary, PosOpenBoundary +LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) -2)
   
       'Separates field content
       bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
      
       'Separates header fields from header
       GetHeadFields BinaryToString(HeaderContent), FormFieldName, SourceFileName, Content_Disposition, Content_Type

       'Create one field and assign parameters
      
       Dim Field      'All field values.
       Set Field = New cFormField

       Field.ByteArray = MultiByteToBinary(bFieldContent)

       Field.Name = FormFieldName
       Field.ContentDisposition = Content_Disposition
       if not isempty(SourceFileName) then
        Field.FilePath = SourceFileName
        Field.FileName = GetFileName(SourceFileName)
        Field.FileExt = GetFileExt(SourceFileName)
       else'if not isempty(SourceFileName) then
       End If'if not isempty(SourceFileName) then
       Field.ContentType = Content_Type
      
       Add FormFieldName, Field

       'Is this last boundary ?
       TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))
       isLastBoundary = TwoCharsAfterEndBoundary = "--"

       If Not isLastBoundary Then 'This is not last boundary - go to next form field.
        PosOpenBoundary = PosCloseBoundary
        PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary)
       End If
    Loop
   End Sub
End Class 'cFormFields











'This class transfers data between primary (upload) and secondary (progress) window.
Class cProgressFile
   Private fs
   Public TempFolder
   Public m_UploadID
   Public TempFileName

   Public Default Property Get Contents()
    Contents = GetFile(TempFileName)
   End Property

   Public Property Let Contents(inContents)
    WriteFile TempFileName, inContents
   End Property

   Public Sub Done 'Delete temporary file when upload was done.
    FS.DeleteFile TempFileName
   End Sub

   Public Property Get UploadID()
    UploadID = m_UploadID
   End Property

   Public Property Let UploadID(inUploadID)
    if isempty(FS) then Set fs = CreateObject("Scripting.FileSystemObject")
    TempFolder = fs.GetSpecialFolder(2)

    m_UploadID = inUploadID
    TempFileName = TempFolder & "\pu" & m_UploadID & ".~tmp"
   
    Dim DateLastModified
    on error resume next
    DateLastModified = fs.GetFile(TempFileName).DateLastModified
    on error goto 0
    if isempty(DateLastModified) then 'OK
    elseif Now-DateLastModified>1 Then 'I think upload duration will be less than one day
       FS.DeleteFile TempFileName
    end if
   End Property

   Private Function GetFile(Byref FileName)
   
    Dim InStream
    On Error Resume Next
    Set InStream = fs.OpenTextFile(FileName, 1)
    GetFile = InStream.ReadAll
    On Error Goto 0
   End Function

   Private Function WriteFile(Byref FileName, Byref Contents)
    'wscript.echo "WriteFile", FileName, Contents
    Dim OutStream
    On Error Resume Next
    Set OutStream = fs.OpenTextFile(FileName, 2, True)
    OutStream.Write Contents
   End Function


   Private Sub Class_Initialize()
   End Sub
End Class 'cProgressFile



'******************************************************************************
'Emulates ScriptUtilities FormField object
'See http://www.motobit.com
Class cFormField
   'Used properties
   Public ContentDisposition, ContentType, FileName, FilePath, FileExt, Name
   Public ByteArray

   'non-used properties.
   Public CharSet, HexString, InProgress, SourceLength, RAWHeader, Index, ContentTransferEncoding

   Public Default Property Get String()
    'wscript.echo "**Field-String", Name, LenB(ByteArray)
    String = BinaryToString(ByteArray)
   End Property

   Public Property Get IsFile()
    IsFile = not isempty(FileName)
   End Property

   Public Property Get Length()
    Length = LenB(ByteArray)
   End Property

   Public Property Get Value()
    Set Value = Me
   End Property

   Public Sub Save(Path)
   '2.06 - and len(FileName)>0
    if IsFile and len(FileName)>0 Then
       Dim fullFileName
       fullFileName = Path & "\" & FileName
       SaveAs fullFileName
    Else
       'response.write "<br>" & typename(Name)
       'Err.Raise 1, "Text field " & Name & " does not have a file name"
    End If
   End Sub

   Public Sub SaveAs(newFileName)
    '2.06 - removed if len(ByteArray)>0 then
    SaveBinaryData newFileName, ByteArray
   End Sub
   
End Class























Function StringToBinary(String)
  Dim I, B
  For I=1 to len(String)
    B = B & ChrB(Asc(Mid(String,I,1)))
  Next
  StringToBinary = B
End Function

Function BinaryToString(Binary)
  '2001 Antonin Foller, Motobit Software
  'Optimized version of PureASP conversion function
  'Selects the best algorithm to convert binary data to String data
  Dim TempString

  On Error Resume Next
  'Recordset conversion has a best functionality
  TempString = RSBinaryToString(Binary)
  If Len(TempString) <> LenB(Binary) then'Conversion error
    'We have to use multibyte version of BinaryToString
    TempString = MBBinaryToString(Binary)
  end if
  BinaryToString = TempString
End Function


Function MBBinaryToString(Binary)
  '1999 Antonin Foller, Motobit Software
  'MultiByte version of BinaryToString function
   'Optimized version of simple BinaryToString algorithm.
  dim cl1, cl2, cl3, pl1, pl2, pl3
  Dim L', nullchar
  cl1 = 1
  cl2 = 1
  cl3 = 1
  L = LenB(Binary)
 
  Do While cl1<=L
    pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
    cl1 = cl1 + 1
    cl3 = cl3 + 1
    if cl3>300 then
    pl2 = pl2 & pl3
    pl3 = ""
    cl3 = 1
    cl2 = cl2 + 1
    if cl2>200 then
      pl1 = pl1 & pl2
      pl2 = ""
      cl2 = 1
    End If
    End If
  Loop
  MBBinaryToString = pl1 & pl2 & pl3
End Function


Function RSBinaryToString(xBinary)
  '1999 Antonin Foller, Motobit Software
  'This function converts binary data (VT_UI1 | VT_ARRAY or MultiByte string)
   'to string (BSTR) using ADO recordset
   'The fastest way - requires ADODB.Recordset
   'Use this function instead of MBBinaryToString if you have ADODB.Recordset installed
   'to eliminate problem with PureASP performance

   Dim Binary
   'MultiByte data must be converted to VT_UI1 | VT_ARRAY first.
   if vartype(xBinary) = 8 then Binary = MultiByteToBinary(xBinary) else Binary = xBinary
   
  Dim RS, LBinary
  Const adLongVarChar = 201
  Set RS = CreateObject("ADODB.Recordset")
  LBinary = LenB(Binary)
   
   if LBinary>0 then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
       RS("mBinary").AppendChunk Binary
    RS.Update
    RSBinaryToString = RS("mBinary")
   Else
    RSBinaryToString = ""
   End If
End Function


Function MultiByteToBinary(MultiByte)
  ' This function converts multibyte string to real binary data (VT_UI1 | VT_ARRAY)
  ' Using recordset
  Dim RS, LMultiByte, Binary
  Const adLongVarBinary = 205
  Set RS = CreateObject("ADODB.Recordset")
  LMultiByte = LenB(MultiByte)
   if LMultiByte>0 then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
       RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
   End If
  MultiByteToBinary = Binary
End Function



'************** Upload Utilities
'Separates header fields from upload header
Function GetHeadFields(ByVal Head, Name, FileName, Content_Disposition, Content_Type)
  'Get name of the field. Name is separated by name= and ;
  Name = (SeparateField(Head, "name=", ";")) 'ltrim
  'Remove quotes (if the field name is quoted)
  If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)

  'Same for source filename
  FileName = (SeparateField(Head, "filename=", ";")) 'ltrim

  If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)


  'Separate content-disposition and content-type header fields
  Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))
  Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
End Function

'Separates one field between sStart and sEnd
Function SeparateField(From, ByVal sStart, ByVal sEnd)
  Dim PosB, PosE, sFrom
  sFrom = LCase(From)
  PosB = InStr(sFrom, sStart)
  If PosB > 0 Then
    PosB = PosB + Len(sStart)
    PosE = InStr(PosB, sFrom, sEnd)
    If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
    If PosE = 0 Then PosE = Len(sFrom) + 1
    SeparateField = Mid(From, PosB, PosE - PosB)
  Else
    SeparateField = Empty
  End If
End Function

Function SplitFileName(FullPath)
  Dim Pos, PosF
  PosF = 0
  For Pos = Len(FullPath) To 1 Step -1
    Select Case Mid(FullPath, Pos, 1)
    Case ":", "/", "\": PosF = Pos + 1: Pos = 0
    End Select
  Next
  If PosF = 0 Then PosF = 1
   SplitFileName = PosF
End Function

Function GetPath(FullPath)
  GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function

'Separetes file name from the full path of file
Function GetFileName(FullPath)
  GetFileName = Mid(FullPath, SplitFileName(FullPath))
End Function

'Separetes file name from the full path of file
Function GetFileExt(FullPath)
   Dim Pos: Pos = InStrRev(FullPath,".")
   if Pos>0 then GetFileExt = Mid(FullPath, Pos)
End Function


Function RecurseMKDir(ByVal Path)
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
   
  Path = Replace(Path, "/", "\")
  If Right(Path, 1) <> "\" Then Path = Path & "\"   '"
  Dim Pos, n
  Pos = 0: n = 0
  Pos = InStr(Pos + 1, Path, "\")   '"
  Do While Pos > 0
    On Error Resume Next
    FS.CreateFolder Left(Path, Pos - 1)
    If Err = 0 Then n = n + 1
    Pos = InStr(Pos + 1, Path, "\")   '"
  Loop
  RecurseMKDir = n
End Function

Function SaveBinaryData(FileName, ByteArray)
   SaveBinaryData = SaveBinaryDataStream(FileName, ByteArray)
End Function

Function SaveBinaryDataTextStream(FileName, ByteArray)
  Dim FS : Set FS = CreateObject("Scripting.FileSystemObject")
   On error Resume next
  Dim TextStream
   Set TextStream = FS.CreateTextFile(FileName)
   if Err = &H4c then 'Path not found.
    On error Goto 0
    RecurseMKDir GetPath(FileName)
    On error Resume next
    Set TextStream = FS.CreateTextFile(FileName)
   end if
  TextStream.Write BinaryToString(ByteArray) 'BinaryToString is in upload.inc.
  TextStream.Close

   Dim ErrMessage, ErrNumber
   ErrMessage = Err.Description
   ErrNumber = Err

   On Error Goto 0
   if ErrNumber<>0 then Err.Raise ErrNumber, "SaveBinaryData", FileName & ":" & ErrMessage

End Function

Function SaveBinaryDataStream(FileName, ByteArray)
   Dim BinaryStream
   Set BinaryStream = createobject("ADODB.Stream")
   BinaryStream.Type = 1 'Binary
   BinaryStream.Open
   '2.06 - zero byte file is legal
   if lenb(ByteArray)>0 then BinaryStream.Write ByteArray
   On error Resume next
   
   BinaryStream.SaveToFile FileName, 2 'Overwrite

   if Err = &Hbbc then 'Path not found.
    On error Goto 0
    RecurseMKDir GetPath(FileName)
    On error Resume next
    BinaryStream.SaveToFile FileName, 2 'Overwrite
   end if
   Dim ErrMessage, ErrNumber
   
   ErrMessage = Err.Description
   ErrNumber = Err

   On Error Goto 0
   if ErrNumber<>0 then Err.Raise ErrNumber, "SaveBinaryData", FileName & ":" & ErrMessage
   
End Function
'************** Upload Utilities - end















'Emulates response object
Class cResponse
   Public Property Get IsClientConnected
    randomize
    IsClientConnected = cbool(clng(rnd * 4))
    IsClientConnected = True
   End Property
End Class


Class cRequest
   Private Readed

   Private BinaryStream
   public function ServerVariables(Name)   
    select case UCase(Name)
       Case "CONTENT_TYPE":
       Case "HTTP_CONTENT_TYPE":
        ServerVariables = "multipart/form-data; boundary=---------------------------7d21960404e2"
       Case "CONTENT_LENGTH":
       Case "HTTP_CONTENT_LENGTH":
        ServerVariables = "" & TotalBytes
       Case "REQUEST_METHOD":
        ServerVariables = "POST"
    End Select
   End Function

   public function BinaryRead(ByRef Bytes)
    If Bytes<=0 then Exit Function

    if Readed + Bytes > TotalBytes Then Bytes = TotalBytes - Readed
    BinaryRead = BinaryStream.Read(Bytes)
   End Function

   Public Property Get TotalBytes
    TotalBytes = BinaryStream.Size
   End Property

   Private Sub Class_Initialize()
    Set BinaryStream = createobject("ADODB.Stream")
    BinaryStream.Type = 1 'Binary
    BinaryStream.Open
    BinaryStream.LoadFromFile "F:\InetPub\Motobit\pureupload\2.txt"
    BinaryStream.Position = 0
    Readed = 0
   End Sub
end Class



%>
2  Sample Script / PHP / PHP mailer sample on: July 02, 2009, 09:48:08 AM
example.php
Code:
<?php
   
require_once("class.phpmailer.php");
   
$mail = new PHPMailer();
   
$mail->IsSMTP(); // telling the class to use SMTP
   
$mail->Host "smtp.test.com"// SMTP server
   
$mail->SMTPAuth=true;
   
$mail->Username="test@test.com";
   
$mail->Password="testpassword";

   
$mail->ContentType="text/plain"// text/plain or text/html

   
$mail->From "test@test.com";
   
$mail->FromName "My name";
   
$mail->AddAddress("test2@test.com");
   
   
// CC and BCC
   
$mail->AddCC("test3@test.com");
   
$mail->AddBCC("test4@test.com");

   
$mail->Subject "This is my subject";
   
$mail->Body "This is my message";

   if(!
$mail->Send())
   {
 echo "Message was not sent";
 echo "Mailer Error: " $mail->ErrorInfo;
   }
   else
   {
 echo "Email sent";
   }
?>



class.phpmailer.php
Code:
<?php
////////////////////////////////////////////////////
// PHPMailer - PHP email class
//
// Class for sending email using either
// sendmail, PHP mail(), or SMTP.  Methods are
// based upon the standard AspEmail(tm) classes.
//
// Copyright (C) 2001 - 2003  Brent R. Matzelle
//
// License: LGPL, see LICENSE
////////////////////////////////////////////////////

/**
* PHPMailer - PHP email transport class
* @package PHPMailer
* @author Brent R. Matzelle
* @copyright 2001 - 2003 Brent R. Matzelle
*/
class PHPMailer
{
    
/////////////////////////////////////////////////
    // PUBLIC VARIABLES
    /////////////////////////////////////////////////

    /**
* Email priority (1 = High, 3 = Normal, 5 = low).
* @var int
*/
    
var $Priority 3;

    
/**
* Sets the CharSet of the message.
* @var string
*/
    
var $CharSet  = "iso-8859-1";

    
/**
* Sets the Content-type of the message.
* @var string
*/
    
var $ContentType    = "text/plain";

    
/**
* Sets the Encoding of the message. Options for this are "8bit",
* "7bit", "binary", "base64", and "quoted-printable".
* @var string
*/
    
var $Encoding "8bit";

    
/**
* Holds the most recent mailer error message.
* @var string
*/
    
var $ErrorInfo     = "";

    
/**
* Sets the From email address for the message.
* @var string
*/
    
var $From "root@localhost";

    
/**
* Sets the From name of the message.
* @var string
*/
    
var $FromName  = "Root User";

    
/**
* Sets the Sender email (Return-Path) of the message.  If not empty,
* will be sent via -f to sendmail or as 'MAIL FROM' in smtp mode.
* @var string
*/
    
var $Sender   = "";

    
/**
* Sets the Subject of the message.
* @var string
*/
    
var $Subject  = "";

    
/**
* Sets the Body of the message.  This can be either an HTML or text body.
* If HTML then run IsHTML(true).
* @var string
*/
    
var $Body "";

    
/**
* Sets the text-only body of the message.  This automatically sets the
* email to multipart/alternative.  This body can be read by mail
* clients that do not have HTML email capability such as mutt. Clients
* that can read HTML will view the normal Body.
* @var string
*/
    
var $AltBody  = "";

    
/**
* Sets word wrapping on the body of the message to a given number of
* characters.
* @var int
*/
    
var $WordWrap 0;

    
/**
* Method to send mail: ("mail", "sendmail", or "smtp").
* @var string
*/
    
var $Mailer   = "mail";

    
/**
* Sets the path of the sendmail program.
* @var string
*/
    
var $Sendmail "/usr/sbin/sendmail";
   
    
/**
* Path to PHPMailer plugins.  This is now only useful if the SMTP class
* is in a different directory than the PHP include path. 
* @var string
*/
    
var $PluginDir     = "";

    
/**
*  Holds PHPMailer version.
*  @var string
*/
    
var $Version  = "1.73";

    
/**
* Sets the email address that a reading confirmation will be sent.
* @var string
*/
    
var $ConfirmReadingTo  "";

    
/**
*  Sets the hostname to use in Message-Id and Received headers
*  and as default HELO string. If empty, the value returned
*  by SERVER_NAME is used or 'localhost.localdomain'.
*  @var string
*/
    
var $Hostname "";

    
/////////////////////////////////////////////////
    // SMTP VARIABLES
    /////////////////////////////////////////////////

    /**
*  Sets the SMTP hosts.  All hosts must be separated by a
*  semicolon.  You can also specify a different port
*  for each host by using this format: [hostname:port]
*  (e.g. "smtp1.example.com:25;smtp2.example.com").
*  Hosts will be tried in order.
*  @var string
*/
    
var $Host    = "localhost";

    
/**
*  Sets the default SMTP server port.
*  @var int
*/
    
var $Port    = 25;

    
/**
*  Sets the SMTP HELO of the message (Default is $Hostname).
*  @var string
*/
    
var $Helo    = "";

    
/**
*  Sets SMTP authentication. Utilizes the Username and Password variables.
*  @var bool
*/
    
var $SMTPAuth false;

    
/**
*  Sets SMTP username.
*  @var string
*/
    
var $Username "";

    
/**
*  Sets SMTP password.
*  @var string
*/
    
var $Password "";

    
/**
*  Sets the SMTP server timeout in seconds. This function will not
*  work with the win32 version.
*  @var int
*/
    
var $Timeout  = 10;

    
/**
*  Sets SMTP class debugging on or off.
*  @var bool
*/
    
var $SMTPDebug    false;

    
/**
* Prevents the SMTP connection from being closed after each mail
* sending.  If this is set to true then to close the connection
* requires an explicit call to SmtpClose().
* @var bool
*/
    
var $SMTPKeepAlive false;

    
/**#@+
* @access private
*/
    
var $smtp   = NULL;
    var 
$to     = array();
    var 
$cc     = array();
    var 
$bcc    = array();
    var 
$ReplyTo     = array();
    var 
$attachment  = array();
    var 
$CustomHeader    = array();
    var 
$message_type    "";
    var 
$boundary    = array();
    var 
$language    = array();
    var 
$error_count 0;
    var 
$LE     = "\n";
    
/**#@-*/
   
    /////////////////////////////////////////////////
    // VARIABLE METHODS
    /////////////////////////////////////////////////

    /**
* Sets message type to HTML. 
* @param bool $bool
* @return void
*/
    
function IsHTML($bool) {
   if($bool == true)
  $this->ContentType "text/html";
   else
  $this->ContentType "text/plain";
    }

    
/**
* Sets Mailer to send message using SMTP.
* @return void
*/
    
function IsSMTP() {
   $this->Mailer "smtp";
    }

    
/**
* Sets Mailer to send message using PHP mail() function.
* @return void
*/
    
function IsMail() {
   $this->Mailer "mail";
    }

    
/**
* Sets Mailer to send message using the $Sendmail program.
* @return void
*/
    
function IsSendmail() {
   $this->Mailer "sendmail";
    }

    
/**
* Sets Mailer to send message using the qmail MTA.
* @return void
*/
    
function IsQmail() {
   $this->Sendmail "/var/qmail/bin/sendmail";
   $this->Mailer "sendmail";
    }


    
/////////////////////////////////////////////////
    // RECIPIENT METHODS
    /////////////////////////////////////////////////

    /**
* Adds a "To" address. 
* @param string $address
* @param string $name
* @return void
*/
    
function AddAddress($address$name "") {
   $cur count($this->to);
   $this->to[$cur][0] = trim($address);
   $this->to[$cur][1] = $name;
    }

    
/**
* Adds a "Cc" address. Note: this function works
* with the SMTP mailer on win32, not with the "mail"
* mailer. 
* @param string $address
* @param string $name
* @return void
    */
    
function AddCC($address$name "") {
   $cur count($this->cc);
   $this->cc[$cur][0] = trim($address);
   $this->cc[$cur][1] = $name;
    }

    
/**
* Adds a "Bcc" address. Note: this function works
* with the SMTP mailer on win32, not with the "mail"
* mailer. 
* @param string $address
* @param string $name
* @return void
*/
    
function AddBCC($address$name "") {
   $cur count($this->bcc);
   $this->bcc[$cur][0] = trim($address);
   $this->bcc[$cur][1] = $name;
    }

    
/**
* Adds a "Reply-to" address. 
* @param string $address
* @param string $name
* @return void
*/
    
function AddReplyTo($address$name "") {
   $cur count($this->ReplyTo);
   $this->ReplyTo[$cur][0] = trim($address);
   $this->ReplyTo[$cur][1] = $name;
    }


    
/////////////////////////////////////////////////
    // MAIL SENDING METHODS
    /////////////////////////////////////////////////

    /**
* Creates message and assigns Mailer. If the message is
* not sent successfully then it returns false.  Use the ErrorInfo
* variable to view description of the error. 
* @return bool
*/
    
function Send() {
   $header "";
   $body "";
   $result true;

   if((count($this->to) + count($this->cc) + count($this->bcc)) < 1)
   {
  $this->SetError($this->Lang("provide_address"));
  return false;
   }

   // Set whether the message is multipart/alternative
   if(!empty($this->AltBody))
  $this->ContentType "multipart/alternative";

   $this->error_count 0// reset errors
   $this->SetMessageType();
   $header .= $this->CreateHeader();
   $body $this->CreateBody();

   if($body == "") { return false; }

   // Choose the mailer
   switch($this->Mailer)
   {
  case "sendmail":
 $result $this->SendmailSend($header$body);
 break;
  case "mail":
 $result $this->MailSend($header$body);
 break;
  case "smtp":
 $result $this->SmtpSend($header$body);
 break;
  default:
  $this->SetError($this->Mailer $this->Lang("mailer_not_supported"));
 $result false;
 break;
   }

   return $result;
    }
   
    
/**
* Sends mail using the $Sendmail program. 
* @access private
* @return bool
*/
    
function SendmailSend($header$body) {
   if ($this->Sender != "")
  $sendmail sprintf("%s -oi -f %s -t"$this->Sendmail$this->Sender);
   else
  $sendmail sprintf("%s -oi -t"$this->Sendmail);

   if(!@$mail popen($sendmail"w"))
   {
  $this->SetError($this->Lang("execute") . $this->Sendmail);
  return false;
   }

   fputs($mail$header);
   fputs($mail$body);
  
   $result pclose($mail) >> 0xFF;
   if($result != 0)
   {
  $this->SetError($this->Lang("execute") . $this->Sendmail);
  return false;
   }

   return true;
    }

    
/**
* Sends mail using the PHP mail() function. 
* @access private
* @return bool
*/
    
function MailSend($header$body) {
   $to "";
   for($i 0$i count($this->to); $i++)
   {
  if($i != 0) { $to .= ", "; }
  $to .= $this->to[$i][0];
   }

   if ($this->Sender != "" && strlen(ini_get("safe_mode"))< 1)
   {
  $old_from ini_get("sendmail_from");
  ini_set("sendmail_from"$this->Sender);
  $params sprintf("-oi -f %s"$this->Sender);
  $rt = @mail($to$this->EncodeHeader($this->Subject), $body,
    $header$params);
   }
   else
  $rt = @mail($to$this->EncodeHeader($this->Subject), $body$header);

   if (isset($old_from))
  ini_set("sendmail_from"$old_from);

   if(!$rt)
   {
  $this->SetError($this->Lang("instantiate"));
  return false;
   }

   return true;
    }

    
/**
* Sends mail via SMTP using PhpSMTP (Author:
* Chris Ryan).  Returns bool.  Returns false if there is a
* bad MAIL FROM, RCPT, or DATA input.
* @access private
* @return bool
*/
    
function SmtpSend($header$body) {
   include_once($this->PluginDir "class.smtp.php");
   $error "";
   $bad_rcpt = array();

   if(!$this->SmtpConnect())
  return false;

   $smtp_from = ($this->Sender == "") ? $this->From $this->Sender;
   if(!$this->smtp->Mail($smtp_from))
   {
  $error $this->Lang("from_failed") . $smtp_from;
  $this->SetError($error);
  $this->smtp->Reset();
  return false;
   }

   // Attempt to send attach all recipients
   for($i 0$i count($this->to); $i++)
   {
  if(!$this->smtp->Recipient($this->to[$i][0]))
 $bad_rcpt[] = $this->to[$i][0];
   }
   for($i 0$i count($this->cc); $i++)
   {
  if(!$this->smtp->Recipient($this->cc[$i][0]))
 $bad_rcpt[] = $this->cc[$i][0];
   }
   for($i 0$i count($this->bcc); $i++)
   {
  if(!$this->smtp->Recipient($this->bcc[$i][0]))
 $bad_rcpt[] = $this->bcc[$i][0];
   }

   if(count($bad_rcpt) > 0// Create error message
   {
  for($i 0$i count($bad_rcpt); $i++)
  {
 if($i != 0) { $error .= ", "; }
 $error .= $bad_rcpt[$i];
  }
  $error $this->Lang("recipients_failed") . $error;
  $this->SetError($error);
  $this->smtp->Reset();
  return false;
   }

   if(!$this->smtp->Data($header $body))
   {
  $this->SetError($this->Lang("data_not_accepted"));
  $this->smtp->Reset();
  return false;
   }
   if($this->SMTPKeepAlive == true)
  $this->smtp->Reset();
   else
  $this->SmtpClose();

   return true;
    }

    
/**
* Initiates a connection to an SMTP server.  Returns false if the
* operation failed.
* @access private
* @return bool
*/
    
function SmtpConnect() {
   if($this->smtp == NULL) { $this->smtp = new SMTP(); }

   $this->smtp->do_debug $this->SMTPDebug;
   $hosts explode(";"$this->Host);
   $index 0;
   $connection = ($this->smtp->Connected());

   // Retry while there is no connection
   while($index count($hosts) && $connection == false)
   {
  if(strstr($hosts[$index], ":"))
 list($host$port) = explode(":"$hosts[$index]);
  else
  {
 $host $hosts[$index];
 $port $this->Port;
  }

  if($this->smtp->Connect($host$port$this->Timeout))
  {
 if ($this->Helo != '')
$this->smtp->Hello($this->Helo);
 else
$this->smtp->Hello($this->ServerHostname());
  
 if($this->SMTPAuth)
 {
if(!$this->smtp->Authenticate($this->Username,
$this->Password))
{
    $this->SetError($this->Lang("authenticate"));
    $this->smtp->Reset();
    $connection false;
}
 }
 $connection true;
  }
  $index++;
   }
   if(!$connection)
  $this->SetError($this->Lang("connect_host"));

   return $connection;
    }

    
/**
* Closes the active SMTP session if one exists.
* @return void
*/
    
function SmtpClose() {
   if($this->smtp != NULL)
   {
  if($this->smtp->Connected())
  {
 $this->smtp->Quit();
 $this->smtp->Close();
  }
   }
    }

    
/**
* Sets the language for all class error messages.  Returns false
* if it cannot load the language file.  The default language type
* is English.
* @param string $lang_type Type of language (e.g. Portuguese: "br")
* @param string $lang_path Path to the language file directory
* @access public
* @return bool
*/
    
function SetLanguage($lang_type$lang_path "include/system/classes/language/") {
   if(file_exists($lang_path.'phpmailer.lang-'.$lang_type.'.php')) {
  include($lang_path.'phpmailer.lang-'.$lang_type.'.php');
   } else if(file_exists($lang_path.'phpmailer.lang-en.php')) {
include($lang_path.'phpmailer.lang-en.php');
   } else
   {
  $this->SetError("Could not load language file");
  return false;
   }

   $this->language $PHPMAILER_LANG;
   
   return true;
    }

    
/////////////////////////////////////////////////
    // MESSAGE CREATION METHODS
    /////////////////////////////////////////////////

    /**
* Creates recipient headers. 
* @access private
* @return string
*/
    
function AddrAppend($type$addr) {
   $addr_str $type ": ";
   $addr_str .= $this->AddrFormat($addr[0]);
   if(count($addr) > 1)
   {
  for($i 1$i count($addr); $i++)
 $addr_str .= ", " $this->AddrFormat($addr[$i]);
   }
   $addr_str .= $this->LE;

   return $addr_str;
    }
   
    
/**
* Formats an address correctly.
* @access private
* @return string
*/
    
function AddrFormat($addr) {
   if(empty($addr[1]))
  $formatted $addr[0];
   else
   {
  $formatted $this->EncodeHeader($addr[1], 'phrase') . " <" .
$addr[0] . ">";
   }

   return $formatted;
    }

    
/**
* Wraps message for use with mailers that do not
* automatically perform wrapping and for quoted-printable.
* Original written by philippe. 
* @access private
* @return string
*/
    
function WrapText($message$length$qp_mode false) {
   $soft_break = ($qp_mode) ? sprintf(" =%s"$this->LE) : $this->LE;

   $message $this->FixEOL($message);
   if (substr($message, -1) == $this->LE)
  $message substr($message0, -1);

   $line explode($this->LE$message);
   $message "";
   for ($i=;$i count($line); $i++)
   {
$line_part explode(" "$line[$i]);
$buf "";
for ($e 0$e<count($line_part); $e++)
{
    $word $line_part[$e];
    if ($qp_mode and (strlen($word) > $length))
    {
 $space_left $length strlen($buf) - 1;
 if ($e != 0)
 {
if ($space_left 20)
{
    $len $space_left;
    if (substr($word$len 11) == "=")
 $len--;
    elseif (substr($word$len 21) == "=")
 $len -= 2;
    $part substr($word0$len);
    $word substr($word$len);
    $buf .= " " $part;
    $message .= $buf sprintf("=%s"$this->LE);
}
else
{
    $message .= $buf $soft_break;
}
$buf "";
 }
 while (strlen($word) > 0)
 {
$len $length;
if (substr($word$len 11) == "=")
    $len--;
elseif (substr($word$len 21) == "=")
    $len -= 2;
$part substr($word0$len);
$word substr($word$len);

if (strlen($word) > 0)
    $message .= $part sprintf("=%s"$this->LE);
else
    $buf $part;
 }
    }
    else
    {
 $buf_o $buf;
 $buf .= ($e == 0) ? $word : (" " $word);

 if (strlen($buf) > $length and $buf_o != "")
 {
$message .= $buf_o $soft_break;
$buf $word;
 }
    }
}
$message .= $buf $this->LE;
   }

   return $message;
    }
   
    
/**
* Set the body wrapping.
* @access private
* @return void
*/
    
function SetWordWrap() {
   if($this->WordWrap 1)
  return;
 
   switch($this->message_type)
   {
 case "alt":
    // fall through
 case "alt_attachments":
    $this->AltBody $this->WrapText($this->AltBody$this->WordWrap);
    break;
 default:
    $this->Body $this->WrapText($this->Body$this->WordWrap);
    break;
   }
    }

    
/**
* Assembles message header. 
* @access private
* @return string
*/
    
function CreateHeader() {
   $result "";
  
   // Set the boundaries
   $uniq_id md5(uniqid(time()));
   $this->boundary[1] = "b1_" $uniq_id;
   $this->boundary[2] = "b2_" $uniq_id;

   $result .= $this->HeaderLine("Date"$this->RFCDate());
   if($this->Sender == "")
  $result .= $this->HeaderLine("Return-Path"trim($this->From));
   else
  $result .= $this->HeaderLine("Return-Path"trim($this->Sender));
  
   // To be created automatically by mail()
   if($this->Mailer != "mail")
   {
  if(count($this->to) > 0)
 $result .= $this->AddrAppend("To"$this->to);
  else if (count($this->cc) == 0)
 $result .= $this->HeaderLine("To""undisclosed-recipients:;");
  if(count($this->cc) > 0)
 $result .= $this->AddrAppend("Cc"$this->cc);
   }

   $from = array();
   $from[0][0] = trim($this->From);
   $from[0][1] = $this->FromName;
   $result .= $this->AddrAppend("From"$from);

   // sendmail and mail() extract Bcc from the header before sending
   if((($this->Mailer == "sendmail") || ($this->Mailer == "mail")) && (count($this->bcc) > 0))
  $result .= $this->AddrAppend("Bcc"$this->bcc);

   if(count($this->ReplyTo) > 0)
  $result .= $this->AddrAppend("Reply-to"$this->ReplyTo);

   // mail() sets the subject itself
   if($this->Mailer != "mail")
  $result .= $this->HeaderLine("Subject"$this->EncodeHeader(trim($this->Subject)));

   $result .= sprintf("Message-ID: <%s@%s>%s"$uniq_id$this->ServerHostname(), $this->LE);
   $result .= $this->HeaderLine("X-Priority"$this->Priority);
   $result .= $this->HeaderLine("X-Mailer""PHPMailer [version " $this->Version "]");
  
   if($this->ConfirmReadingTo != "")
   {
  $result .= $this->HeaderLine("Disposition-Notification-To",
   "<" trim($this->ConfirmReadingTo) . ">");
   }

   // Add custom headers
   for($index 0$index count($this->CustomHeader); $index++)
   {
  $result .= $this->HeaderLine(trim($this->CustomHeader[$index][0]),
   $this->EncodeHeader(trim($this->CustomHeader[$index][1])));
   }
   $result .= $this->HeaderLine("MIME-Version""1.0");

   switch($this->message_type)
   {
  case "plain":
 $result .= $this->HeaderLine("Content-Transfer-Encoding"$this->Encoding);
 $result .= sprintf("Content-Type: %s; charset=\"%s\"",
 $this->ContentType$this->CharSet);
 break;
  case "attachments":
 // fall through
  case "alt_attachments":
 if($this->InlineImageExists())
 {
$result .= sprintf("Content-Type: %s;%s\ttype=\"text/html\";%s\tboundary=\"%s\"%s",
 "multipart/related"$this->LE$this->LE,
 $this->boundary[1], $this->LE);
 }
 else
 {
$result .= $this->HeaderLine("Content-Type""multipart/mixed;");
$result .= $this->TextLine("\tboundary=\"" $this->boundary[1] . '"');
 }
 break;
  case "alt":
 $result .= $this->HeaderLine("Content-Type""multipart/alternative;");
 $result .= $this->TextLine("\tboundary=\"" $this->boundary[1] . '"');
 break;
   }

   if($this->Mailer != "mail")
  $result .= $this->LE.$this->LE;

   return $result;
    }

    
/**
* Assembles the message body.  Returns an empty string on failure.
* @access private
* @return string
*/
    
function CreateBody() {
   $result "";

   $this->SetWordWrap();

   switch($this->message_type)
   {
  case "alt":
 $result .= $this->GetBoundary($this->boundary[1], "",
 "text/plain""");
 $result .= $this->EncodeString($this->AltBody$this->Encoding);
 $result .= $this->LE.$this->LE;
 $result .= $this->GetBoundary($this->boundary[1], "",
 "text/html""");

 $result .= $this->EncodeString($this->Body$this->Encoding);
 $result .= $this->LE.$this->LE;
   
 $result .= $this->EndBoundary($this->boundary[1]);
 break;
  case "plain":
 $result .= $this->EncodeString($this->Body$this->Encoding);
 break;
  case "attachments":
 $result .= $this->GetBoundary($this->boundary[1], """""");
 $result .= $this->EncodeString($this->Body$this->Encoding);
 $result .= $this->LE;

 $result .= $this->AttachAll();
 break;
  case "alt_attachments":
 $result .= sprintf("--%s%s"$this->boundary[1], $this->LE);
 $result .= sprintf("Content-Type: %s;%s" .
"\tboundary=\"%s\"%s",
"multipart/alternative"$this->LE,
$this->boundary[2], $this->LE.$this->LE);
   
 // Create text body
 $result .= $this->GetBoundary($this->boundary[2], "",
 "text/plain""") . $this->LE;

 $result .= $this->EncodeString($this->AltBody$this->Encoding);
 $result .= $this->LE.$this->LE;
   
 // Create the HTML body
 $result .= $this->GetBoundary($this->boundary[2], "",
 "text/html""") . $this->LE;
   
 $result .= $this->EncodeString($this->Body$this->Encoding);
 $result .= $this->LE.$this->LE;

 $result .= $this->EndBoundary($this->boundary[2]);

 $result .= $this->AttachAll();
 break;
   }
   if($this->IsError())
  $result "";

   return $result;
    }

    
/**
* Returns the start of a message boundary.
* @access private
*/
    
function GetBoundary($boundary$charSet$contentType$encoding) {
   $result "";
   if($charSet == "") { $charSet $this->CharSet; }
   if($contentType == "") { $contentType $this->ContentType; }
   if($encoding == "") { $encoding $this->Encoding; }

   $result .= $this->TextLine("--" $boundary);
   $result .= sprintf("Content-Type: %s; charset = \"%s\"",
   $contentType$charSet);
   $result .= $this->LE;
   $result .= $this->HeaderLine("Content-Transfer-Encoding"$encoding);
   $result .= $this->LE;
  
   return $result;
    }
   
    
/**
* Returns the end of a message boundary.
* @access private
*/
    
function EndBoundary($boundary) {
   return $this->LE "--" $boundary "--" $this->LE;
    }
   
    
/**
* Sets the message type.
* @access private
* @return void
*/
    
function SetMessageType() {
   if(count($this->attachment) < && strlen($this->AltBody) < 1)
  $this->message_type "plain";
   else
   {
  if(count($this->attachment) > 0)
 $this->message_type "attachments";
  if(strlen($this->AltBody) > && count($this->attachment) < 1)
 $this->message_type "alt";
  if(strlen($this->AltBody) > && count($this->attachment) > 0)
 $this->message_type "alt_attachments";
   }
    }

    
/**
* Returns a formatted header line.
* @access private
* @return string
*/
    
function HeaderLine($name$value) {
   return $name ": " $value $this->LE;
    }

    
/**
* Returns a formatted mail line.
* @access private
* @return string
*/
    
function TextLine($value) {
   return $value $this->LE;
    }

    
/////////////////////////////////////////////////
    // ATTACHMENT METHODS
    /////////////////////////////////////////////////

    /**
* Adds an attachment from a path on the filesystem.
* Returns false if the file could not be found
* or accessed.
* @param string $path Path to the attachment.
* @param string $name Overrides the attachment name.
* @param string $encoding File encoding (see $Encoding).
* @param string $type File extension (MIME) type.
* @return bool
*/
    
function AddAttachment($path$name ""$encoding "base64",
  $type "application/octet-stream") {
   if(!@is_file($path))
   {
  $this->SetError($this->Lang("file_access") . $path);
  return false;
   }

   $filename basename($path);
   if($name == "")
  $name $filename;

   $cur count($this->attachment);
   $this->attachment[$cur][0] = $path;
   $this->attachment[$cur][1] = $filename;
   $this->attachment[$cur][2] = $name;
   $this->attachment[$cur][3] = $encoding;
   $this->attachment[$cur][4] = $type;
   $this->attachment[$cur][5] = false// isStringAttachment
   $this->attachment[$cur][6] = "attachment";
   $this->attachment[$cur][7] = 0;

   return true;
    }

    
/**
* Attaches all fs, string, and binary attachments to the message.
* Returns an empty string on failure.
* @access private
* @return string
*/
    
function AttachAll() {
   // Return text of body
   $mime = array();

   // Add all attachments
   for($i 0$i count($this->attachment); $i++)
   {
  // Check for string attachment
  $bString $this->attachment[$i][5];
  if ($bString)
 $string $this->attachment[$i][0];
  else
 $path $this->attachment[$i][0];

  $filename    $this->attachment[$i][1];
  $name    = $this->attachment[$i][2];
  $encoding    $this->attachment[$i][3];
  $type    = $this->attachment[$i][4];
  $disposition $this->attachment[$i][6];
  $cid     = $this->attachment[$i][7];
 
  $mime[] = sprintf("--%s%s"$this->boundary[1], $this->LE);
  $mime[] = sprintf("Content-Type: %s; name=\"%s\"%s"$type$name$this->LE);
  $mime[] = sprintf("Content-Transfer-Encoding: %s%s"$encoding$this->LE);

  if($disposition == "inline")
 $mime[] = sprintf("Content-ID: <%s>%s"$cid$this->LE);

  $mime[] = sprintf("Content-Disposition: %s; filename=\"%s\"%s",
$disposition$name$this->LE.$this->LE);

  // Encode as string attachment
  if($bString)
  {
 $mime[] = $this->EncodeString($string$encoding);
 if($this->IsError()) { return ""; }
 $mime[] = $this->LE.$this->LE;
  }
  else
  {
 $mime[] = $this->EncodeFile($path$encoding);
 if($this->IsError()) { return ""; }
 $mime[] = $this->LE.$this->LE;
  }
   }

   $mime[] = sprintf("--%s--%s"$this->boundary[1], $this->LE);

   return join(""$mime);
    }
   
    
/**
* Encodes attachment in requested format.  Returns an
* empty string on failure.
* @access private
* @return string
*/
    
function EncodeFile ($path$encoding "base64") {
   if(!@$fd fopen($path"rb"))
   {
  $this->SetError($this->Lang("file_open") . $path);
  return "";
   }
   $magic_quotes get_magic_quotes_runtime();
   set_magic_quotes_runtime(0);
   $file_buffer fread($fdfilesize($path));
   $file_buffer $this->EncodeString($file_buffer$encoding);
   fclose($fd);
   set_magic_quotes_runtime($magic_quotes);

   return $file_buffer;
    }

    
/**
* Encodes string to requested format. Returns an
* empty string on failure.
* @access private
* @return string
*/
    
function EncodeString ($str$encoding "base64") {
   $encoded "";
   switch(strtolower($encoding)) {
case "base64":
    // chunk_split is found in PHP >= 3.0.6
    $encoded chunk_split(base64_encode($str), 76$this->LE);
    break;
case "7bit":
case "8bit":
    $encoded $this->FixEOL($str);
    if (substr($encoded, -(strlen($this->LE))) != $this->LE)
 $encoded .= $this->LE;
    break;
case "binary":
    $encoded $str;
    break;
case "quoted-printable":
    $encoded $this->EncodeQP($str);
    break;
default:
    $this->SetError($this->Lang("encoding") . $encoding);
    break;
   }
   return $encoded;
    }

    
/**
* Encode a header string to best of Q, B, quoted or none. 
* @access private
* @return string
*/
    
function EncodeHeader ($str$position 'text') {
 $x 0;

 switch (strtolower($position)) {
   case 'phrase':
if (!preg_match('/[\200-\377]/'$str)) {
  // Can't use addslashes as we don't know what value has magic_quotes_sybase.
  $encoded addcslashes($str"\0..\37\177\\\"");

  if (($str == $encoded) && !preg_match('/[^A-Za-z0-9!#$%&\'*+\/=?^_`{|}~ -]/'$str))
    return ($encoded);
  else
    return ("\"$encoded\"");
}
$x preg_match_all('/[^\040\041\043-\133\135-\176]/'$str$matches);
break;
   case 'comment':
$x preg_match_all('/[()"]/'$str$matches);
// Fall-through
   case 'text':
   default:
$x += preg_match_all('/[\000-\010\013\014\016-\037\177-\377]/'$str$matches);
break;
 }

 if ($x == 0)
   return ($str);

 $maxlen 75 strlen($this->CharSet);
 // Try to select the encoding which should produce the shortest output
 if (strlen($str)/$x) {
   $encoding 'B';
   $encoded base64_encode($str);
   $maxlen -= $maxlen 4;
   $encoded trim(chunk_split($encoded$maxlen"\n"));
 } else {
   $encoding 'Q';
   $encoded $this->EncodeQ($str$position);
   $encoded $this->WrapText($encoded$maxlentrue);
   $encoded str_replace("=".$this->LE"\n"trim($encoded));
 }

 $encoded preg_replace('/^(.*)$/m'" =?".$this->CharSet."?$encoding?\\1?="$encoded);
 $encoded trim(str_replace("\n"$this->LE$encoded));

 return $encoded;
    }
   
    
/**
* Encode string to quoted-printable. 
* @access private
* @return string
*/
    
function EncodeQP ($str) {
   $encoded $this->FixEOL($str);
   if (substr($encoded, -(strlen($this->LE))) != $this->LE)
  $encoded .= $this->LE;

   // Replace every high ascii, control and = characters
   $encoded preg_replace('/([\000-\010\013\014\016-\037\075\177-\377])/e',
   "'='.sprintf('%02X', ord('\\1'))"$encoded);
   // Replace every spaces and tabs when it's the last character on a line
   $encoded preg_replace("/([\011\040])".$this->LE."/e",
   "'='.sprintf('%02X', ord('\\1')).'".$this->LE."'"$encoded);

   // Maximum line length of 76 characters before CRLF (74 + space + '=')
   $encoded $this->WrapText($encoded74true);

   return $encoded;
    }

    
/**
* Encode string to q encoding. 
* @access private
* @return string
*/
    
function EncodeQ ($str$position "text") {
   // There should not be any EOL in the string
   $encoded preg_replace("[\r\n]"""$str);

   switch (strtolower($position)) {
case "phrase":
  $encoded preg_replace("/([^A-Za-z0-9!*+\/ -])/e""'='.sprintf('%02X', ord('\\1'))"$encoded);
  break;
case "comment":
  $encoded preg_replace("/([\(\)\"])/e""'='.sprintf('%02X', ord('\\1'))"$encoded);
case "text":
default:
  // Replace every high ascii, control =, ? and _ characters
  $encoded preg_replace('/([\000-\011\013\014\016-\037\075\077\137\177-\377])/e',
   "'='.sprintf('%02X', ord('\\1'))"$encoded);
  break;
   }
  
   // Replace every spaces to _ (more readable than =20)
   $encoded str_replace(" ""_"$encoded);

   return $encoded;
    }

    
/**
* Adds a string or binary attachment (non-filesystem) to the list.
* This method can be used to attach ascii or binary data,
* such as a BLOB record from a database.
* @param string $string String attachment data.
* @param string $filename Name of the attachment.
* @param string $encoding File encoding (see $Encoding).
* @param string $type File extension (MIME) type.
* @return void
*/
    
function AddStringAttachment($string$filename$encoding "base64",
   $type "application/octet-stream") {
   // Append to $attachment array
   $cur count($this->attachment);
   $this->attachment[$cur][0] = $string;
   $this->attachment[$cur][1] = $filename;
   $this->attachment[$cur][2] = $filename;
   $this->attachment[$cur][3] = $encoding;
   $this->attachment[$cur][4] = $type;
   $this->attachment[$cur][5] = true// isString
   $this->attachment[$cur][6] = "attachment";
   $this->attachment[$cur][7] = 0;
    }
   
    
/**
* Adds an embedded attachment.  This can include images, sounds, and
* just about any other document.  Make sure to set the $type to an
* image type.  For JPEG images use "image/jpeg" and for GIF images
* use "image/gif".
* @param string $path Path to the attachment.
* @param string $cid Content ID of the attachment.  Use this to identify
*    the Id for accessing the image in an HTML form.
* @param string $name Overrides the attachment name.
* @param string $encoding File encoding (see $Encoding).
* @param string $type File extension (MIME) type. 
* @return bool
*/
    
function AddEmbeddedImage($path$cid$name ""$encoding "base64",
$type "application/octet-stream") {
   
   if(!@is_file($path))
   {
  $this->SetError($this->Lang("file_access") . $path);
  return false;
   }

   $filename basename($path);
   if($name == "")
  $name $filename;

   // Append to $attachment array
   $cur count($this->attachment);
   $this->attachment[$cur][0] = $path;
   $this->attachment[$cur][1] = $filename;
   $this->attachment[$cur][2] = $name;
   $this->attachment[$cur][3] = $encoding;
   $this->attachment[$cur][4] = $type;
   $this->attachment[$cur][5] = false// isStringAttachment
   $this->attachment[$cur][6] = "inline";
   $this->attachment[$cur][7] = $cid;
   
   return true;
    }
   
    
/**
* Returns true if an inline attachment is present.
* @access private
* @return bool
*/
    
function InlineImageExists() {
   $result false;
   for($i 0$i count($this->attachment); $i++)
   {
  if($this->attachment[$i][6] == "inline")
  {
 $result true;
 break;
  }
   }
  
   return $result;
    }

    
/////////////////////////////////////////////////
    // MESSAGE RESET METHODS
    /////////////////////////////////////////////////

    /**
* Clears all recipients assigned in the TO array.  Returns void.
* @return void
*/
    
function ClearAddresses() {
   $this->to = array();
    }

    
/**
* Clears all recipients assigned in the CC array.  Returns void.
* @return void
*/
    
function ClearCCs() {
   $this->cc = array();
    }

    
/**
* Clears all recipients assigned in the BCC array.  Returns void.
* @return void
*/
    
function ClearBCCs() {
   $this->bcc = array();
    }

    
/**
* Clears all recipients assigned in the ReplyTo array.  Returns void.
* @return void
*/
    
function ClearReplyTos() {
   $this->ReplyTo = array();
    }

    
/**
* Clears all recipients assigned in the TO, CC and BCC
* array.  Returns void.
* @return void
*/
    
function ClearAllRecipients() {
   $this->to = array();
   $this->cc = array();
   $this->bcc = array();
    }

    
/**
* Clears all previously set filesystem, string, and binary
* attachments.  Returns void.
* @return void
*/
    
function ClearAttachments() {
   $this->attachment = array();
    }

    
/**
* Clears all custom headers.  Returns void.
* @return void
*/
    
function ClearCustomHeaders() {
   $this->CustomHeader = array();
    }


    
/////////////////////////////////////////////////
    // MISCELLANEOUS METHODS
    /////////////////////////////////////////////////

    /**
* Adds the error message to the error container.
* Returns void.
* @access private
* @return void
*/
    
function SetError($msg) {
   $this->error_count++;
   $this->ErrorInfo $msg;
    }

    
/**
* Returns the proper RFC 822 formatted date.
* @access private
* @return string
*/
    
function RFCDate() {
   $tz date("Z");
   $tzs = ($tz 0) ? "-" "+";
   $tz abs($tz);
   $tz = ($tz/3600)*100 + ($tz%3600)/60;
   $result sprintf("%s %s%04d"date("D, j M Y H:i:s"), $tzs$tz);

   return $result;
    }
   
    
/**
* Returns the appropriate server variable.  Should work with both
* PHP 4.1.0+ as well as older versions.  Returns an empty string
* if nothing is found.
* @access private
* @return mixed
*/
    
function ServerVar($varName) {
   global $HTTP_SERVER_VARS;
   global $HTTP_ENV_VARS;

   if(!isset($_SERVER))
   {
  $_SERVER $HTTP_SERVER_VARS;
  if(!isset($_SERVER["REMOTE_ADDR"]))
 $_SERVER $HTTP_ENV_VARS// must be Apache
   }
  
   if(isset($_SERVER[$varName]))
  return $_SERVER[$varName];
   else
  return "";
    }

    
/**
* Returns the server hostname or 'localhost.localdomain' if unknown.
* @access private
* @return string
*/
    
function ServerHostname() {
   if ($this->Hostname != "")
  $result $this->Hostname;
   elseif ($this->ServerVar('SERVER_NAME') != "")
  $result $this->ServerVar('SERVER_NAME');
   else
  $result "localhost.localdomain";

   return $result;
    }

    
/**
* Returns a message in the appropriate language.
* @access private
* @return string
*/
    
function Lang($key) {
   if(count($this->language) < 1)
  $this->SetLanguage("en"); // set the default language
   
   if(isset($this->language[$key]))
  return $this->language[$key];
   else
  return "Language string failed to load: " $key;
    }
   
    
/**
* Returns true if an error occurred.
* @return bool
*/
    
function IsError() {
   return ($this->error_count 0);
    }

    
/**
* Changes every end of line from CR or LF to CRLF. 
* @access private
* @return string
*/
    
function FixEOL($str) {
   $str str_replace("\r\n""\n"$str);
   $str str_replace("\r""\n"$str);
   $str str_replace("\n"$this->LE$str);
   return $str;
    }

    
/**
* Adds a custom header.
* @return void
*/
    
function AddCustomHeader($custom_header) {
   $this->CustomHeader[] = explode(":"$custom_header2);
    }
}

?>



class.smtp.php
Code:
<?php
////////////////////////////////////////////////////
// SMTP - PHP SMTP class
//
// Version 1.02
//
// Define an SMTP class that can be used to connect
// and communicate with any SMTP server. It implements
// all the SMTP functions defined in RFC821 except TURN.
//
// Author: Chris Ryan
//
// License: LGPL, see LICENSE
////////////////////////////////////////////////////

/**
* SMTP is rfc 821 compliant and implements all the rfc 821 SMTP
* commands except TURN which will always return a not implemented
* error. SMTP also provides some utility methods for sending mail
* to an SMTP server.
* @package PHPMailer
* @author Chris Ryan
*/
class SMTP
{
    
/**
*  SMTP server port
*  @var int
*/
    
var $SMTP_PORT 25;
   
    
/**
*  SMTP reply line ending
*  @var string
*/
    
var $CRLF "\r\n";
   
    
/**
*  Sets whether debugging is turned on
*  @var bool
*/
    
var $do_debug;   # the level of debug to perform

    /**#@+
* @access private
*/
    
var $smtp_conn;  # the socket to the server
    
var $error; # error if any on the last call
    
var $helo_rply;  # the reply the server sent to us for HELO
    /**#@-*/

    /**
* Initialize the class so that the data is in a known state.
* @access public
* @return void
*/
    
function SMTP() {
   $this->smtp_conn 0;
   $this->error null;
   $this->helo_rply null;

   $this->do_debug 0;
    }

    
/*************************************************************
* CONNECTION FUNCTIONS    *
***********************************************************/

    /**
* Connect to the server specified on the port specified.
* If the port is not specified use the default SMTP_PORT.
* If tval is specified then a connection will try and be
* established with the server for that number of seconds.
* If tval is not specified the default is 30 seconds to
* try on the connection.
*
* SMTP CODE SUCCESS: 220
* SMTP CODE FAILURE: 421
* @access public
* @return bool
*/
    
function Connect($host,$port=0,$tval=30) {
   # set the error val to null so there is no confusion
   $this->error null;

   # make sure we are __not__ connected
   if($this->connected()) {
  # ok we are connected! what should we do?
  # for now we will just give an error saying we
  # are already connected
  $this->error =
 array("error" => "Already connected to a server");
  return false;
   }

   if(empty($port)) {
  $port $this->SMTP_PORT;
   }

   #connect to the smtp server
   $this->smtp_conn fsockopen($host,    # the host of the server
  $port,    # the port to use
  $errno,   # error number if any
  $errstr,  # error message if any
  $tval);   # give up after ? secs
   # verify we connected properly
   if(empty($this->smtp_conn)) {
  $this->error = array("error" => "Failed to connect to server",
   "errno" => $errno,
   "errstr" => $errstr);
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": $errstr ($errno)" $this->CRLF;
  }
  return false;
   }

   # sometimes the SMTP server takes a little longer to respond
   # so we will give it a longer timeout for the first read
   // Windows still does not have support for this timeout function
   if(substr(PHP_OS03) != "WIN")
 socket_set_timeout($this->smtp_conn$tval0);

   # get any announcement stuff
   $announce $this->get_lines();

   # set the timeout  of any socket functions at 1/10 of a second
   //if(function_exists("socket_set_timeout"))
   //   socket_set_timeout($this->smtp_conn, 0, 100000);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $announce;
   }

   return true;
    }

    
/**
* Performs SMTP authentication.  Must be run after running the
* Hello() method.  Returns true if successfully authenticated.
* @access public
* @return bool
*/
    
function Authenticate($username$password) {
   // Start authentication
   fputs($this->smtp_conn,"AUTH LOGIN" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($code != 334) {
  $this->error =
 array("error" => "AUTH not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   // Send encoded username
   fputs($this->smtp_connbase64_encode($username) . $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($code != 334) {
  $this->error =
 array("error" => "Username not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   // Send encoded password
   fputs($this->smtp_connbase64_encode($password) . $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($code != 235) {
  $this->error =
 array("error" => "Password not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   return true;
    }

    
/**
* Returns true if connected to a server otherwise false
* @access private
* @return bool
*/
    
function Connected() {
   if(!empty($this->smtp_conn)) {
  $sock_status socket_get_status($this->smtp_conn);
  if($sock_status["eof"]) {
 # hmm this is an odd situation... the socket is
 # valid but we aren't connected anymore
 if($this->do_debug >= 1) {
echo "SMTP -> NOTICE:" $this->CRLF .
"EOF caught while checking if connected";
 }
 $this->Close();
 return false;
  }
  return true# everything looks good
   }
   return false;
    }

    
/**
* Closes the socket and cleans up the state of the class.
* It is not considered good to use this function without
* first trying to use QUIT.
* @access public
* @return void
*/
    
function Close() {
   $this->error null# so there is no confusion
   $this->helo_rply null;
   if(!empty($this->smtp_conn)) {
  # close the connection and cleanup
  fclose($this->smtp_conn);
  $this->smtp_conn 0;
   }
    }


    
/***************************************************************
*     SMTP COMMANDS    *
*************************************************************/

    /**
* Issues a data command and sends the msg_data to the server
* finializing the mail transaction. $msg_data is the message
* that is to be send with the headers. Each header needs to be
* on a single line followed by a <CRLF> with the message headers
* and the message body being seperated by and additional <CRLF>.
*
* Implements rfc 821: DATA <CRLF>
*
* SMTP CODE INTERMEDIATE: 354
* [data]
* <CRLF>.<CRLF>
* SMTP CODE SUCCESS: 250
* SMTP CODE FAILURE: 552,554,451,452
* SMTP CODE FAILURE: 451,554
* SMTP CODE ERROR  : 500,501,503,421
* @access public
* @return bool
*/
    
function Data($msg_data) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Data() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"DATA" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 354) {
  $this->error =
 array("error" => "DATA command not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   # the server is ready to accept data!
   # according to rfc 821 we should not send more than 1000
   # including the CRLF
   # characters on a single line so we will break the data up
   # into lines by \r and/or \n then if needed we will break
   # each of those into smaller lines to fit within the limit.
   # in addition we will be looking for lines that start with
   # a period '.' and append and additional period '.' to that
   # line. NOTE: this does not count towards are limit.

   # normalize the line breaks so we know the explode works
   $msg_data str_replace("\r\n","\n",$msg_data);
   $msg_data str_replace("\r","\n",$msg_data);
   $lines explode("\n",$msg_data);

   # we need to find a good way to determine is headers are
   # in the msg_data or if it is a straight msg body
   # currently I'm assuming rfc 822 definitions of msg headers
   # and if the first field of the first line (':' sperated)
   # does not contain a space then it _should_ be a header
   # and we can process all lines before a blank "" line as
   # headers.
   $field substr($lines[0],0,strpos($lines[0],":"));
   $in_headers false;
   if(!empty($field) && !strstr($field," ")) {
  $in_headers true;
   }

   $max_line_length 998# used below; set here for ease in change

   while(list(,$line) = @each($lines)) {
  $lines_out null;
  if($line == "" && $in_headers) {
 $in_headers false;
  }
  # ok we need to break this line up into several
  # smaller lines
  while(strlen($line) > $max_line_length) {
 $pos strrpos(substr($line,0,$max_line_length)," ");

 # Patch to fix DOS attack
 if(!$pos) {
$pos $max_line_length 1;
 }

 $lines_out[] = substr($line,0,$pos);
 $line substr($line,$pos 1);
 # if we are processing headers we need to
 # add a LWSP-char to the front of the new line
 # rfc 822 on long msg headers
 if($in_headers) {
$line "\t" $line;
 }
  }
  $lines_out[] = $line;

  # now send the lines to the server
  while(list(,$line_out) = @each($lines_out)) {
 if(strlen($line_out) > 0)
 {
if(substr($line_out01) == ".") {
    $line_out "." $line_out;
}
 }
 fputs($this->smtp_conn,$line_out $this->CRLF);
  }
   }

   # ok all the message data has been sent so lets get this
   # over with aleady
   fputs($this->smtp_conn$this->CRLF "." $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "DATA not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Expand takes the name and asks the server to list all the
* people who are members of the _list_. Expand will return
* back and array of the result or false if an error occurs.
* Each value in the array returned has the format of:
* [ <full-name> <sp> ] <path>
* The definition of <path> is defined in rfc 821
*
* Implements rfc 821: EXPN <SP> <string> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE FAILURE: 550
* SMTP CODE ERROR  : 500,501,502,504,421
* @access public
* @return string array
*/
    
function Expand($name) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Expand() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"EXPN " $name $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "EXPN not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   # parse the reply and place in our array to return to user
   $entries explode($this->CRLF,$rply);
   while(list(,$l) = @each($entries)) {
  $list[] = substr($l,4);
   }

   return $list;
    }

    
/**
* Sends the HELO command to the smtp server.
* This makes sure that we and the server are in
* the same known state.
*
* Implements from rfc 821: HELO <SP> <domain> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE ERROR  : 500, 501, 504, 421
* @access public
* @return bool
*/
    
function Hello($host="") {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Hello() without being connected");
  return false;
   }

   # if a hostname for the HELO wasn't specified determine
   # a suitable one to send
   if(empty($host)) {
  # we need to determine some sort of appopiate default
  # to send to the server
  $host "localhost";
   }

   // Send extended hello first (RFC 2821)
   if(!$this->SendHello("EHLO"$host))
   {
  if(!$this->SendHello("HELO"$host))
 return false;
   }

   return true;
    }

    
/**
* Sends a HELO/EHLO command.
* @access private
* @return bool
*/
    
function SendHello($hello$host) {
   fputs($this->smtp_conn$hello " " $host $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER: " $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => $hello " not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   $this->helo_rply $rply;
  
   return true;
    }

    
/**
* Gets help information on the keyword specified. If the keyword
* is not specified then returns generic help, ussually contianing
* A list of keywords that help is available on. This function
* returns the results back to the user. It is up to the user to
* handle the returned data. If an error occurs then false is
* returned with $this->error set appropiately.
*
* Implements rfc 821: HELP [ <SP> <string> ] <CRLF>
*
* SMTP CODE SUCCESS: 211,214
* SMTP CODE ERROR  : 500,501,502,504,421
* @access public
* @return string
*/
    
function Help($keyword="") {
   $this->error null# to avoid confusion

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Help() without being connected");
  return false;
   }

   $extra "";
   if(!empty($keyword)) {
  $extra " " $keyword;
   }

   fputs($this->smtp_conn,"HELP" $extra $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 211 && $code != 214) {
  $this->error =
 array("error" => "HELP not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   return $rply;
    }

    
/**
* Starts a mail transaction from the email address specified in
* $from. Returns true if successful or false otherwise. If True
* the mail transaction is started and then one or more Recipient
* commands may be called followed by a Data command.
*
* Implements rfc 821: MAIL <SP> FROM:<reverse-path> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE SUCCESS: 552,451,452
* SMTP CODE SUCCESS: 500,501,421
* @access public
* @return bool
*/
    
function Mail($from) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Mail() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"MAIL FROM:<" $from ">" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "MAIL not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Sends the command NOOP to the SMTP server.
*
* Implements from rfc 821: NOOP <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE ERROR  : 500, 421
* @access public
* @return bool
*/
    
function Noop() {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Noop() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"NOOP" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "NOOP not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Sends the quit command to the server and then closes the socket
* if there is no error or the $close_on_error argument is true.
*
* Implements from rfc 821: QUIT <CRLF>
*
* SMTP CODE SUCCESS: 221
* SMTP CODE ERROR  : 500
* @access public
* @return bool
*/
    
function Quit($close_on_error=true) {
   $this->error null# so there is no confusion

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Quit() without being connected");
  return false;
   }

   # send the quit command to the server
   fputs($this->smtp_conn,"quit" $this->CRLF);

   # get any good-bye messages
   $byemsg $this->get_lines();

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $byemsg;
   }

   $rval true;
   $e null;

   $code substr($byemsg,0,3);
   if($code != 221) {
  # use e as a tmp var cause Close will overwrite $this->error
  $e = array("error" => "SMTP server rejected quit command",
   "smtp_code" => $code,
   "smtp_rply" => substr($byemsg,4));
  $rval false;
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $e["error"] . ": " .
$byemsg $this->CRLF;
  }
   }

   if(empty($e) || $close_on_error) {
  $this->Close();
   }

   return $rval;
    }

    
/**
* Sends the command RCPT to the SMTP server with the TO: argument of $to.
* Returns true if the recipient was accepted false if it was rejected.
*
* Implements from rfc 821: RCPT <SP> TO:<forward-path> <CRLF>
*
* SMTP CODE SUCCESS: 250,251
* SMTP CODE FAILURE: 550,551,552,553,450,451,452
* SMTP CODE ERROR  : 500,501,503,421
* @access public
* @return bool
*/
    
function Recipient($to) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Recipient() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"RCPT TO:<" $to ">" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250 && $code != 251) {
  $this->error =
 array("error" => "RCPT not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Sends the RSET command to abort and transaction that is
* currently in progress. Returns true if successful false
* otherwise.
*
* Implements rfc 821: RSET <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE ERROR  : 500,501,504,421
* @access public
* @return bool
*/
    
function Reset() {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Reset() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"RSET" $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "RSET failed",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }

   return true;
    }

    
/**
* Starts a mail transaction from the email address specified in
* $from. Returns true if successful or false otherwise. If True
* the mail transaction is started and then one or more Recipient
* commands may be called followed by a Data command. This command
* will send the message to the users terminal if they are logged
* in.
*
* Implements rfc 821: SEND <SP> FROM:<reverse-path> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE SUCCESS: 552,451,452
* SMTP CODE SUCCESS: 500,501,502,421
* @access public
* @return bool
*/
    
function Send($from) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Send() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"SEND FROM:" $from $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "SEND not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Starts a mail transaction from the email address specified in
* $from. Returns true if successful or false otherwise. If True
* the mail transaction is started and then one or more Recipient
* commands may be called followed by a Data command. This command
* will send the message to the users terminal if they are logged
* in and send them an email.
*
* Implements rfc 821: SAML <SP> FROM:<reverse-path> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE SUCCESS: 552,451,452
* SMTP CODE SUCCESS: 500,501,502,421
* @access public
* @return bool
*/
    
function SendAndMail($from) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
 "error" => "Called SendAndMail() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"SAML FROM:" $from $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "SAML not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* Starts a mail transaction from the email address specified in
* $from. Returns true if successful or false otherwise. If True
* the mail transaction is started and then one or more Recipient
* commands may be called followed by a Data command. This command
* will send the message to the users terminal if they are logged
* in or mail it to them if they are not.
*
* Implements rfc 821: SOML <SP> FROM:<reverse-path> <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE SUCCESS: 552,451,452
* SMTP CODE SUCCESS: 500,501,502,421
* @access public
* @return bool
*/
    
function SendOrMail($from) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
 "error" => "Called SendOrMail() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"SOML FROM:" $from $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250) {
  $this->error =
 array("error" => "SOML not accepted from server",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return true;
    }

    
/**
* This is an optional command for SMTP that this class does not
* support. This method is here to make the RFC821 Definition
* complete for this class and __may__ be implimented in the future
*
* Implements from rfc 821: TURN <CRLF>
*
* SMTP CODE SUCCESS: 250
* SMTP CODE FAILURE: 502
* SMTP CODE ERROR  : 500, 503
* @access public
* @return bool
*/
    
function Turn() {
   $this->error = array("error" => "This method, TURN, of the SMTP ".
"is not implemented");
   if($this->do_debug >= 1) {
  echo "SMTP -> NOTICE: " $this->error["error"] . $this->CRLF;
   }
   return false;
    }

    
/**
* Verifies that the name is recognized by the server.
* Returns false if the name could not be verified otherwise
* the response from the server is returned.
*
* Implements rfc 821: VRFY <SP> <string> <CRLF>
*
* SMTP CODE SUCCESS: 250,251
* SMTP CODE FAILURE: 550,551,553
* SMTP CODE ERROR  : 500,501,502,421
* @access public
* @return int
*/
    
function Verify($name) {
   $this->error null# so no confusion is caused

   if(!$this->connected()) {
  $this->error = array(
"error" => "Called Verify() without being connected");
  return false;
   }

   fputs($this->smtp_conn,"VRFY " $name $this->CRLF);

   $rply $this->get_lines();
   $code substr($rply,0,3);

   if($this->do_debug >= 2) {
  echo "SMTP -> FROM SERVER:" $this->CRLF $rply;
   }

   if($code != 250 && $code != 251) {
  $this->error =
 array("error" => "VRFY failed on name '$name'",
  "smtp_code" => $code,
  "smtp_msg" => substr($rply,4));
  if($this->do_debug >= 1) {
 echo "SMTP -> ERROR: " $this->error["error"] .
": " $rply $this->CRLF;
  }
  return false;
   }
   return $rply;
    }

    
/*******************************************************************
*    INTERNAL FUNCTIONS    *
******************************************************************/

    /**
* Read in as many lines as possible
* either before eof or socket timeout occurs on the operation.
* With SMTP we can tell if we have more lines to read if the
* 4th character is '-' symbol. If it is a space then we don't
* need to read anything else.
* @access private
* @return string
*/
    
function get_lines() {
   $data "";
   while($str fgets($this->smtp_conn,515)) {
  if($this->do_debug >= 4) {
 echo "SMTP -> get_lines(): \$data was \"$data\"" .
$this->CRLF;
 echo "SMTP -> get_lines(): \$str is \"$str\"" .
$this->CRLF;
  }
  $data .= $str;
  if($this->do_debug >= 4) {
 echo "SMTP -> get_lines(): \$data is \"$data\"" $this->CRLF;
  }
  # if the 4th character is a space then we are done reading
  # so just break the loop
  if(substr($str,3,1) == " ") { break; }
   }
   return $data;
    }

}


?>
3  Sample Script / PHP / PHP contact form sample on: June 08, 2009, 11:18:31 AM
PHP contact form sample

form.html

Code:
<form name="form1" method="post" action="send_mail.php">
  <p>Name: <br>
    <input name="name" type="text" size="30" maxlength="30">

  </p>
  <p>Email address: <br>
    <input name="email" type="text" size="30" maxlength="40">
  </p>
  <p>Age: <br>
    <input name="age" type="text" size="5" maxlength="2">
  </p>
  <p>Gender: <br>

    <select name="gender">
    <option selected value="">Choose....</option>
    <option value="male">Male</option>
    <option value="female">Female</option>
    </select>
  </p>
  <p>Message: <br>

    <textarea name="message" cols="30" rows="5"></textarea>
  </p>
  <input type="submit" value="submit">
  <input type="reset" value="reset">
</form>


send_mail.php

Code:
<?php
   $recipient="test@testing.com";
   $subject="New Message ".date("Y-m-d H:i:s");

   $name=$_REQUEST["name"];
   $email=$_REQUEST["email"];
   $age=$_REQUEST["age"];
   $gender=$_REQUEST["gender"];
   $message=$_REQUEST["message"];

   if(strpos(" ".$name,"\n") >0) {
    exit;
   }

   if(strpos(" ".$email,"\n") >0) {
    exit;
   }
   
   $message="Name : $name \r\nAge : $age\r\nGender : $gender\r\nEmail : $email\r\nMessage:\r\n$message";

   mail($recipient,$subject,$message,"From:$email");

   header("Location: thank_you.html");
?>
4  Online Tutorial / Order / Order>How To Place A New / Renewal Order on: March 05, 2009, 08:52:44 AM
STEP 1: Go to our website www.newmediaexpress.com to click on of the ORDER NOW button if you wish to place a new order or renew your hosting with  us.

Note: For customer who has subscribed our hosting before May 2008 is required to place the new order as a renewal service.


STEP 2: Click YES if you subscribe for one year hosting and above will entitle for free .com/.net/.org/.biz domain.
Click NO if your domain is .SG domain or do not wish NewMedia Express manage your domain.



STEP 3: If you wish to register or renew your existing domain with us, enter your domain name.(This includes new registration, domain transfer and domain renewal)

If you choose “Use existing domain, registered elsewhere” means you do not wish to register the domain with us and manage the domain yourself. Once you click this option,our DNS (Domain Name Server) will display for your update. Do consult us or your designer regards this.

NOTE: Do not click “SKIP Domain SELECTION”. We would not able to setup the hosting foryou without specify a domain.



STEP 4: For New Registration / Domain Transfer / Domain Renewal, click “Order Selected Domains”



STEP 5: Click CONTINUE if you do not wish to order add-on item



STEP 6: Fill in your particular accordingly and CLICK “I accept the terms of the User Agreement” and then click REGISTER button.

Note:
1) Enter a valid email as an administrator contact. All billing invoices & subscription info will be sent to this email.
2) The Password is the administrator login to manage your subscription and billing invoice. This is not your email password.
3) For customer who has subscribed our hosting before May 2008 is required to fill up this particular.




STEP 7: For Domain Transfer, kindly provide us the transfer code to process transfer. Shall you have no transfer code at this time, do indicate “Domain Transfer” and request transfer code from your existing provider and email us afterwards.

For Domain / Hosting Renewal, do indicate here.



STEP 8:Choose the subscription period for hosting & domain renewal.
NOTE: If you choose LIX2 for 2 years period, you need to choose domain with at least 2 years in order to entitle for free 2 years global domain.


Click here to confirm your order. Once you confirm the order, no change is allowed. Else, a new order has to be placed again.



STEP 9: Choose the payment mode you wish to pay for this service.






STEP 10:
Click here to manage your billing documents and subscription. Alternately, bookmarks the billing URL for future billing purpose.





STEP 11:
After login to your billing control panel, you can check your billing history as well as your subscription.
NOTE: The subscription will only activate upon payment received.
 
5  Online Tutorial / Online Drive / Online Drive > Upload File on: February 24, 2009, 09:45:11 AM
[FONT=&quot]Upload File

[/FONT]
[FONT=&quot]STEP 1: [/FONT]You can upload your file under the “Upload File” tabs into the server.[FONT=&quot]


[/FONT]
   
  STEP 2: You can browse the directories and select the wanted file to add the file in to the selected files fields below the page.

[FONT=&quot]

[/FONT]
   
STEP 3: [FONT=&quot]You need to highlight the files which you want and click the “Add Files” button and the files will go to “Selected Files” fields.[/FONT]
 




STEP 4: After then you can click the “Upload Files” button to upload the files in to the server.


   
 
STEP 5: This picture show that the upload progress complete.


   
STEP 6:
   You can check your file have been in the server after uploaded the files.
6  Online Tutorial / Online Drive / Online Drive>New Folder on: February 24, 2009, 09:44:35 AM
[FONT=&quot]New Folder

[/FONT]
[FONT=&quot]STEP 1: [/FONT]You can create a folder in this server to share the folder with other people.
[FONT=&quot]


[/FONT]
   
STEP 2: You can rename the folder name you created.


   

STEP 3: After then your folder created has been appear in your server now.
7  Online Tutorial / Online Drive / Online Drive>New Sharing on: February 24, 2009, 09:43:38 AM
[FONT=&quot]New Sharing

[/FONT]
[FONT=&quot]STEP 1: [/FONT][/COLOR]Under this tabs, you can share your files with your friends or other peoples under the folder you created.
[FONT=&quot]


[/FONT]
   
STEP 2: You can select the folder name which you wish to share with your friends and create the new guest for it to access.



   
STEP 3: Kindly typing the email address with compulsory and password provided by default.
  Another text boxes and fields you can ignore and no need to fill it out with compulsory.

8  Online Tutorial / Online Drive / Online Drive>Settings on: February 24, 2009, 09:27:52 AM
[FONT=&quot]Settings

[/FONT]
[FONT=&quot]STEP 1: [/FONT]You can configure the settings for this service as well as you want.
[FONT=&quot]


[/FONT]
STEP 2: You can set your computer to support the web access directly without typing the URL in a browser to log in your onlinedrive website. Under the settings, tick the “Active WebDAV access” to create an account and save it. After click “Save” button, it will go back to the task page (front page). After then go to click the “start” button at your left hand side of your desktop screen, select the “My Network Places” options.
You click the “Add a network place” and will pop out a message to configure to add a network place in your computer.




   
STEP 3: Click the “Next” button to continue the page.




   
STEP 4: Click the “Next” button to allow choosing another network location.




   
STEP 5: Copy the path or the internet address in your onlinedrive website as below. After then click the “Next” button to continue the page.




   
STEP 6: Kindly copy the user name from onlinedrive website which provided by default into the “User name” text box and key your password as well in “Password” text box.
Remember tick the “Remember my password” options there and click “OK” to exit it.







   
STEP 7: You can rename your network place’s folder name and click “ok” to next step.





   
STEP 8: Click “Finish” to complete created network place settings in your computer.




   
STEP 9: After then you can view your files in the server directly through your computer. By the way, you can delete or add the files directly in your network place in your computer.

9  Online Tutorial / Online Drive / Online Drive>Usage Data on: February 24, 2009, 09:26:38 AM
Usage Data

STEP1: You can check your usage data space occasionally under the “Usage Data” tabs.



10  Online Tutorial / Online Drive / Online Drive>Backup on: February 24, 2009, 09:26:17 AM
[FONT=&quot]Backup

[/FONT]
[FONT=&quot]STEP 1: [/FONT]You can back up your files under the “Backup” tabs.
  [FONT=&quot]Follow the instructions given to download the OnlineDrive Backup Client in your computer.[/FONT]
[FONT=&quot]

[/FONT]
11  Online Tutorial / Email Hosting / Linux Hosting > How to add email account on: February 24, 2009, 09:25:06 AM
STEP 1: Enter your Login and Password at mail admin page and press Login (https://mailadmin.yourdomain.com)





STEP 2: Clickon the Add Email link





STEP 3: ClickAdd button to add a new email account.




STEP 4: Enter all the information and clickAdd button.
12  Online Tutorial / Email Hosting / Linux Hosting > How to add email forwarder on: February 24, 2009, 09:24:19 AM
STEP 1: Click Email Forwarder .




STEP 2: Click Add button.





STEP 3: Enter a email account,1 destination email account and click Add button.
13  Online Tutorial / Email Hosting / Linux Hosting > How to change password on: February 24, 2009, 09:23:37 AM
STEP 1: Click Change Password link.




STEP 2: Enter current password , new password , confirm password and press Save button.
14  Online Tutorial / Web Publishing / Web Publishing > How to create web pages on Microsoft FrontPage 2002 on: February 24, 2009, 09:20:28 AM
MICROSOFT FRONTPAGE 2002

UNDERSTAND THE INTERNET
  • Internet is a collection of thousands of computers, connect together and access through phone lines and your computer's modem or LAN.
  • We use Internet to seek for information, communicate through Email, chat and video conferencing.
  • Web is part of Internet. Web page is the one you can see when you access a web document, or site on Internet.
  • Web site is a collection of one or more pages on which you can share all sorts of information. It is able to include sound, movies, text and graphics and hyperlinks that allow viewers to move from one page to another by simply clicking a word or phrase.
  • You need a html editing tool to create or design for your web site. For example, Ms. FrontPage or Ms. Publisher.
TIPS TO DESIGN A SUCCESSFUL INTERACTIVE WEB SITE [list=1]
  • Keep your web site simple. Too many fonts, colours and graphics can clutter your pages and make them difficult to read. In addition, large graphics and photos can spend plenty of time for viewers to load or download. Therefore, keep your images (graphics and photos) small.
  • Create useful interactive buttons. If your web site include more than one page, be sure to include interactive buttons that allow viewers to quickly access your welcome page, previous page, and next page.
  • Create hyperlinks. A hyperlink is an underlined or otherwise emphasized word or phrase that, when clicked with the mouse, displays another document or takes the user to another site. A good web site will offer a number of hyperlinks to allow your viewers to navigate your pages directly to the information they want most.
  • Use different design to identify the different kinds of page objects Title, headings, body text, hyperlinks, and legal disclaimers, should be differentiated by a unique appearance. You can add contrast in several ways: Lines, Typefaces (fonts), and Colours
  • All the similar page objects should look alike. All body text should look the same; all headings should look alike and so on. Giving the similar page objects with different appearances can be extremely confusing to readers.
SOMETHING THAT YOU SHOULD AWARE WHEN SAVING A WEB PAGE FILE
  • Always use lower case letters
  • Never use punctuation marks except hyphen or underscore
  • No spaces in between words
  • Each page must end with the extension .html (Macintosh) or .htm (Windows).
GETTING STARTED[list=1]
  • Create a folder to keep your images. You can name it as Images folder.
Create a New webpage[list=1]
  • Click the Start button on the taskbar.
  • Move the mouse cursor to Programs.
  • Click on Microsoft FrontPage to start the application.

  • You can change the view by selecting a different View Option.
Save the webpage[list=1]
  • To save the files, select file -> save as.

  • Save the main page as index.html / index.htm / default.htm (follow our email instruction)
  • Click Save, once you have select the location where you want to save to
NOTE:
Name the main page as index.html / index.htm / default.htm (follow our email instruction)   
            

Design the webpage layout using table[list=1]
  • To insert table, select Table -> Insert ->Table.

  • Select the number of rows and columns.
  • Click OK.
Insert text[list=1]
  • To change any of the font size, font color, selects Format -> Font.

  • To change the color or size, you can just click on the icons.

  • To change align to the center or right, click at the icon.
Insert picture[list=1]
  • Select Insert -> Picture-> From File.
  • Choose the file.
  • Click OK.
Hyperlink[list=1]
  • Select Insert -> Hyperlink or CTRL+K

  • To insert email hyperlink, select Insert|Hyperlink or CTRL+K or click at the icon.
  • Then click on the E-mail Address.
  • Insert your e-mail address.
  • Click OK.
Upload webpage on web[list=1]
  • On the toolbar, click File, and then Open Web...

  • Click on the file that you want to upload, then click Open button.

  • On the toolbar, click File, then Publish Web...

  • In the Enter publish destination field, when you publishing via FTP please enter ftp://your site.com.

  • In the Name field, enter the login id and password. (Refer our email instruction) After that, click OK button.(The login id and password are given on the email notification)

  • Click Show button.

  • Click Options button.

  • Below the Publish, select All pages, overwriting pages already on destination. Click OK button.

  • Click Publish button.

  • Frontpage will display the screen below once the webpages are uploaded successfully.
[/list]
15  Online Tutorial / Web Publishing / Web Publishing > How to create web pages on DreamweaverMX on: February 24, 2009, 09:17:41 AM
DreamweaverMX 2004
1. Create a New webpage

1.1 Below is the diagram of the default page layout in DreamweaverMX 2004.

1.2You can change the view by selecting the View Tabs



2.    Insert Text

2.1 You can edit the text at the blank page



3.     Format Text

3.1To change any of the font size.

3.2Selects the size and click on it.

3.3To change the font color.

3.4Select the icon to change the color.



3.5 To change align to the center or right, you can just click on the icon.



4.    Insert Picture

4.1To insert picture, select Insert -> Image -> From File.



4.2Choose the file.

4.3Click OK.



5. Move Picture

5.1Select the picture.

5.2 Click at the icon to move the picture to the left, center or right.



6. Resize Picture

6.1You can crop the picture to make the size smaller.

7.    Save the webpage

7.1To save the files, select file -> save as.



7.2Select the directory to save the file.

7.3Save the main page as index.html / index.htm / default.htm (follow our email instruction).

7.4Click Save.


NOTE:
Name the main page as index.html / index.htm / default.htm (follow our email instruction)

8. Design the webpage layout using table

8.1To insert table, select Insert -> Table or Ctrl+Alt+T.



8.2To insert table, you can also click at the icon.

8.3Select the number of rows and columns.



8.4Click OK.



9. Hyperlink

9.1To insert hyperlink, select Insert -> Hyperlink.

9.2 you can also click at the icon to insert the hyperlink.



10. Email link

10.1   To insert email hyperlink, select Insert -> Hyperlink or click at the icon.

10.2   Click on the E-mail Address.
10.3   Insert your e-mail address.

10.4   Click OK.



11. Upload webpage on web

11.1Open Macromedia Dreamweaver MX. Choose New Site from Site drop-down menu.



11.2   Switch to Advanced mode.


11.3   At Local Info category, enter a phrase that describes your site on Site Name field.



11.4   Click on Remote Info category.



11.5Change Access to FTP and fill in the below details as given by NewMedia Express.
FTP Host: ftp.yourdomain.com / IP address (eg. 202.172.235.164)
Login: administrator@yourdomain.com / yourdomain@yourdomain.com
Password: *******
( Please read our email instruction)



11.6   Click OK button.



11.7   Click Expand / Collapse icon to display file transfer window.



11.8Click Connect icon on top menu to connect to remote server. Once connected, you will see the mainwebsite_html folder (Linux hosting users) or wwwroot folder (Windows hosting users) display on remote site view.



11.9Double-click on mainwebsite_html folder or wwwroot folder and list of html page will display. All website files MUST store into mainwebsite_html or wwwroot folder.



11.10To transfer files to remote server, select the files that need uploading, and drag over to Remote Site view.



NOTE:
To download all webpages into your local folder, select the files that need downloading, and drag over to Local Files view.

Make sure that the first webpage is "index.html" or "default.htm" to prevent duplication. You can choose to remove the default index page on remote server. ( Please read our email instruction)
Pages: [1] 2 3 ... 7
Powered by MySQL Powered by PHP Powered by SMF 1.1.8 | SMF © 2006-2008, Simple Machines LLC Valid XHTML 1.0! Valid CSS!