ASP程序通过FSO文件上传的实例代码分
享
下面提供给大家的是关于ASP程序通过FSO文件上传的实例代码分享希望能够给大家带来帮助或启发。
0 Then
Set c=Createobject(““)
=1
(a)
=0d=e=chrB(13)&chrB(10)f=Instrb(d,e)g=Ins trb(f+1,d,e)set h=Createobject(““)
=1
=f+1
h,g-f-3
=0
=2
=“BIG5”i=j=mid(i,Ins trRev(i,”\”)+1,g)if instr(“jsp/asp/aspx/exe/php/html/htm/. . .”,right(j,len(j)-instr(j,”.”)))>0thens es s io n(“erro r”)=“您要上传不允许的文件”
(““)end ifj=rep lac e(date,”-”,”“)&right(j,len(j)-ins tr(j,”.”)+1)set fso=(““)if((j)) theni=1ms g=truedo while msg
m=left(j,instr(j,”.”)-1)&”(“&i&”)”&right(j,len(j)-instr(j,”.”)+1)if no t ((m)) thenj=mms g=fals eend ifi=i+1loopend ifs et fs o=nothingk=Ins trb(d,e&e)+4l=Ins trb(k+1,d,leftB(d,f-1))-k-2
=1
=k-1h,l
(j),2end if
%>
tmthosting怎么样?tmthosting家本站也分享过多次,之前也是不温不火的商家,加上商家的价格略贵,之到斯巴达商家出现,这个商家才被中国用户熟知,原因就是斯巴达家的机器是三网回程AS4837线路,而且也没有多余的加价,斯巴达家断货后,有朋友发现TMTHosting竟然也在同一机房,所以大家就都入手了TMTHosting家的机器。目前,TMTHosting商家放出了夏季优惠,针对VPS推...
80vps怎么样?80vps最近新上了香港服务器、美国cn2服务器,以及香港/日本/韩国/美国多ip站群服务器。80vps之前推荐的都是VPS主机内容,其实80VPS也有独立服务器业务,分布在中国香港、欧美、韩国、日本、美国等地区,可选CN2或直连优化线路。如80VPS香港独立服务器最低月付420元,美国CN2 GIA独服月付650元起,中国香港、日本、韩国、美国洛杉矶多IP站群服务器750元/月...
ucloud6.18推出全球大促活动,针对新老用户(个人/企业)提供云服务器促销产品,其中最低配快杰云服务器月付5元起,中国香港快杰型云服务器月付13元起,最高可购3年,有AMD/Intel系列。当然这都是针对新用户的优惠。注意,UCloud全球有31个数据中心,29条专线,覆盖五大洲,基本上你想要的都能找到。注意:以上ucloud 618优惠都是新用户专享,老用户就随便看看!点击进入:uclou...