Aspupload组件使用实例代码

3、onCloseMe(){window.parent.close();returntrue;}<%Else'Notfinishedyet%>

4、">body,td{font-family:Tahoma;font-size:8pt}td.spread{font-size:6pt;line-height:6pt}td.brick{font-size:6pt;height:12px}<%=bar_content%><%EndIf%>fileconfig.asp<%Di

5、mUploadFilePath,UploadLimitSize,NotAllowfileext,BrowerFilePathUploadFilePath=year(now)&"_"&month(now)&"_"&day(now)&"/"'文件上传路径BrowerFilePath="/"UploadLimitSize=1024*50'50M'最大上传文件大小，单位为KNotAllowfileext="asp

6、cer

7、cdx

8、asa

9、htw

10、ida

11、idq

12、shtm

13、shtml

14、stm

15、printer

16、cgi

17、php

18、php4

19、cfm

20、aspx"'

21、不可以上传的文件类型functionCanUpload(Fileurl)Fileurl=lcase("

22、"&Mid(Fileurl,InstrRev(Fileurl,".")+1)&"

23、")NotAllowfileextstr="

24、"&NotAllowfileext&"

25、"ifinstr(NotAllowfileextstr,Fileurl)>0thenCanUpload=falseelseCanUpload=trueendifendfunctionFunctionCreateFolder(Filepath)Dimfso,fonerrorres

26、umenextSetfso=CreateObject("Scripting.FileSystemObject")ifnotfso.FolderExists(Filepath)thenSetf=fso.CreateFolder(Filepath)setf=Nothingendifsetfso=NothingEndFunction%>framebar.asp<%@EnableSessionState=False%><%Response.Expires=-1%>

27、xt/css'>td{font-family:Tahoma;font-size:8pt}