给大家ASP程序通过FSO文件上传的实例代码分享_0

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

%>