Subir código fuente de "Avatar"
Upload_file.asp Esta página sirve como una ventana emergente, el código es el siguiente:
& lt! -# include file = " subir clase . ASP "-& gt;
& lthtml & gt
& lthead & gt
& ltmeta http-equiv = " Tipo de contenido " Contenido = " text/html; charset=gb2312 " >>p>
& lttitle & gtCarga de archivos
& ltlink href = " imágenes/CSS . CSS " rel = " hoja de estilo " type = " text/CSS " >>p>
& ltbody bgcolor = " # FFFFFF " margen izquierdo = " 5 " margen superior = " 20 " >>p>
& lt%
Dim gestión_flag, operación
Dim File_ext, UploadSize, Uploadpath
Dim ruta de archivo, nombre de archivo, número aleatorio
Dim Fileext_a, Fileext , UpMode
Nombre del formulario = solicitud. querystring ("formname")'El nombre del formulario de la página principal.
Nombre del texto = solicitud. querystring ("nombre de texto")'El nombre del cuadro de texto en la memoria de formulario de la página principal donde se carga la imagen.
Si textname="AdsFilePath "entonces determine la ruta para guardar el archivo según el nombre del cuadro de texto.
UploadPath="adpic/"
elseif textname="WebLogo "Entonces
UploadPath="WebLogoFile/"
elseif textname= "ShopPic "Entonces
UploadPath="Shop_Pic/"
elseif textname="Smaillpic "Entonces
UploadPath="Smaill_pic/"
elseif textname="Bannapic "Entonces
UploadPath="Banna_pic/"
Terminará si...
Tamaño de carga=1000
File_ext="jpg, gif, swf "
Seleccione una solicitud de caso.
QueryString("Operación")
Caso "Cargar"
Llamar a Main()
Llamar a Upload()
Otras situaciones
p>
Llamar a Main()
Finalizar selección
Subgerente()
% & gt
& ltform name = " mi formulario " método = " post " action = "?action=upload& ampformname = & lt% = formname % & gt& amptextname = & lt%=textname% >enctype="multipart/Form-data " >
& lttable width = " 95% " border = " 0 " align = " center " cell padding = " 0 " cellpacing = " 1 " class = " table " >>p>
& lttr & gt
& ltth align = " center " class = " table _ titl " >Carga de archivos
& lt/tr & gt;
& lttr & gt
& lttr & gt
p>& ltTD height = " 30 " align = " center " class = " wz " ID = " strMsg " >Tipos de archivos permitidos subido:
& lt/tr & gt;
& lt/tr & gt;
p>& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " >Límite de tamaño de carga de archivos:
& lt/tr & gt;
& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " >Seleccione el archivo a cargar:
& ltinput type = " file " name = " file 1 " tamaño = 20 clase = texto & gt;
& ltinput type = " oculto " nombre = " nombre de archivo " & gt;
& lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& ltTD altura = " 30 " align = " center " clase = " wz " >>p>
& ltTipo de entrada = " enviar " nombre = " enviar " valor = " subir " onclick = " nombre de archivo . valor = archivo 1 . valor;" ;
& lt/tr & gt;
& lt/table & gt;
& lt/Formulario & gt;
& lt/body & gt;
& lt/html & gt;
& lt%
Conector final
SubSoftUpload()
SoftUpload()
Conector final
SubSoft_Upload()
Atenuar carga, archivo, carga, dividir archivo
AtenuarNombre
>
set upload=new upfile_class
Subir. GetData (-1)
filePath=UploadPath
Si es correcto(filePath, 1)<>"/"entonces filePath = filePath & amp"/"
Para cada upName en upload.file
Establezca file=upload.file(upName)
Si file.filesize & ltthen1
responden. Escriba " & ltScript language = javascript & gtStrMsg.innerHTML = 'Seleccione el archivo para cargar primero'
Response.End
Terminará si...
fileExt=LCase(file.FileExt)
uploadsuc=False
splitFile=Split(File_ext, ","")
Para i=0 a UBound ( splitFile)
Si fileEXT=Trim(LCase(splitFile(i))), entonces
uploadsuc=True
es...salir
Otro
uploadsuc=False
Terminará si...
Entonces
Si uploadsuc=False, entonces
Respuesta. Escribir " & ltScripting language = javascript & gtStrMsg.innerHTML = 'El formato del archivo es incorrecto'
Respuesta.End
Terminará si... .
si archivo. Tamaño del archivo >UploadSize*1024 y luego
responde. Escriba " & ltScripting language = javascript & gtStrMsg.innerHTML = 'El tamaño del archivo excede el límite'
Response.End
Terminará si...
No lo haga Regularizado
Nombre de archivo = ruta del archivo y amp "爱_" y amp año (ahora) y hora (ahora) y amp minuto (ahora) y segunda hora (ahora). )&Random&"."&Extensión de archivo
SaveToFile Server.mappath("../& FileName)' 'Guardar archivo
Check_picwords("../& FileName)' Compruebe si hay Hay un código ilegal en el archivo subido.
Respuesta Escriba "& ltscript>
Respuesta. Escribe "opener"&formname &"."&text name&"".value = '" &filename&"
Respuesta. Escribe "window.close();"
Respuesta.& lt /script
Luego
Establecer Archivo=Ninguno
Establecer Carga=Ninguno
Conector final
% & gt
Agregado más tarde.