html无组件上传,无组件上传文件，一个函数搞定-ASP教程,组件开发

淡淡的烟草味﹌ 2022-10-06 10:50 297阅读 0赞

本函数是用“化境asp无组件上传程序2.0”上传文件。

核心函数：

==============================

函数名：upfile

作用: 使用“化境上传组件”上传文件到服务器上

参数：　file1 文件对象

savepath 文件要保存的相对路径,如"../"上一级上录，""同目录

maxsize 允许上传文件的最大值,单位kb.为0不限大小.

savetype 允许上传文件的类型，0不限制,限制的格式.如.jpg|.bmp|.zip

返回值：返回上传信息，也可自己根据须要设定返回值

前提：set upload=new upload\_5xsoft 建立上传对象

set file1=upload.file("file1") 生成一个文件对象

designer:suercool

function upfile(file1,savepath,maxsize,savetype)

if file1.filename="" and file1.filesize<=0 then

upfile=""

exit function

end if

if maxsize<>"0" and file1.filesize>clng(maxsize)\*1024 then

upfile=""

exit function

end if

dim filename,filetype

filename=file1.filename

filetype=getfiletype(filename)

if savetype<>"0" then

dim arrtype,i,foundtype

arrtype=split(savetype,"|")

foundtype=false

for i = 0 to ubound(arrtype)

if lcase(arrtype(i))=filetype then

foundtype=true

exit for

end if

next

if not foundtype then

upfile=""

exit function

end if

end if

randomize()

filepath=savepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd\*9999)&filetype

file1.saveas server.mappath(filepath)

if err.description<>"" then

upfile=""

err.clear

else

upfile=""

end if

set file1=nothing

end function

===========

函数名：getfiletype

作用: 得到文件的类型

参数：　filename文件名

返回值：文件类型,无类型返回""

designer:suercool

function getfiletype(filename)

dim i

for i=(len(filename)-1) to 1 step -1

if mid(filename,i,1)="." then

getfiletype=lcase(mid(filename,i))

exit function

end if

next

getfile=""

end function

%>

实例(upfile3.asp)：

upfile

if upload.form("subupfile")="上传" then

set file1=upload.file("file1")

dim re

savetype=".jpg|.htm|.bmp|"

re=upfile(file1,"","0",savetype)

response.write re

end if

%>

发表评论取消回复

表情：

评论列表（有 0 条评论，297人围观）

还没有评论，来说两句吧...

相关阅读

相关 159.用ASP实现无组件上传/下载文件

'==================================================================-- ' ' 用

浅浅的花香味﹌/ 2024年02月19日 19:16/ 0 赞/ 2 阅读

相关附件上传组件封装

移动端开发时有个文件上传的功能，觉得找插件再覆盖他的样式也挺麻烦的，就自己造个轮子吧，效果如下： ![1109025-20190828165209207-829853715.

痛定思痛。/ 2023年08月17日 17:07/ 0 赞/ 99 阅读

相关 .Net Core上传组件_.Net Core图片上传处理组件

一、.Net Core上传组件Uploader简介 1.前端jquery框架封装 2.后端，支持Asp.Net 和 Asp.Net Core 矿建 3.数据传输模式支持：

矫情吗；*/ 2022年10月24日 15:26/ 0 赞/ 257 阅读

相关 php 无组件上传代码,无组件上传文件－EZA.Upload（强烈推荐！！）

EZA 是千一网络开发的 ASP 开发框架，其中 EZA.Upload 是专门处理文件上传的，支持附件和文字同时上传，支持文件大小、文件扩展名限定，代码使用非常简单方便，兼容于

傷城~/ 2022年10月21日 12:55/ 0 赞/ 502 阅读

相关 html无组件上传,无组件上传文件，一个函数搞定-ASP教程,组件开发

本函数是用“化境asp无组件上传程序2.0”上传文件。核心函数： ============================== 函数名：upfile 作用: 使用“化

淡淡的烟草味﹌/ 2022年10月06日 10:50/ 0 赞/ 298 阅读

相关 html 无组件上传图片,javascript无组件上传图片类

javascript无组件上传图片类首先声明本代码是转自其他网站的，版权应该归属其所有者，贴出来的目的是为了和大家一起探讨、共同学习。下面是代码： default.asp

野性酷女/ 2022年10月06日 07:52/ 0 赞/ 173 阅读

相关 Web Uploader上传组件

Web Uploader上传组件问题记录。 > 1、项目依赖jQuery > 2、初始化配置项实现默认功能创建Web Uploader实例，例如：

妖狐艹你老母/ 2022年06月17日 09:26/ 0 赞/ 148 阅读

相关 KindEditor上传组件在modal中点击无响应

今天在modal中加上了KindEditor上传组件，组件初始化已成功，但是点击“点击上传附件”按钮无响应，不弹出上传窗口。尝试了百度提供的各种诸如修改z-index值、去掉m

柔光的暖阳◎/ 2022年05月23日 08:59/ 0 赞/ 152 阅读

相关 uniapp 上传图片文件组件

<template> <view> <view @click="uploadClick" class="picBox">

迈不过友情╰/ 2021年09月19日 04:08/ 0 赞/ 667 阅读

相关前端整合上传组件

一组件模板在Info.vue中添加上传组件模板  <el-form-item label="课程封面">

客官°小女子只卖身不卖艺/ 2021年07月24日 11:00/ 0 赞/ 347 阅读