ASP批量上传图片下载_Word模板_17

is_842972

暂无简介

ASP批量上传图片文件1. function checkRowsLimit() { var RowLimit = 20; var len=document.getElementById('filearea').rows.length; if(len==rowLimit) { alert('一次只能添加20个图片!'); return false; } else { return true; } } function addNewRow() { var obj=document.getElementById...

文件1.

ASP图片批量上传

注:上传格式为.jpg,png,gif,bmp,jpeg

1、

[添加]

文件二 <% '===================================== '此代码功能强大,经改动后可以用于各种图片上传及产品图片上传 '技术支持:QQ 757187785 '===================================== %> <% function getex(filename) '取图片后缀名 getex = right(filename,(len(filename)-InStr(filename,"."))) End function dim upload,file,formName,formPath,fname,getfilename set upload=new upload_5xsoft formPath=upload.form("filepath") '目前是当前路径可以改成 "./123/" for each formName in upload.objFile set file=upload.file(formName) '上传图片格式 if LCase(getex(file.filename))="jpg" or LCase(getex(file.filename))="png" or LCase(getex(file.filename))="gif" or LCase(getex(file.filename))="bmp" or LCase(getex(file.filename))="jpeg" then if file.FileSize<=0 then call ShowError("无效文件!") end if if file.FileSize>0 then fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") fname = fname&Int((right(fname,4) - 0 + 1) * Rnd + 0) file.SaveAs Server.mappath(formPath&fname&"."&getex(file.filename)) '保存 end if set file=nothing i=i+1 else response.Write("") end if next response.Write("") %> 文件三

本文档为【ASP批量上传图片】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。

ASP批量上传图片

热门搜索

历史搜索