Đọc Pop3 E-mail bằng ASP.NET
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (50.03 KB, 3 trang )
Đọ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>
