asp文件上传

最新推荐文章于 2023-08-20 12:30:47 发布

mmtvip

最新推荐文章于 2023-08-20 12:30:47 发布

阅读量1.6k

点赞数 2

文章标签：大数据 asp.net

本文链接：https://blog.csdn.net/mmtvip/article/details/125746781

版权

asp一直以来备受小站长们的青睐，优于其使用简单，普及程度高，便于迅速建站而备受欢迎。但是asp文件上传一直没有得到很好的解决，尤其是诸多小站长不知如何用asp上传文件。网上四处搜寻上传组件，不是使用不方便，就是病毒木马漏洞一大堆，搞得小站长们郁闷无比。今天免费分享一个小冰冰原创的霸道给力，操作简单方便，便于灵活部署的asp上传文件程序，希望对广大asp爱好者以及asp小站长们有帮助。

以下内容可以单独保存为upload.asp，要在那个页面使用就直接引入。

例如：

<%
'小冰冰asp文件上传插件
'requestFormData简称rfd
function myleftb(mydata,datasize)'mylefb函数替代leftb,操作二进制流更安全。
   dim ad
   set ad=server.createobject("adodb.stream")
       ad.type=1
       ad.mode=3
       ad.open
       ad.write mydata
       ad.position=0
       myleftb=ad.read(datasize)
       ad.close
end function

function myrightb(mydata,datasize)'myrightb替代rightb
   dim ad
   set ad=server.createobject("adodb.stream")
       ad.type=1
       ad.mode=3
       ad.open
       ad.write mydata
       ad.position=lenb(mydata)-datasize
       myrightb=ad.read(datasize)
       ad.close
end function

'查询字符第n词出现的位置
function scount(mydata,str,n)
   dim datastart,m
   datastart=1
   m=0
   do while instr(datastart,mydata,str)>0
       m=m+1
       if m=n then
           scount=instr(datastart,mydata,str)
           exit do
           exit function
       end if
       datastart=instr(datastart,mydata,str)+len(str)
   loop
   if m<n then
       scount=0
   end if
end function

'截取字节
function cutout(mydata,datastart,datasize)
   dim ldata,rdata
   ldata=myleftb(mydata,datastart-1)
   rdata=myrightb(mydata,lenb(mydata)-lenb(ldata))
   cutout=myleftb(rdata,datasize)
end function

'字节保存为文件
sub btf(