求:Asp写的Email系统

三杯倒 2001-12-13 03:53:34

如标题,急急急.

...全文

157 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

三杯倒 2001-12-20

打赏
举报

给分

三杯倒 2001-12-17

打赏
举报

看了讨论,收益非浅
但是,有没有源代码下载

lsaturn 2001-12-16

打赏
举报

你用dreamweaverultra的话，可以下载插件，十分好用，到macromedia的官方网站去下

julyclyde 2001-12-16

打赏
举报

COM组件不是哪都能用的！很多小客户用不起自己的主机，需要租的。只有满足客户需要才算高手。

oldgameman 2001-12-15

打赏
举报

CDONTS对象有两个顶层对象，一个是NewMail对象，一个是Session对象。前者用于将指定的信息发送到目标信箱中。
后者主要用于访问收件箱和发件箱和绑定用户信箱所需要的信息。
其实，目前CDONTS只是测试版，还在发展中，拭目以待。

oldgameman 2001-12-15

打赏
举报

TO:julyclyde(Clyde):使用CDONTS.SESSION就是高手了？用VB或者C++编写COM中间件，将上面代码包含在事务处理的COM代码里，建立接口和外界通信，如果用C++的话，再编写多线程组件，使用缓冲池。能写出来的话，起码ASP+COM算入门了。

三杯倒 2001-12-15

打赏
举报

看不懂,有没有源代码下载
一定给分

greatree 2001-12-14

打赏
举报

你这是假邮箱

三杯倒 2001-12-14

打赏
举报

看不懂,有没有源代码下载

wzy9645 2001-12-14

打赏
举报

我也写了！
问题出在用form的 file找到附件再发送的路径怎么处理？
例：
mymail.Attachfile request.form("file")
这样写好象是在服务端找文件了！

julyclyde 2001-12-14

打赏
举报

终于有人用CDONTS.SESSION了。高手就是高手！

julyclyde 2001-12-14

打赏
举报

终于有人用CDONTS.SESSION了。高手就是高手！

coollele 2001-12-13

打赏
举报

<%@ Language=VBScript %>
<% option explicit %>

<HTML>
<HEAD>
<title><% =Request.QueryString ("username")%>"s inbox</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim objinbox
dim colmsgs
dim strusername
dim struderemail
dim objcursession

strusername=Request.QueryString ("username")
struseremail=Request.QueryString ("useremail")
Response.Write strusername
Response.Write struseremail
set objcursession= createobject("cdonts.session")
objcursession.LogonSMTP (strusername,struseremail)
set session("cursession")=objcursession
set objinbox =objcursession.Inbox
set colmsgs =objinbox.messages
Response.Write "welcome,"&session("username")&".you have "& colmsgs.count &" messages in your inbox. "

if (colmsgs.count > 0) then

%>
<table>
<tr>
<td>importance</td>
<td>from</td>
<td>subject</td>
<td>sent</td>
</tr>

<%
dim intloop
for intloop =1 to colmsgs.count
%>
<tr>
<td align=middle> <% showimportanceicon(colmsgs(intloop).importance)%></td>
<td><% =colmsgs(intloop.sender)%></td>
<td><a herf="viewmessage.asp?msgid=<%=intloop%>"><% = colmsgs(intloop.subject)%></a></td>
<td><% =colmsgs(intloop).timesent%></td>
</tr>
<%
next
end if

%>
</table>
 

</BODY>
</HTML>
<%
sub showimportanceicon(intimpvalue)
dim striconfile
select case intimpvalue
case cdonormal
striconfile = "nor.gif"
case cdohigh
striconfile ="high.gif"
case cdolow
striconfile = "low.gif"
end select
Response.Write ("<img src=.\images\"&striconfile&">")
end sub
%>

三杯倒 2001-12-13