.NET下利用JMAIL组件来设计像163那样网页形式的邮件管理系

[天下龙王一家亲]

要利用JMAIL组件实现邮件的收发.我希望在我本机注册的用户之间可以实现邮件的收发之外,也可以在线进行发送,能不能利用SQL2000数据库和服务器来实现,网上大多利用JMAIL来进行发送的，有没接受的,有没有人做过的,求源码.

[天下龙王一家亲]

看来没人回答我，我想把下面的代码改为引用jmail组件怎么改？？
Dim objPOP3
Dim strBodyTxtURL
Dim strBodyHtmlURL
Dim strAttachURL
Dim strAttachFileName
Dim nAttachCount
Dim nMailCount
Dim nCurMail
Dim i
Dim strBody
Dim strFrom
Dim strSubject
Dim strDate
Dim strTo
Dim strCc
Dim arrString
Dim strUID
Dim lSize
Dim strEmailURL
Dim strHeaderURL
Dim strAttachForward

strAttachForward = ""
Set objPOP3= CreateObject("CMailCOM.POP3.1")
objPOP3.Login Session("User"), Session("Pass")
Session("LoginSuccess") = objPOP3.LoginSuccess

If Session("LoginSuccess") = 1 Then

objPOP3.GetMailData Request("indexOfMail")
If Left(objPOP3.LastResponse, 4) = "-ERR" Then
Response.Write objPOP3.LastResponse
'Response.Redirect "finbox.asp"
Response.End
End If


if not IsNumeric(Request("MailCount")) then response.Redirect "finbox.asp"
nMailCount = CInt(Request("MailCount"))
if not IsNumeric(Request("indexOfMail")) then response.Redirect "finbox.asp"
nCurMail = CInt(Request("indexOfMail"))

strBody = objPOP3.Body
strFrom = objPOP3.From
strTo = objPOP3.To
strCc = objPOP3.Cc
strSubject = objPOP3.Subject
strDate = objPOP3.Date
strUID = objPOP3.UID
lSize = objPOP3.Size
strEmailURL = objPOP3.EmailURL
strBodyHtmlURL = objPOP3.BodyHtmlURL
strHeaderURL = objPOP3.HeaderURL

strBody = Autolink(strBody)
strBody = Replace(strBody, vbNewLine, "<Br>")
strSubject = HTMLEncode(strSubject)
'strFrom = HTMLEncode(strFrom)
strTo = HTMLEncode(strTo)
strCc = HTMLEncode(strCc)


strBodyTxtURL = objPOP3.BodyTxtURL
If Len(strBodyTxtURL) > 0 Then
strBodyTxtURL = strBodyTxtURL
End If

strBodyHtmlURL = objPOP3.BodyHtmlURL
If Len(strBodyHtmlURL) > 0 Then
strBodyHtmlURL = strBodyHtmlURL
End If

nAttachCount = objPOP3.AttachCount
%>