Transferencia de archivos vb winsock de emergencia

Generalmente, un host virtual solo puede cargar archivos de 200 000 a la vez, por lo que un archivo de 5 M debe transferirse al menos 25 veces. El método consiste en utilizar el flujo de datos para leer 200 K y escribirlo en un archivo local, y luego cargar archivos pequeños en secuencia. Una vez que el extremo receptor recibe la información, utiliza el flujo de datos para leer y una vez completada la lectura. se escribe todo el archivo.

Te damos un código de recepción:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

en caso de error, reanudar siguiente

dim id,MySt,bb

set MySt = Server.CreateObject("adodb.stream")

id=Request QueryString("id")

dim id,MySt,bb

set MySt = Server.CreateObject("adodb.stream")

id=Request. Cadena de consulta("id")

.