在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)
新客网 XKER.COM 2003-04-20 来源： 收藏本文
发送邮件的界面(sendmail1.asp)
<%@ LANGUAGE="VBSCRIPT" %>
<%
'*************************************
'这个文件是发送邮件或回复邮件的界面
'作者：awayeah
'邮箱：awayeah@163.net
'*************************************
'取得回信地址
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" height="1">
<table border="0" width="100%" height="184" cellspacing="0" cellpadding="0">
<tr>
<td width="8%" height="178">
<p align="center"><b>内</b>
<p align="center">
<p align="center"><b>容</b>
<p> </td>
<td width="92%" height="178"><textarea rows="10" name="bodytext" value="<%=bodytext%>" cols="55"></textarea></td>
</tr>
</table>
</td>
<tr> <td width="52">
<p align="center"><b>附 件</b></p>
</td> <td width="387"><input type="file" name="att" size="20"></td></tr>
</table>
<p align="center"><input type="button" value="发送" name="cmdSubmit"> <input type="reset" value="全部重写" name="B2"></p>
</form>
</div>
</body>
</html>
<%@ LANGUAGE="VBSCRIPT" %>
<%
'*************************************
'这个文件是发送邮件或回复邮件的界面
'作者：awayeah
'邮箱：awayeah@163.net
'*************************************
'取得回信地址
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" height="1">
<table border="0" width="100%" height="184" cellspacing="0" cellpadding="0">
<tr>
<td width="8%" height="178">
<p align="center"><b>内</b>
<p align="center">
<p align="center"><b>容</b>
<p> </td>
<td width="92%" height="178"><textarea rows="10" name="bodytext" value="<%=bodytext%>" cols="55"></textarea></td>
</tr>
</table>
</td>
<tr> <td width="52">
<p align="center"><b>附 件</b></p>
</td> <td width="387"><input type="file" name="att" size="20"></td></tr>
</table>
<p align="center"><input type="button" value="发送" name="cmdSubmit"> <input type="reset" value="全部重写" name="B2"></p>
</form>
</div>
</body>
</html>
最新相关文章- ·ASP+ACCESS数据库中文乱码问题解决
- ·编程实例 字母+数字验证码程序
- ·ASP连接数据库错误解决办法新法
- ·初学:ASP内建对象Response
- ·ASP网站Server object error的解决办法
- ·ASP技巧：让Len,Left,Right函数识别中文
- ·把网页中的电话号码生成图片的ASP程序
- ·ASP如何实现IE地址栏参数的判断
- ·细化解析：ASP连接11种数据库语法集锦
- ·ASP实现网页打开任何类型文件都保存
- ·ASP代码直接增加、删除ACCESS表和字段
- ·ASP：判断访问是否来自搜索引擎的函数
- ·ASP技巧：禁用页面缓存的五种方法
- ·学习ASP关于与变量子类型相关的函数
- ·ASP开发中的(VBScript)类基础学习
- ·ASP访问Excel文件
发表评论
评论内容：不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。
阅读排行
- 使用bcdedit 更改windows vista 的启动顺序
- Session丢失问题解决方案
- NTFS文件系统的安全属性
- 在DataGridView中获得DataGridViewCheckBoxColumn
- asp http 500 - 内部服务器错误 请求的资源在使用
- windows内核初窥(一)------体系结构
- WIN32下DELPHI中的多线程【线程的调度】(二)
- 一种Windows下线程同步的实现方法
- windows内核初窥（二）-----系统机制
- WIN32下DELPHI中的多线程【变量存储】(三)
- 【最新】IP 地址分配表(14)
- 关于DataGridView中如何接收处于编辑状态下的当前
- Microsoft Internet Transfer Control 使用简介（
- [小技巧]winfrom使用多线程
- 八大法则杜绝ASP网站漏洞入侵
随机推荐
- ASP编程入门进阶（十四）：Browser & Linking
- ASP.NET中的Code Behind技术
- JScript 方法 - getUTCHours 方法
- 天气预报的小偷,可以偷到全国24小时城市天气预报.
- 在DataGridView中获得DataGridViewCheckBoxColumn
- window.open() 生成弹出窗口的 参数列表
- 用ASP与ADO查询Web数据库
- 利用ASP生成EXECL文档（修正）
- ASP网站漏洞解析及黑客入侵防范方法
- Active Server Page (ASP) 常見問題
- 防止SQL注入的函数。
- 自动生成插入，修改的SQL
- asp中利用数组实现数据库记录的批量录入方法
- ASP学习摘要
- Visual InterDev的概念
实用信息推荐