Método 1: FSO
Establecer fs = CreateObject(Scripting.FileSystemObject)
NuevoArchivo=Servidor.MapPath(/asp/chap06/at/newfile.html)
'Crea un nuevo archivo/newfile.html, si el archivo ya existe, sobrescríbelo
Establecer a = fs.CreateTextFile(NewFile, True)
Response.Write ¡Se ha creado un nuevo archivo!
a.cerrar
Archivo=Servidor.MapPath(nuevoarchivo.html)
Establecer txt=fs.OpenTextFile(File,8,True) 'Abre un archivo que pueda escribir datos al final
data1=¡Esta oración está escrita usando el método WriteLine! ~~
txt.WriteLine datos1
data2=¡Esta oración está escrita usando el método Write! ~~
txt.Escribir datos2
txt.Cerrar
Método 2: XMLHTTP
<%
Establecer xml = Server.CreateObject(Microsoft.XMLHTTP)
'Reemplace la siguiente dirección con la dirección del archivo de su página de inicio. Asegúrese de utilizar una ruta absoluta que comience con http://. No puede escribir una ruta relativa.
xml.Abrir GET, http://www.vevb.com,Falso
xml.Enviar
CuerpoTexto=xml.ResponseBody
TextoCuerpo=BytesToBstr(TextoCuerpo,gb2312)
Establecer xml = Nada
Dim fso, MyFile
Establecer fso = CreateObject(Scripting.FileSystemObject)
Establecer MyFile= fso.CreateTextFile(servidor.MapPath(aa.htm), Verdadero)
MiArchivo.WriteLine(BodyText)
MiArchivo.Cerrar
otro:
1
El siguiente ejemplo son las tres dinámicas de index.asp?id=1/index.asp?id=2/index.asp?id=3/
Página, genere respectivamente index1.htm, index2.htm, index3.htm y guárdelos en el directorio raíz:
<%
dim strUrl,Item_Classid,id,Nombre de archivo,Ruta de archivo,Do_Url,Html_Temp
Html_Temp=<UL>
Para i=1 a 3
Html_Temp = Html_Temp&<LI>
Item_Classid = yo
Nombre de archivo = Índice y Item_Classid&.htm
FilePath = Server.MapPath(/)&/&FileName Html_Temp = Html_Temp&FilePath&</LI>
Do_Url = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Hacer_Url
objXmlHttp tenue
establecer objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.open OBTENER, strUrl, falso
objXmlHttp.enviar()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
establecer objAdoStream = Server.createObject(ADODB.Stream)
objAdoStream.Tipo = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Próximo
Html_Temp = Html_Temp&<UL>
%>
<%
Response.Write (Archivo generado correctamente:)
Respuesta.Escribir ( <BR> )
Respuesta.Escribir Html_Temp
%>
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject(adodb.stream)
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
%>
2
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=936%>
<%
archivo de plantilla pública, tmpdata
sub ofile()'abre el archivo y coloca el contenido del archivo en tmpdata
en caso de error reanudar siguiente
tmpdatos=
establecer Astream=Server.CreateObject (Adodb.Stream)
Astream.type=2'Tipo de archivo texto
Astream.Mode = 3'lectura-escritura
Astream.abierto
Astream.CharSet = GB2312'Conjunto de caracteres
Astream.LoadFromFile(tempelatefile)'Cargar desde archivo
Assp=Astream.tamaño
si número de error <> 0 entonces
xz=-18
respuesta.Escribir archivo de plantilla&<br>
errar.claro
tmpdatos=
demás
tmpdata=Astream.ReadText(Assp)
terminar si
sub final
sub guardar_archivo()
ofile()
recfilen=servidor.MapPath(dts)
Astream.Flush
Astream.cerrar
Astream.tipo=2
Astream.Modo = 3
Astream.abierto
Astream.CharSet = GB2312
Astream.posición=0
Astream.Writetext tmpdata,1'Escribir datos para transmitir
Astream.SaveToFile recfilen,2'Guardar en archivo
sub final
La función dts()' genera nombres de archivos aleatorios.
si len(mes(ahora()))>1 entonces
mm=mes(ahora())
demás
mm=0&mes(ahora())
terminar si
si len(día(ahora()))>1 entonces
d=día(ahora())
demás
d=0&día(ahora())
terminar si
si len(hora(ahora()))>1 entonces
h=hora(ahora())
demás
h=0&hora(ahora())
terminar si
si len(minuto(ahora()))>1 entonces
m=minuto(ahora())
demás
m=0&minuto(ahora())
terminar si
si len(segundo(ahora()))>1 entonces
s=segundo(ahora())
demás
s=0&segundo(ahora())
terminar si
Aleatorizar
límite superior = 9999
límite inferior = 1000
rds=Int((límite superior - límite inferior + 1) * Rnd + límite inferior)
dts=htm/&año(ahora())&mm&d&h&m&s&rds&.htm
función final
título=solicitud.Formulario(título)
contenido = solicitud. Formulario (contenido)
tmpdata=replace(tmpdata,<title></title>,title)' para admitir el reemplazo del contenido del envío
tmpdata=reemplazar(tmpdata,<contenido></content>,contenido)
templatefile=server.MapPath(tempelate/1.htm)'archivo de plantilla
guardar_archivo()
%>