Plusieurs façons de générer du HTML par ASP

Cet article indique plusieurs méthodes pour ASP pour générer du HTML. Les amis qui en ont besoin peuvent se référer aux détails du contenu ci-dessous.

Méthode 1: FSO

Set fs = createObject ("scripting.fileSystemObject")

NewFile = server.mappath ("/ asp / chap06 / at / newfile.html")

'Créez un nouveau fichier / newfile.html, si le fichier existe déjà, écrasez-le

SET A = FS.CreateTextFile (newFile, true)

Response.write "Un nouveau fichier a été créé!"

a.close

File = server.mappath ("newfile.html")

Set txt = fs.opentextfile (fichier, 8, true) 'Ouvert sur un fichier qui peut écrire des données à la fin

data1 = "Cette phrase est écrite à l'aide de la méthode écrite! ~~"

txt.writeline data1

data2 = "Cette phrase est écrite en utilisant la méthode d'écriture! ~~"

txt.write data2

txt.close

Méthode 2: xmlhttp

Set xml = server.createObject ("Microsoft.xmlhttp")

«Remplacez l'adresse suivante par l'adresse de fichier de votre page d'accueil. Assurez-vous d'utiliser le chemin absolu en commençant par http: //, et vous ne pouvez pas écrire le chemin relatif.

xml.open "Get", "http://www.phpup.com", faux

xml.send

BodyText = xml.Responsebody

BodyText = ByTestObstr (BodyText, "GB2312")

Définir xml = rien

DIM FSO, MYFILE

Set fso = createObject ("scripting.fileSystemObject")

Définir myFile = fso.CreateTextFile (server.mappath ("aa.htm"), true)

MyFile.WriteLine (BodyText)

Myfile.close

autre:

1

Les exemples suivants sont trois dynamiques: index.asp? Id = 1 / index.asp? Id = 2 / index.asp? Id = 3 /

Les pages génèrent ndex1.htm, index2.htm, index3.htm respectivement et se trouvent dans le répertoire racine:

Dim Strurl, item_classid, id, nom de fichier, filepath, do_url, html_temp

Html_temp = "

"

Pour i = 1 à 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

Définir objxmlhttp = server.createObject ("Microsoft.xmlhttp")

objxmlhttp.open "get", strurl, false

objxmlhttp.send ()

Binfiledata sombre

binfiledata = objxmlhttp.Responsebody

Faible objadostream

Définir objadostream = server.createObject ("adodb.stream")

objadostream.type = 1

objadostream.open ()

objadostream.write (binfiledata)

objadostream.savetofile filepath, 2

objadostream.close ()

Suivant

Html_temp = html_temp & "

"

%>

Response.Write ("Fichier généré avec succès:")

Réponse.write ("

")

Réponse.write html_temp

%>

Fonction bytestobstr (corps, cset)

objstream sombre

Définir objstream = server.createObject ("adodb.stream")

objstream.type = 1

objstream.mode = 3

objstream.open

OBJSTREAM.WRITE CORPS

objstream.position = 0

objstream.type = 2

objstream.charset = cset

ByTestObstr = objstream.readText

objstream.close

définir objstream = rien

Fonction finale

%>

2

Public Templatefile, TMPDATA

Subodile () 'Ouvrez le fichier et placez le contenu du fichier dans TMPDATA

sur l'erreur reprendre ensuite

tmpdata = ""

set Asstream = server.createObject ("adodb.stream")

Asstream.Type = 2'file Type Text

Asstream.mode = 3 'lire et écrire

Asstream.Open

Asstream.Charset = "GB2312" 'Set de caractères

Asstream.LoadFromfile (TempelateFile) 'Chargement à partir du fichier

Assp = astream.Size

Si err.number0 alors

xz = -18

réponse.WRITE TemplateFile & "

"

err.Clear

tmpdata = ""

autre

tmpdata = astream.readText (assp)

terminer si

Sub-Sub

sub save_file ()

orile ()

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, 1'write data to stream

Asstream.savetofile recfilen, 2'save pour déposer

Sub-Sub

fonction dts () 'génère un nom de fichier aléatoire

Si Len (mois (maintenant ())))> 1 alors

mm = mois (maintenant ())

autre

mm = "0" et mois (maintenant ())

terminer si

Si Len (jour (maintenant ())))> 1 alors

d = jour (maintenant ())

autre

d = "0" et jour (maintenant ())

terminer si

Si Len (heure (maintenant ())))> 1 alors

h = heure (maintenant ())

autre

h = "0" et heure (maintenant ())

terminer si

Si Len (minute (maintenant ())))> 1 alors

m = minute (maintenant ())

autre

m = "0" et minute (maintenant ())

terminer si

Si Len (deuxième (maintenant ())))> 1 alors

S = seconde (maintenant ())

autre

S = "0" et seconde (maintenant ())

terminer si

Randomiser

Upperbound = 9999

inférieur = 1000

RDS = int ((Upperbound - Lowerbound + 1) * RND + inférieur)

DTS = "HTM /" & Year (Now ()) & MM & D & H & M & S & RDS & ". HTM"

fonction finale

title = request.form ("title")

contenu = request.form ("contenu")

tmpdata = remplacer (tmpdata, " ", titre) 'pour soutenir les soumissions

tmpdata = remplacer (tmpdata, " ",contenu)

TemplateFile = Server.Mappath ("Tempelate / 1.htm") Fichier de modèle '

Save_file ()

%>

Ce qui précède est plusieurs méthodes de génération de HTML par ASP. Je crois que vous en avez appris. Pour plus de contenu lié, veuillez continuer à prêter attention au canal technologique Wuxin.