Subir más códigos 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.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 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 " & "Object")' determine si tiene el mismo nombre que el archivo del disco local; de lo contrario, cambie el nombre de XXX(1). xxxiffso. el archivo existe (guarde la ruta &; nombre de archivo) y luego, para i=1, 999 Fxname= Split(nombre de archivo, " ")Fn=Left(nombre de archivo, InstrRev(nombre de archivo, " ")-1)Fnx = fxname(UBound(fxname)) si no es fso. El archivo existe (guardar ruta & ampFn & amp"(" & ampi& amp")."& ampFnx) luego nombre de archivo = Fn & amp"(" & ampi& amp")."& ampFnx salir, finalizar si es el siguiente EndIf '3. Obtenga información válida del archivo de flujo binario stm y guarde el archivo configurado como strm = createobject("adodb.str" & "eam") con formasstrm. tipo=1 'Modo binario. modo = 3. OpenStrm. Position = DataStart 'Especifique la posición inicial del objeto stm, tome el valor de la variable bStart como posición inicial strm.copyTo Formstrm, Dataend 'Copia la secuencia binaria stm al objeto fromStm, su longitud es la longitud de la variable bEnd . savetofile(guardar ruta y nombre de archivo), 2 'Guardar información en el archivo, sobrescribir si existe el mismo nombre. Termine con set strm = nada set form strm = nada respuesta.