asp.net實現pop功能
來源：互聯網
上載者：User
asp.net /*
豆腐製作 都是精品
http://www.asp888.net 豆腐技術站
如轉載 請保留完整著作權資訊
*/
前面我曾經講過如何在asp.net下利用socket編程實現網域名稱查詢，詳細情況請看文章：http://www.asp888.net/lanmu/viewArticle.asp?id=51[title]asp+中實現網域名稱查詢的完整代碼[/title]
豆腐有一天突然想，既然可以利用socket實現網域名稱查詢，那是不是只要是利用到socket用戶端
編程的以前的 Windows 傳統型程式都可以用asp.net 實現呢？說幹就幹，我第一個準備要做的就是
一個asp.net 版本的郵件接收程式，我們知道，在asp+中發送Email是見很方便的事情(http://www.asp888.net/lanmu/viewArticle.asp?id=95[title]asp+發送Email完全手冊[/title]),可是怎麼進行
收取pop信件的程式呢？看來只有拿出豆腐的殺手劍了：）
首先我們來看看這個程式的代碼：pop.aspx
<%@ Assembly Name="System.Net" %>
<%@ Import Namespace="System.Net" %>
<% @Import Namespace="System.Net.Sockets" %>
<%@ Import Namespace="System.IO" %>
<script language="C#" runat=server>
protected void Page_Load(Object Src, EventArgs E){
String user="doufu"; //信箱使用者代碼
String pass="asp888.net"; //信箱使用者密碼
String popserver="localhost"; //pop伺服器IP地址
TCPClient tcpc = new TCPClient();
if (0 == tcpc.Connect(popserver, 110))
{
//如果程式執行到這裡，就表示串連Pop Server 成功
Stream s;
StreamReader sr ;
String strCmd;
Byte[] arrCmd;
String strRet;
String[] arrRet;
sr = new StreamReader(tcpc.GetStream(), Encoding.Default);
Response.Write(sr.ReadLine() + "<br>"); //mail server 的歡迎語
strRet=Logon(tcpc,user,pass);
if(JudgeString(strRet)!="+OK"){
Response.Write("對不起，沒有這個使用者/密碼 不匹配");
return;
}
//使用者和密碼 匹配，下面開始 統計使用者信箱的資訊
//這個數組中包括了所有的返回資訊
arrRet=StaticMailBox(tcpc);
if(arrRet[0]!="+OK"){
Response.Write("出錯了！");
return;
}
Response.Write("當前的使用者<font color=blue>" + user + "</font>的信箱中共有<font color=red>" + arrRet[1] + "</font>封,共占<font color=red>" + arrRet[2] + "</font>Byte");
//收信
arrRet=PopMail(tcpc,4);
//判斷返回
if(arrRet[0]!="+OK"){
Response.Write("出錯了");
}
Response.Write("郵件日期：" + arrRet[1] + "\n<br>");
Response.Write("發信人：" + arrRet[2] + "\n<br>");
Response.Write("收信人：" + arrRet[3] + "\n<br>");
Response.Write("郵件主題：" + arrRet[4] + "\n<br>");
Response.Write("郵件內容：" + arrRet[5] + "\n<br>");
//關閉Socket連接
tcpc.Close();
}
else
{
Response.Write("Could not connect to server!");
}
}
String SendPopCmd(TCPClient tcpc,String strCmd){
Byte[] arrCmd;
String strRet;
StreamReader sr;
Stream s;
s=tcpc.GetStream();
strCmd = strCmd + "\r\n";
arrCmd= Encoding.Default.GetBytes(strCmd.ToCharArray());
s=tcpc.GetStream();
s.Write(arrCmd, 0, strCmd.Length);
sr = new StreamReader(tcpc.GetStream(), Encoding.Default);
strRet=sr.ReadLine();
return strRet;
}
String Logon(TCPClient tcpc,String user,String pass){
//這個函數的功能是 對 獲得連接的使用者 身份進行驗證
//發送 使用者代碼
String strRet;
strRet=SendPopCmd(tcpc,"user " + user);
strRet=SendPopCmd(tcpc,"pass " + pass);
return strRet;
}
String[] StaticMailBox(TCPClient tcpc){
String strRet;
strRet=SendPopCmd(tcpc,"stat");
if(JudgeString(strRet)!="+OK"){
return "-ERR -ERR".Split(" ".ToCharArray());
}
String[] arrRet=strRet.Split(" ".ToCharArray());
return arrRet;
}
String JudgeString(String strCheck){
if(strCheck.Substring(0,3)!="+OK"){
return "-ERR";
}
else
return "+OK";
}
String[] PopMail(TCPClient tcpc,int i){
String strRet;
bool strBody=false;
String[] arrRet =new String[10];
String[] arrTemp;
strRet=SendPopCmd(tcpc,"retr " + i.ToString());
if(JudgeString(strRet)!="+OK"){
//表示沒有這個信件 或者 其他的錯誤
return "-ERR -ERR".Split(" ".ToCharArray());
}
StreamReader sr;
sr = new StreamReader(tcpc.GetStream(), Encoding.Default);
Response.Write("\n<BR>");
Response.Write("<font color=red>\n<BR>");
while (sr.Peek()!=46)
{
//呵呵，不知道 為什麼 非要是 46 才可以！
strRet=sr.ReadLine();
arrTemp=strRet.Split(":".ToCharArray());
if(strRet=="")
strBody=true; //現在開始接收 Body 的資訊
if(arrTemp[0]=="Date"){
arrRet[1]=arrTemp[1]; //信件的發送日期
}
if(arrTemp[0]=="From")
arrRet[2]=arrTemp[1]; //發信人
if(arrTemp[0]=="To")
arrRet[3]=arrTemp[1]; //收信人
if(arrTemp[0]=="Subject")
arrRet[4]=arrTemp[1]; //主題
if(strBody){
arrRet[5]=arrRet[5] + strRet + "\n";
}
}
arrRet[0]="+OK";
return arrRet;
}
</script>
好了大家通過這個程式，首先可以瞭解到pop(Post Ofice Protocal)協議，其次可以加深對asp.net的socket 程式的
理解，還可以通過這個程式接收ISP提供的沒有Web方式收取郵件的程式對ISP的信箱進行管理。這個程式主要是對asp.net
操作pop伺服器進行編程，加上時間倉促，所以很多地方都直接用了Response.Write("")這樣的語句，我的意思是這篇文章
只是簡單的知識講解，大家最終具體應用的時候，肯定是要另外最佳化這段程式的！那邊有人扔磚頭了：這個豆腐怎麼這麼懶：）
