Đang chuẩn bị liên kết để tải về tài liệu:
Mẹo Lập Trình p 6

Part 6 Đọc Pop3 E-mail bằng ASP.NET Với sức mạnh của .NET bạn có thể làm được nhiều việc trước kia với ASP chuẩn bạn rất khó thực hiện và đôi lúc không thể thực hiện được. i-Today hôm nay sẽ hướng dẫn các bạn cách đọc Pop3 Email bằng ASP.NET | mữlMS BMẸ IW Part 6 Response.Cookies Makovision Username VASC Response.Cookies Makovision Option Restricted Dim strValue as String for each strValue in Response.Cookies Makovision .values MakCookie.Text b strValue b Request.Cookies Makovision strValue BR next trong Body form runat server asp label id MakCookie runat server form Đọc Pop3 E-mail bằng ASP.NET Với sức mạnh của .NET bạn có thể làm được nhiều việc trước kia với ASP chuẩn bạn rất khó thực hiện và đôi lúc không thể thực hiện được. i-Today hôm nay sẽ hướng dẫn các bạn cách đọc Pop3 Email bằng ASP.NET pop3.aspx @page HTML HEAD title Pop3 mail check title HEAD body bgcolor white if isPostback then readMail host.text user.text pass.text else form id calc method post runat server 38 Copyright http vndownloads.net P Host asp TextBox id host runat server asp TextBox P User asp TextBox id user runat server asp TextBox P Pass asp TextBox TextMode Password id pass runat server asp TextBox P asp Button id Button1 runat server Text Login asp Button FORM end if body HTML script language vb runat server dim tcpC as New system.net.sockets.TcpClient Function SendCommand byRef netstream as System.Net.Sockets.NetworkStream byVal sToSend as String dim bData as Byte Encoding.ASCII.GetBytes sToSend.ToCharArray netstream.Write bData 0 bData.Length Return GetResponse netstream End Function Function GetResponse byRef netstream as System.Net.Sockets.NetworkStream dim bytes tcpC.ReceiveBufferSize As Byte dim ret as integer netStream.Read bytes 0 bytes.length dim returndata As String Encoding.ASCII.GetString bytes return returndata End Function 39 Copyright http vndownloads.net Function ReadMail host as string user as string pass as string dim netstream as System.Net.Sockets.NetworkStream dim thisResponse as string try tcpC.Connect host 110 catch ex as exception response.write Error connecting to host ex.message - Please check your details and try again response.end end try netstream tcpC.GetStream thisResponse GetResponse netstream