Este artigo informa a vários métodos para o ASP gerar HTML. Amigos que precisam podem se referir aos detalhes do conteúdo abaixo.
Método 1: FSO
Set fs = createObject ("script.filesystemoBject")
Newfile = server.mappath ("/asp/Chap06/at/newfile.html")
'Crie um novo arquivo/newfile.html, se o arquivo já existir, substitua -o
Set a = fs.createTextFile (newFile, true)
Response.Write "Novo arquivo foi criado!"
A.Close
Arquivo = server.mappath ("newfile.html")
Definir txt = fs.opentExtfile (arquivo, 8, true) 'aberto a um arquivo que pode gravar dados no final
Data1 = "Esta frase é escrita usando o método WriteLine! ~~" "
txt.WriteLine Data1
Data2 = "Esta frase é escrita usando o método de gravação! ~~"
txt.write data2
txt.close
Método 2: XMLHTTP
Definir xml = server.createObject ("Microsoft.xmlHttp")
'Substitua o seguinte endereço pelo endereço do arquivo da sua página inicial. Certifique -se de usar o caminho absoluto, começando com http: // e você não pode escrever o caminho relativo.
xml.open "get", "http://www.phpup.com", false
xml.send
BodyText = xml.ResponseBody
BodyText = Bytestobstr (BodyText, "GB2312")
Definir xml = nada
Dim FSO, MyFile
Set fso = createObject ("script.filesystemoBject")
Set myfile = fso.createTextFile (server.mappath ("aa.htm"), true)
MyFile.WriteLine (BodyText)
Myfile.close
outro:
1
Os seguintes exemplos são três dinâmicos: index.asp?
As páginas geram ndex1.htm, index2.htm, index3.htm, respectivamente, e estão localizadas no diretório raiz:
dim strurl, item_classid, id, nome do arquivo, 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
Definir objxmlHttp = server.createObject ("Microsoft.xmlHttp")
objxmlhttp.open "get", strurl, falso
objxmlhttp.send ()
Dim binfiledata
binfiledata = objxmlHttp.Responsebody
Objadostream escump
set 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 ("Arquivo gerado com sucesso:")
Response.Write ("
")
Response.Write html_temp
%>
Função bytestobstr (corpo, cset)
objStream dim
set objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write corpo
objstream.Position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objStream.readText
objstream.close
definir objstream = nada
Função final
%>
2
Public ModelFile, tmpdata
subfile () 'Abra o arquivo e coloque o conteúdo do arquivo em tmpdata
em erro de erro em seguida
tmpdata = ""
set assTream = server.createObject ("adodb.stream")
Asstream.type = texto do tipo 2'File
Asstream.mode = 3 'Leia e escreva
Asstream.open
Asstream.charset = "gb2312" 'conjunto de caracteres
Asstream.loadfromfile (tempelatefile) 'carga do arquivo
ASSP = Astream.size
se err.number0 então
xz = -18
Response.Write TemplateFile & "
"
err.clear
tmpdata = ""
outro
tmpdata = Astream.readText (ASSP)
final se
final sub
SUB SAVE_FILE ()
OFILE ()
recfilen = server.mappath (dts)
Asstream.flush
Asstream.close
Asstream.type = 2
Asstream.mode = 3
Asstream.open
Asstream.charset = "gb2312"
Asstream.Position = 0
Asstream.writetext tmpdata, dados de 1'write para transmitir
Assaltream.savetofile Recfilen, 2'Save para arquivar
final sub
função dts () 'gera nome de arquivo aleatório
Se Len (mês (agora ()))> 1 então
mm = mês (agora ())
outro
mm = "0" e mês (agora ())
final se
Se Len (dia (agora ()))> 1 então
d = dia (agora ())
outro
d = "0" e dia (agora ())
final se
Se Len (hora (agora ()))> 1 então
h = hora (agora ())
outro
h = "0" & Hour (agora ())
final se
Se Len (minuto (agora ()))> 1 então
m = minuto (agora ())
outro
m = "0" & minuto (agora ())
final se
Se Len (segundo (agora ()))> 1 então
s = segundo (agora ())
outro
s = "0" e segundo (agora ())
final se
Randomizar
Upperbound = 9999
BOLDBOUND = 1000
rds = int ((parte superior - BELEIRA + 1) * RND + BEBLEIRA)
dts = "htm/" & ano (agora ()) & mm & d & h & m & s & rds & "htm"
Função final
title = request.form ("title")
Content = request.form ("Content")
tmpdata = substituir (tmpdata, "
tmpdata = substituir (tmpdata, "
templatefile = server.mappath ("tempelate/1.htm") 'arquivo de modelo
save_file ()
%>
Os acima são vários métodos de geração de HTML por ASP. Eu acredito que você aprendeu sobre isso. Para mais conteúdo relacionado, continue prestando atenção ao canal de tecnologia Wuxin.