凉微雨 2021-10-13 14:08 采纳率: 0%
浏览 5
已结题

有没有人有aspSmartUpload.zip的资源包啊,求分享

有没有人有aspSmartUpload.zip的资源包啊,求分享,最近遇到一个用aspSmartUpload组件上传的程序,是在解决不到,不知道是不是缼组件的问题

<%@LANGUAGE="VBSCRIPT"%> 
<%
On error resume next
Dim mysmartupload
Dim intcount
Dim FILE
intcount=0

Set mysmartupload = Server.CreateObject("aspSmartUpload.SmartUpload")
Response.write("<br>"& "" & " ==============.<BR>")
mysmartupload.allowedfileslist="Jpg,bmp,pdf"
mysmartupload.Maxfilesize=700000
mysmartupload.Upload
'intcount = mysmartupload.save("/car/photos")
For each file In mysmartupload.files
    if not file.ismissing then
    file.saveas("Photos/" & file.fileName)
'if err then
'
'else 
'Response.write("<b>Wrong selection: </b>"&err.description)
'then 
    Response.write("<b><font color=#000066 face=Verdana, Arial, Helvetica, sans-serif size=2>File Name= " & file.fileName & "<BR>")
    Response.write("size= "& file.size & " bytes <BR></b>")
    intcount = intcount + 1
    end if
Next

Response.write("<br>"& mysmartupload.files.count & " files could be upload.<BR>")
Response.write("<b>" & intcount & "   file(s) uploaded<br><br><br></font>")
%>


  • 写回答

0条回答 默认 最新

    报告相同问题?

    问题事件

    • 系统已结题 10月21日
    • 创建了问题 10月13日

    悬赏问题

    • ¥15 有没有熟悉自动化点胶设备,有个加密狗,想复制一份软件到另个设备
    • ¥15 关于unity角色打包ab问题
    • ¥20 只有一个C盘,磁盘管理分区
    • ¥15 PVE8.2版本ceph的监控项状态stopped不能销毁
    • ¥15 如何加快视频观看速度?
    • ¥15 HP P2000存储 硬盘损坏两块如何更换
    • ¥15 c#的richTextBox控件有更好的替代品吗
    • ¥15 ntrip协议发送失败
    • ¥15 关于#c语言#的问题:c语言main函数括弧里为什么有时候加void
    • ¥15 如何利用R语言对语料库之间数据差异性分析