Proporcione el código fuente para que ASP cargue imágenes en una carpeta específica y las almacene en la base de datos para que puedan mostrarse en Internet. <%'Recuerde crear un directorio de imágenes para almacenar imágenes'====================== 'subir contenido del archivo.asp QQ45119302' * ************************************* '1. Obtenga los datos enviados del formulario de carga de archivos. En este momento, no puede utilizar solicitudes ordinarias ("XXX") para obtener información; de lo contrario, no obtendrá la información correcta. Si request.totalbytes>0 Entonces formize=request.totalbytes ' Obtenga la longitud en bytes del flujo binario formdata=request. .totalbytes' 2. Leer el contenido del flujo binario bnbBrash=request.totalbytes' 3. Leer el contenido del flujo binario bnbBrash=request.totalbytesbinaryread(formize) ' Leer el contenido del flujo de datos binarios bncrlf=chrB(13) &chrB(10) datastart=instrb(formdata, bncrlf&bncrlf)+3 'Obtiene la posición inicial del archivo binario (con dos retornos de carro y avances de línea) divider=leftB(formdata,instrb(formdata,bncrlf)-1) 'Define el separador de campo de secuencia binaria (el contenido es binario) dataend=instrb(datastart,formdata,divider)-datastart ' Obtiene la posición final de la parte del archivo de secuencia binaria.

Posición final de la parte del archivo de flujo binario '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 el archivo cargado en el servidorEnd If Sub ImgToDb() 'Guardar la imagen cargada La imagen se guarda en la base de datos en formato binario mydata= midb(formdata,datastart+1,dataend)' Set conn=server.CreateObject("adodb.connection") conn.provider="microsoft.jet.oledb.4.0 " conn.open server. mappath("book/stu.mdb") Set rs=server.CreateObject("adodb.recordset") rs.open "select * from img",conn,3 rs.movelast rs.addnew rs( "img").appendchunk mydata rs.update respuesta.binarywrite rs.addnew rs("img").appendchunk mydata rs.update respuesta.binarywriteupdate respuesta.binarywrite rs(1) respuesta.End Sub SaveTofile() 'Guarda el archivo cargado al servidor'2 Almacene la información obtenida como un archivo de flujo binario --- stm savepath=server.mappath("images")set strm=createObject("adodb.str"& "eam") con strm .type=1. 'Binary mode.mode= 3 'Especifique el modo de apertura como lectura/escritura.open .write formdata 'Escribe el contenido de la secuencia binaria'Lee los datos en modo texto, utilizado para obtener la ruta y el nombre del archivo enviado.posición =0 'Señale el cursor al encabezado de los datos .type=2 'Leer datos en modo texto.CharSet = "gb2312" 'Establecer codificación china formhead=.ReadText(datastart-1) 'Leer el contenido del encabezado del formulario Terminar con '2.1 Obtener el nombre del archivo cargado nombre completo= fRegExpSgl(formhead,true,true,true,"[\s\S]* filename\=""(. *?"") [\s\S]*" ,"$1") fname=Split(fullname," \") filename=fname(UBound(fname)) 'Obtener el nombre del archivo Establecer fso = Server.CreateObject("Scripting.File"& "System File"& "System" & "Objeto") 'Determine si el archivo es el mismo que el nombre del sitio local; de lo contrario, cambie el nombre a XXX(1).xxx Si fso.FileExists(savepath& filename) Entonces para i=1 a 999 Fxname=Split(filename," .") Fn=Left(nombre de archivo,InstrRev(nombre de archivo,"." ))-1) Fnx=fxname(UBound(fxname)) Si no es fso.FileExists(SavePath&Fn&"("&i&")." &Fnx) Luego filena