开发者社区> 问答> 正文

文件上传组件

已解决

展开
收起
2018-02-12 21:52:23 766 0
1 条回答
写回答
取消 提交回答
  • 采纳回答

    详细解答可以参考官方帮助文档

    邮件组件CDONTS 功能简介


    ASP本身没有发送邮件的能力,但如果希望用ASP来发送E-MAIL(例如:你有一个消息,希望在此页被访问后自动将该消息E-MAIL给留言的上网者),那么你需要安装一个ASP组件。并借助这些组件来帮你实现邮件的自动发送、回复等工作,我们可以提供CDONTS组件。
    CDONTS.DLL 在注册之后,可以使用ASP发送E-MAIL,来实现动态的EMAIL通信,这经常在定单与电子商务中应用。
    在IIS5下,可以使用CDONTS。它容易使用的并且性能良好。
    步骤如下:
    1、检查你是否安装了SMTP服务。OPTION PACK 缺省安装时是包括SMTP服务的。SMTP服务安装后,在 的system32目下会有一个文件叫CDONTS.DLL。
    2、你可以用下面的简单脚本通过ASP发送E-MAIL  
    set newmail=server.CreateObject("cdonts.newmail")
    newmail.From="webmaster@www.yourdomain.com"
    newmail.To ="test@test.com"
    newmail.Subject="主题"
    newmail.Body = "asp mail"
    newmail.BodyFormat =0
    newmail.MailFormat =0
    newmail.Send
      
    response.write "send ok!"
    set newmail=nothing
    3、发送附件
    CDONTS 的 一 个 常 用 特 性 是 用 来 在 E-MAIL 中 发 送 附 件 。 代 码 也 不 难 写 。
    CDONTS发信组件注意事项
    由于万网
    企业邮局具有反垃圾邮件,包括防伪装邮件功能,因此可能根据发信人来源地址屏蔽了您的网站邮件投递。建议您将发信脚本中发件人地址(From参数)设置为:xxx@www.yourdomain.com,这样可以保证正常投递邮件。


    文件上传组件Upload功能简介

    本Upload组件目前只支持单文件上传,可以为任意扩展名,可以在上传后保存名字。上传文件的最大大小为1M,需要在程序中指定上传目录并由我们工程师添加权限。支持上传文件名修改和使用变量文件名。

    1、 上传界面

     产品名称:

     上传产品图片 (只能上传gif,jpg文件)



     



    2、 上传程序testup.asp
    <%
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    VirPath="productimg" 'productimg 是你的站点上的一个存储HTTP上传文件的目录
    RealPath=Server.MapPath(VirPath) & "\"
    Set objupload=Server.CreateObject("hichinafso.Upload")
    objupload.Maxsize=1000000 '设定最大上传值
    objupload.Path=RealPath '设定上传的目录
    objupload.Upload '调用UPload方法,获取表单中提交的所有数据 
    filevalue=objUpload.Form("FileName") '获取文件名
    filename=objUpload.filename("FileName")
    fieldvalue=objUpload.Form("fieldname") '取得fieldname表单项的值
    'response.write filename
    'response.end

    if trim(filename)="" then
    filename="no_pro_img.gif" '指向一个“无产品”的图片
    else
    extendname=right(filename,3)
    if extendname="jpg" or extendname="gif" then
    abcd=1
    else
    response.write "错误!请输入图片的扩展名gif或jpg"
    response.end
    end if
    varfilename=FileName
    objUpload.Save "FileName",2,varfilename
    ' 这里使用单独保存的方法:
    ' "FileName" 是HTML的表单上传FILE名称,本例就是
    ' 2代表覆盖,如果在SAVE之前,先调用文件组件判断此目录下是否有同名文件则不会出现覆盖' 现象,或者保证新文件名为唯一标识
    ' "aaFAN.gif" 是我们上传后修改的文件名。

    'objUpload.SaveAll
    end if

    end if
    response.write "上传文件成功!

    " & "你上传的产品名称为:" & fieldvalue & " 
    文件名为:" & filename & ""
    %>


    如果问题还未能解决,请联系售后技术支持

          



    2018-02-15 11:39:34
    赞同 展开评论 打赏
问答地址:
问答排行榜
最热
最新

相关电子书

更多
低代码开发师(初级)实战教程 立即下载
冬季实战营第三期:MySQL数据库进阶实战 立即下载
阿里巴巴DevOps 最佳实践手册 立即下载