📄 sendmail2.txt

📁 用纯ＡＳＰ代码实现图片上传并存入数据库中

💻 TXT

字号:


请支持我们站点以网养网，点击我们的广告，谢谢大家！  


好东西，cdo发送email的源程序.......    


--------------------------------------------------------------------------------

 【天啦】 于 00-4-21 16:13:55 加贴在 Joy ASP ↑：

<%
SUB sendMail( fromWho, toWho, Subject, Body )
     DIM myMail
    SET myMail = Server.CreateObject("CDONTS.Newmail")
    myMail.From = fromWho
    myMail.To = toWho
    myMail.Subject = Subject
    myMail.Body = Body
    myMail.Send
    SET myMail = Nothing
END SUB

fromWho = TRIM( Request.Form( "fromWho" ) )
toWho = TRIM( Request.Form( "toWho" ) ) 
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body" ) )

IF toWho <> "" THEN
     sendMail fromWho, toWho, Subject, Body
END IF
%>
<HTML>
<HEAD><TITLE>Email Form</TITLE></HEAD>
<BODY BGCOLOR="#eeeeee">

<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<BR>TO: <INPUT NAME="toWho" TYPE="text" SIZE=40>
<BR>FROM: <INPUT NAME="fromWho" TYPE="text" SIZE=40>
<BR>SUBJECT: <INPUT NAME="subject" TYPE="text" SIZE=40>
<BR><TEXTAREA NAME="Body" COLS=40 ROWS=5></TEXTAREA>
<BR><INPUT TYPE="SUBMIT" VALUE="Send Mail">
</FORM>

</BODY>
</HTML>





--------------------------------------------------------------------------------

贴子转发：

 
E-mail地址：


--------------------------------------------------------------------------------

相关主题：


 好东西，cdo发送email的源程序.......  - 【天啦】 00-4-21 16:13:55 [ID:221676 点击:31] (952 Bytes) (1)  
 我一定好好学习ASP,谢谢天啦,谢谢......(激动得哭了) <无内容> - 【lhongbo】 00-4-21 16:26:55 [ID:221701 点击:3] (0 Bytes) (1)  


--------------------------------------------------------------------------------

回复：

    
版 面：Joy ASP ↑  *为必填项目 第一次发言请去注册>> 怎样使用UBBCode>> UBB Code Editor>> NEW!
姓 名：* 密码： * 密码遗忘请点这里>>
Email：
主 题：*

表 情：
             
             

内 容（最多16KB） 使用签名 设置签名>>   


链接地址： 
链接标题： 
链接图片：

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -