Código fuente de visualización de datos ASP& lt% 'Recuerde 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.totalbytes> >, 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)&chrB(10)data start = instrb(formdata, bncrlf & ampBncrlf)+3 'Obtener la posición inicial del archivo de secuencia binaria (dos retornos Car y carácter de nueva línea) Divider = Leftb (formdata, instrb (formdata, BNCRLF)-1) 'definir para obtener la marca de separación del campo de flujo binario (el contenido es binario) dataend=instrb (datastart, formdata, Divider)-datastart 'Obtener el binario archivo de flujo El final de la secció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 formato binario 'Llamar a SaveTofile()' Guardar la imagen cargada en la base de datos en formato 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 de flujo binario -stmssavepath = server . mappath(" images ")& " \ " '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. " & "Objeto")' determina si tiene el mismo nombre que el archivo del disco local; de lo contrario, cámbiele el nombre ")Fn=Left(filename,InstrRev(filename," ")-1)Fnx = fxname(UBound(fxname)) si no es fso, el archivo existe (guardar ruta & ampFn & amp"(" & ampi& ")."& ampFnx) entonces nombre de archivo = Fn & amp"(" & ampi& amp")."& ampFnx sale, finaliza si es el siguiente fin. Si '3. Obtenga información válida del archivo de flujo binario stm y coloque el conjunto de archivos como strm = createobject("adodb . str" & "eam") con formstrm type=1 'Modo binario=3. Especifique la posición inicial del objeto stm, tome la variable bStart El valor se utiliza como posición inicial strm.copyPara formar strm, Dataend 'Copie la secuencia binaria stm al objeto fromStm, cuya longitud es la longitud de bEnd. variable savetofile(guardar ruta y nombre de archivo), 2 'Guarda la información en el archivo, si existe el mismo nombre, la sobrescritura termina con set strm = nada set form strm = nada respuesta.