Red de conocimiento informático - Conocimiento informático - Ayúdame a encontrar un código fuente ASP que pueda cargar canciones flash o mp3.

Ayúdame a encontrar un código fuente ASP que pueda cargar canciones flash o mp3.

mFileSize=iEnd-iStart-4

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;