Thông tin tài liệu
Đọ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''> <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 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) thisResponse=SendCommand(netstream,''user '' & user & vbCrLF) thisResponse=SendCommand(netstream,''pass '' & pass & vbCrLf) if not left(thisResponse,4)=''-ERR'' then response.write(''<font face=courier>Logged in OK <BR>'') else response.write(''Error logging in, check your user details and try again<BR>'') response.write(''<P>'' & thisresponse) response.end end if thisResponse=SendCommand(netstream,''stat'' & vbCrLf) dim tmpArray() as string tmpArray = split(thisResponse,'' '') dim thisMess as integer dim numMess as string = tmpArray(1) response.write(''<p><hr>'') thisResponse = '''' if cint(numMess) > 0 then response.write(''Messages: '' & numMess & ''<br>'') for thisMess = 1 to cint(numMess) thisResponse += replace(SendCommand(netstream,''top '' & thisMess & '' 10'' & vbCrLf),vbcrlf,''<br>'') next else response.write(''Messages: None'' & ''<br>'') end if thisResponse += replace(SendCommand(netstream,''stat'' & vbCrLf),vbcrlf,''<br>'') tmpArray = split(thisResponse,''+OK'') response.write(thisresponse) dim msg as integer for msg = 1 to tmpArray.length-1 response.write(''<h3>#'' & msg & ''</h1>'' & tmpArray(msg) & ''<p>'') next thisResponse=SendCommand(netstream,''QUIT'' & vbCrLF) tcpC.close End Function </script> . Đọ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. 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>
Ngày đăng: 26/10/2013, 02:20
Xem thêm: Đọc Pop3 E-mail bằng ASP.NET
