Aspupload组件使用实例代码VIP专享

Aspupload×é¼þʹÓÃʵÀý´úÂë.txt»éÒöÊǼüÅÌ£¬Ì«¶àÖÈÐòºÍ¹æÔò£»°®ÇéÊÇÊó±ê£¬Ò»µã¾Íͨ¡£ÄÐÈË×Ô±ÈÖ÷»ú£¬ÄÚ´æ×îÖØÒª£»Å®È˺ÃËÆÏÔʾÆ÷£¬Ò»Çж¼¿´µÃ³öÀ´¡£bar.asp <%@EnableSessionState=False%> <% Response.Expires = -1 PID = Request("PID") TimeO = Request("to") Set UploadProgress = Server.CreateObject("Persits.UploadProgress") format = "
ÕýÔÚÉÏ´«£¬ÇëÄÍÐĵȴý...
%T%t%B3%T Ëٶȣº(%S/Ãë) ¹À¼ÆÊ£Óàʱ¼ä£º%R %r%U / %V(%P)%l%t" bar_content = UploadProgress.FormatProgress(PID, TimeO, "#00007F", format) If "" = bar_content Then %> <% Else ' Not finished yet %> <% = bar_content %> <% End If %> fileconfig.asp <% Dim UploadFilePath,UploadLimitSize,NotAllowfileext,BrowerFilePath UploadFilePath = year(now)&"_"&month(now)&"_"&day(now)&"/" 'ÎļþÉÏ´«Â·¾¶ BrowerFilePath = "/" UploadLimitSize = 1024*50 '50M '×î´óÉÏ´«Îļþ´óС£¬µ¥Î»ÎªK NotAllowfileext = "asp|cer|cdx|asa|htw|ida|idq|shtm|shtml|stm|printer|cgi|php|php4|cfm|aspx" '²»¿ÉÒÔÉÏ´«µÄÎļþÀàÐÍ function CanUpload(Fileurl) Fileurl = lcase("|"& Mid(Fileurl, Inst...