上传程序testup.asp

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

邮件组件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、 上传界面

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 & ""
%>

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