Ayúdame a encontrar un código fuente ASP que pueda cargar canciones flash o mp3.
else
mFileSize=0
finalizar si
establecer theFile=new FileInfo
theFile.FormName=FormName
file.add mFormName,theFile
else
iStart=inString(iEnd 1,vbEnteramp.vbEnter)
iEnd=inString(iStart 4, vbEnteramp; strDiv)
si iEndgt; entonces
mFormValue=subString(iStart 4, iEndi-iStart-4)
else
mFormValue=""
finalizar si
formulario. Agregar mFormName, mFormValue
finalizar si
iFormStart=iformEnd .iDivLen
iFormEnd=inString(iformStart, strDiv)-1
wend
End Sub
SubString de función privada (theStart, theLen)
dim i, c, stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
para i=1 a theLen
si upfile_5xSoft_Stream.EOS EOS entonces salga para
c=ascB(upfile_5xSoft_Stream.Read(1)
SaveAs= 1
Si trim(fullpath)="" o FileSize=0 o FileStart=0 o FileName="" entonces salga de la función
si FileStart=0 o right(fullpath, 1 ) ="/" luego salga de la función
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type= 1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.copyto dr,FileSize
dr.SaveToFile FullPath= 0 o right(fullpath, 1 = "/" saldrá de la función. SaveToFile FullPath, 2
dr.Close
set dr =nada
SaveAs=0
finalizar función
Finalizar clase
lt;/SCRIPTgt;