Este artículo le dice a varios métodos para ASP para generar HTML. Los amigos que lo necesitan pueden referirse a los detalles del contenido a continuación.
Método 1: FSO
Establecer fs = createObject ("scripting.filesystemObject")
Newfile = server.mappath ("/asp/chap06/at/newfile.html")
'Cree un nuevo archivo/newfile.html, si el archivo ya existe, sobrescribirlo
Establecer a = fs.CreateTextFile (Newfile, verdadero)
Response.write "¡Se ha creado un nuevo archivo!"
A. Close
File = server.mappath ("newfile.html")
Establecer txt = fs.opeNextFile (archivo, 8, true) 'Abierto a un archivo que puede escribir datos al final
data1 = "Esta oración se escribe utilizando el método de escritura! ~~"
txt.writely data1
data2 = "Esta oración se escribe utilizando el método de escritura! ~~"
txt.write data2
txt.lose
Método 2: xmlhttp
Establecer xml = server.createObject ("Microsoft.xmlhttp")
'Reemplace la siguiente dirección con la dirección de archivo de su página de inicio. Asegúrese de usar la ruta absoluta que comienza con http: //, y no puede escribir la ruta relativa.
xml.open "Get", "http://www.phpup.com", falso
xml.send
BodyText = xml.ResponseBody
BodyText = ByTestObstr (BodyText, "GB2312")
Establecer xml = nada
Dim fso, myfile
Establecer fso = createObject ("scripting.filesystemObject")
Establecer myFile = fso.createTextFile (server.mappath ("aa.htm"), verdadero)
MyFile.Writeline (BodyText)
Myfile.close
otro:
1
Los siguientes ejemplos son tres dinámicas: index.asp? Id = 1/index.asp? Id = 2/index.asp? Id = 3/
Las páginas generan ndex1.htm, index2.htm, index3.htm respectivamente y se encuentran en el directorio raíz:
Dim Strurl, item_classid, id, nombre de archivo, filepath, do_url, html_temp
Html_temp = "
Para i = 1 a 3
Html_temp = html_temp & "
Item_classid = i
Filename = "index" & item_classid & ". Htm"
Filepath = server.mappath ("/") & "/" & FileName html_temp = html_temp & filepath & "
Do_url = "http: //"
Do_url = do_url & request.ServerVariAbles ("server_name") & "/main/index.asp"
Do_url = do_url & "? Item_classid =" & item_classid
strurl = do_url
dim objxmlhttp
Establecer objxmlhttp = server.createObject ("Microsoft.xmlhttp")
objxmlhttp.open "Get", Strurl, False
objxmlhttp.send ()
Dim binfiledata
binfiledata = objxmlhttp.ResponseBody
Dim objadostream
Establecer objadostream = server.createObject ("ADODB.Stream")
objadostream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadostream.savetofile filepath, 2
objadostream.close ()
Próximo
Html_temp = html_temp & "
%>
Response.Write ("Archivo generado con éxito:")
Respuesta.write ("
")
Respuesta.WRITE html_temp
%>
Función bytestobstr (cuerpo, cset)
dim objstream
Establecer objstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write cuerpo
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
Función final
%>
2
Templatefile público, tmpdata
sub ofile () 'Abra el archivo y coloque el contenido del archivo en tmpdata
En el currículum de error siguiente
tmpdata = ""
Establecer ASSTREAM = Server.CreateObject ("ADODB.Stream")
ASSTREAM.TYPE = 2'FILE Tipo de texto
Astrream.mode = 3 'leer y escribir
ASSTREAM.Apen
ASSTREAM.CHARSET = "GB2312" 'Conjunto de caracteres
Astrream.LoadFromFile (TempelateFile) 'Carga desde el archivo
Assp = Astream.size
Si err.number0 entonces
xz = -18
Respuesta.WRITE TEMPLATEFILE & "
"
Err.Clear
tmpdata = ""
demás
tmpData = Astream.ReadText (ASSP)
final si
final
Sub save_file ()
OFILE ()
recfilen = server.mappath (DTS)
ASTRETEAM.FLUSH
ASTREAM.CLOSE
ASTREAM.TYPE = 2
ASSTREAM.MODE = 3
ASSTREAM.Apen
ASSTREAM.CHARSET = "GB2312"
Astrream.position = 0
Astrream.writeText tmpData, 1'write datos para transmitir
Astrream.savetofile recfilen, 2'save para archivar
final
función dts () 'genera nombre de archivo aleatorio
Si len (mes (ahora ()))> 1 entonces
mm = mes (ahora ())
demás
mm = "0" y mes (ahora ())
final si
Si len (día (ahora ()))> 1 entonces
d = día (ahora ())
demás
d = "0" & Day (ahora ())
final si
Si len (hora (ahora ()))> 1 entonces
h = hora (ahora ())
demás
H = "0" & Hour (ahora ())
final si
Si len (minuto (ahora ()))> 1 entonces
m = minuto (ahora ())
demás
m = "0" & minuto (ahora ())
final si
Si len (segundo (ahora ()))> 1 entonces
s = segundo (ahora ())
demás
s = "0" y segundo (ahora ())
final si
Aleatorizar
Encabeza superior = 9999
Lowerbound = 1000
rds = int ((infojo superior - inferior + 1) * rnd + boundbound)
dts = "htm/" & año (ahora ()) & mm & d & h & m & s & rds & ". htm"
función final
title = request.form ("title")
content = request.form ("contenido")
tmpData = reemplazar (tmpData ",
tmpData = reemplazar (tmpData ",
TemplateFile = server.mappath ("Tempelate/1.htm") 'Archivo de plantilla
save_file ()
%>
Los anteriores son varios métodos para generar HTML por ASP. Creo que lo has aprendido. Para obtener más contenido relacionado, continúe prestando atención al canal de tecnología Wuxin.