发邮件的asp(CDONTS.NewMail)(5)


            <tr>
              <td class="unnamed1"><font color="#0000FF">定酒店:</font></td>
              <td><font size="2" color="#0000FF">
                <input name=定酒店 id="定酒店" value="请输入详细内容">
              </font></td>
            </tr>
            <tr>
              <td colspan=2>
                <div align=center><font size="2" color="#0000FF">
                  <input name=Submit type=submit value=确认>
                  <input name=reset type=reset value=取消>
              </font> </div></td>
            </tr>
          </tbody>
        </table>
        <p> </p>
    </form></td>
  </tr>
</table>
</body>
</html>

sendmail.asp
复制代码 代码如下:

<%
  function SendMail(mailTo,mailFrom,title,content)
'    on error resume next
    dim objCDOMail
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    With objCDOMail
      .From =mailFrom
      .To =mailTo
      .Subject =title
      .Body =content
      .BodyFormat =0
      .MailFormat =0
      .Send
    End With
    Set objCDOMail = Nothing

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3387.html