Sube rápidamente el código fuente lt 'Recuerda crear un directorio de imágenes para almacenar imágenes' = = = = = = = = = = = = = = = = = = = = = 'Subir. Contenido del archivo ASP QQ 45119302 ' * * * * * * * * * * * * * * * * * *. En este momento, no puede utilizar la solicitud ordinaria ("XXX") para obtener información; de lo contrario, si request.totalbytesgt >, no obtendrá la información correcta 0 y luego formsize = request. El "número total de bytes" toma la longitud de bytes del flujo binario formdata = solicitud. binarioread (formsize)' y leer el contenido de la secuencia binaria BNC rlf = chrb(13)data start = instrb(formdata, bncrlf ampBncrlf) 3 'Obtener la posición inicial del archivo de secuencia binaria (dos retornos de carro y una línea) símbolo de feeds) Divider = Leftb (formdata, instrb (formdata, BNCRLF)-1)'define para obtener la marca de separación del campo de flujo binario (el contenido es binario) dataend=instrb(datastart, formdata, Divider)-datastart 'Obtener el final de la parte del archivo de flujo binario Ubicación 'Guardar la información del archivo en la base de datos' Llamar a ImgToDb()' Guardar la imagen cargada en la base de datos en binario 'Llamar a SaveTofile()' Guardar Guardar Guardar la imagen cargada en la base de datos en binario, mydata = midb (formdata, inicio de datos 1, final de datos)' Establecer conexión = servidor. CreateObject(" adodb . conexión ") conn . proveedor = " Microsoft . jet . oledb . 4.0 " conn servidor mappath (" libro/stu . MDB ") Establezca RS = servidor. CreateObject("adodb.recordet")RS.open"select * from img",conn,3 rs.movelast rs.addnew rs("img"). agregar mis datos RS respuesta de actualización. End End Sub Sub SaveTofile() guarda el archivo cargado en el servidor 2. Guarde la información obtenida como un archivo binario -stmssavepath = server . mappath(" images ") amp " \ " 'Según la situación, primero debe crear el directorio correspondiente o iniciar fso para crear automáticamente set strm = createobject (" adodb. str "; "eam") y strm. tipo=1 'Modo binario. "mode=3" especifica el modo abierto como lectura y escritura. Abierto. write formdata "Escribir contenido de flujo binario" lee datos en modo texto y se utiliza para obtener la ruta del archivo enviado, el nombre y otra información. position=0 'Apunta el cursor al título de los datos. type=2 'Leer en modo texto. CharSet = "gb2312 " 'Establecer codificación china Formhead =. texto de lectura (inicio de datos-1).
Lea el encabezado del formulario que termina en '2.1 y obtenga el nombre del archivo cargado Nombre de archivo Nombre completo = Fregexpsgl(encabezado del formulario, verdadero, verdadero, verdadero, "[\ s \ s] * nombre de archivo \ = " "(.*?)" " [\ s \ s] *, " $1 ") fname = split (fullname, " \ ") filename = fname (ubound (fname)) 'Obtiene el nombre del archivo setfso = server . createobject(" scripting. file " " System ". amp "Object")' determine si tiene el mismo nombre que el archivo del disco local; de lo contrario, cámbiele el nombre =Left(filename,InstrRev(filename," ")-1)Fnx = fxname(UBound(fxname))Si no es fso El archivo existe (guarde la ruta ampFn amp"("ampiamp")."ampFnx) luego nombre de archivo = Fn amp"(" ampFnx salga, finalice el siguiente fin Si '3. archivo de flujo binario y guarde el archivo configurado como strm = createobject(" adodb . str "; "eam") con formasstrm.type=1 'Modo binario = 3. Openstrm.Position = DataStart 'Especifique la posición inicial de stm. objeto, tome el valor de la variable bStart como posición inicial strm.copyTo formulariostrm, Dataend ' Copia el flujo binario stm al objeto fromStm con la longitud de la variable bEnd savetofile(guardar ruta y nombre de archivo), 2 'Guarda la información al archivo, sobrescriba si existe el mismo nombre set strm = nada establecido form strm = nada finaliza la respuesta.