Question

怎样用一个.asp文件或.js文件将HTML页表单内容用提交按钮提交到指定的邮箱或服务器？求代码，速度，加分!

Answer 1

1、安装jmail组件

2、

<form method="post" name="form1" action="?Action=Send">
<input type="text" name="Content" value="发送内容">
<input type="submit" value="发送">
</form>
<%
dim Action,Title
Action=request("Action")
Content=request("Content")
if Action="Send" then
    '''''配置邮件信息
    SiteName="网站名称"
    WebmasterEmail="发送邮件的邮箱地址aaa#163.com"
    MailServer="用来送邮件的SMTP比如：smtp.163.com"
    MailServerUserName="用户名"
    MailServerPassWord="密码"
    MailDomain="邮箱登陆域名比如：mail.163.com"
    call SendMail(WebMasterEmail,SiteName,SiteName,Content,SiteName,WebMasterEmail,3)
end if
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
    on error resume next
    Dim JMail
    Set JMail=Server.CreateObject("JMail.Message")
    if err then
        SendMail= "<br><li>没有安装JMail组件</li>"
        err.clear
        exit function
    end if
    JMail.Charset="gb2312"          '邮件编码
    JMail.silent=true
    JMail.ContentType = "text/html"     '邮件正文格式
    'JMail.ServerAddress=MailServer     '用来发送邮件的SMTP服务器
    '如果服务器需要SMTP身份验证则还需指定以下参数
    JMail.MailServerUserName = MailServerUserName    '登录用户名
    JMail.MailServerPassWord = MailServerPassword        '登录密码
    JMail.MailDomain = MailDomain       '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com
    JMail.AddRecipient MailtoAddress,MailtoName     '收信人
    JMail.Subject=Subject         '主题
    JMail.HMTLBody=MailBody       '邮件正文（HTML格式）
    JMail.Body=MailBody          '邮件正文（纯文本格式）
    JMail.FromName=FromName         '发信人姓名
    JMail.From = MailFrom         '发信人Email
    JMail.Priority=Priority              '邮件等级，1为加急，3为普通，5为低级
    JMail.Send(MailServer)
    SendMail =JMail.ErrorMessage
    JMail.Close
    Set JMail=nothing
end function
%>

追问

如果用JS做一个提交跳转怎么做呢？或者不用发到邮箱，发到一个服务器怎么做呢？谢谢了。