当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用EasyMailObject组件处理Exchange邮件源代码(6)

ASP
分享一段代码show.asp?id=26变成show/?26的形式
多域名一网站时如果返回最原来的域名
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
TSYS中生成静态页时溢出: ''CInt''
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
[原创]随机增加网站点击的一个不错的方法
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
反SPAM新思路—换Z-BLOG的验证码!
七步倒┈→专用asp后门
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
使用ASP实现网站的“目录树”管理的代码
ShowPage 显示“上一页 下一页”等信息的封装代码
[原创]站长感慨asp编程究竟何去何从
响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
[原创]asp下用实现模板加载的的几种方法总结
[原创]asp获取URL参数的几种方法分析总结
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
ASP程序中输出Excel文件实例一则
ASP应用中如何限制同一表单被多次提交

ASP 中的 用EasyMailObject组件处理Exchange邮件源代码(6)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 198 ::
收藏到网摘: n/a

  在ASP中用EasyMailObject处理Exchange邮件源代码---发送邮件的界面(sendmail1.asp)

<%@ LANGUAGE="VBSCRIPT" %>
<%
'*************************************

'这个文件是发送邮件或回复邮件的界面
'作者:awayeah
'邮箱:[email protected]

'*************************************


'取得回信地址
replyaddr=Request.QueryString("addr")
'取得要回邮件的主题
replysubj=replace(Request.QueryString("subject"),"_",space(1))
%>
<script language="vbscript">
sub CmdSubmit_onClick()
if trim(frmsendmail.receive1.value)="" then
alert ("尚未输入收件人地址,请输入!")
frmsendmail.receive1.focus
else
frmsendmail.submit
end if
end sub
</script>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>发邮件</title>
</head>
<body bgcolor="#008080" text="#00FFFF">
<div span=1 align=center>
<form method="POST" action="p_sendmail.asp" name="frmsendmail">
  <table border="1" width="455" cellspacing="1" bgcolor="#800080">
    <tr>
      <td width="92">
        <p align="right"><b>发 件 人</b></p>
      </td>
      <td width="347"><input type="text" name="from" size="40"></td>
    </tr>
    <tr>
      <td width="92"><b>发件人邮箱</b></td>
      <td width="347"><input type="text" name="fromaddr" size="40"></td>
    </tr>
  </table>
  <table border="1" width="455" height="56" bgcolor="#000080">
    <tr>
      <td width="52" height="23">
        <p align="center"><b>收件人</b></p>
      </td>
      <td width="387" height="23">
        <p align="left"><input type="text" name="receive1" value="<%=replyaddr%>" size="40"></p>
      </td>
    </tr>
    <tr>
      <td width="52" height="23">
        <p align="center"><b>主 题</b></p>
      </td>
      <td width="387" height="23">
        <p align="left"><input type="text" name="subject" value="<%=replysubj%>" size="40"></p>
      </td>
    </tr>
    <tr>
      <td width="445" colspan="2" heigh