求asp能上传swf文件的代码，谢谢

这个我自己在用的，两个程序（也可以把两个放一起），还算简单，你自己稍微修改一下设置就可以用：
---upload.asp---
<%
Dim Upfile_Kings_Stream
Class Upload_Kings
Dim Form,File
Private Sub Class_Initialize
Dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
Dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Set Form=CreateObject("Scripting.Dictionary")
Set File=CreateObject("Scripting.Dictionary")
Set Upfile_Kings_Stream=CreateObject("Adodb.Stream")
Upfile_Kings_Stream.Mode=3
Upfile_Kings_Stream.Type=1
Upfile_Kings_Stream.Open
Upfile_Kings_Stream.Write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
While iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")