2 svar · 254 visningar · startad av Jörgen HP
Hej, håller på att skapa en statisk html-sida med dynamisk information från en DB. :e
Jag har inte använt FSO så mycket innan, så jag misstänker att jag gjort det onödigt svårt för mig. Men man lär sig av sina misstag :D
Jag har kommit så här långt:
<%
'## -- Skapar en instans av FSO --
set fso = Server.CreateObject("Scripting.FileSystemObject")
'## -- hämta in tempete-filen --
set ourtext = fso.GetFile("template.tmp")
set ts = ourtext.OpenAsTextStream(1,-2)
'## -- Skapar en instans av FSO --
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
'## -- Specifierar sökvägen till filen --
strFilePath = Server.Mappath( "\" ) & "/ny/default2.asp"
'## -- Öppnar filen, för läsning, 1 --
set objFile = objFso.OpenTextFile( strFilePath, 1 )
'## -- Lägger alla rader i ett array. Splittar på vbcrlf --
arrDesignFile = Split( objFile.ReadAll, vbcrlf )
'## -- Loopar igenom alla rader --
for i = 0 to ubound(arrDesignFile)
'## -- Skapa och infoga raderna från arrDesignFile(i) i en nyskapad fil, inkludera infot från loopen med början på rad 50 --
[b]Här vill jag skapa en ny text-fil av innehållet i arrDesignFile(i), samt infoga informationen med följande loop med början på rad 50 från filen default2.asp:
Do while not ts.AtEndOfStream
myText = ts.readline
myText = replace(myText, "%img%", rsTemp("picURL"))
myText = replace(myText, "%name%", rsTemp("FullName"))
duties = replace(rsTemp("duties"), vbCrLf, "<br/>")
myText = replace(myText, "%duties%", duties)
myText = replace(myText, "%empID%", rsTemp("Id"))
myText = replace(myText, "%date%", rsTemp("PicCaption"))
Response.Write myText
Loop
set ts = nothing
set ourtext = nothing
set fso = nothing
sedan vill jag spara den nya filen med ett unikt namn tex dagens_datum.asp
[/b]
next
'## -- Stänger alla objekt --
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
rstemp.close
set rstemp = nothing
objDB.Close
set objDB = nothing
end if
%>
------------------
"När forumledarna är på gott humör går det också att få ett eller annat
vettigt ord ur dem." /Hypatia 2002
[Redigerat av jorgen den 01 feb 2002]
'## -- Stänger alla objekt --
objFile.Close
[b]'## -- spara filen. true skriver över. false skriver inte över --
Set objFile = objFSO.CreateTextFile(strFilePath, True)
objFile.WriteLine mytext[/b]
Set objFile = Nothing
Set objFso = Nothing
Lägg till den fet markerade raden
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
[Redigerat av PatrikB den 01 feb 2002]
Hej, men hur vet jag att det sparar på rätt ställe i filen.
Jag läser ju in information från två filer till den filen jag ska skapa.
Den nya filen bör skapas i stil med:
information från default2.asp (designen)
...
...
...
...
replacen med info från tepleten (artikeltext)
...
...
...
mer information från default2.asp (mer design)
...
...
...
...
...
...
mvh Jörgen :)
------------------
"När forumledarna är på gott humör går det också att få ett eller annat
vettigt ord ur dem." /Hypatia 2002
[Redigerat av jorgen den 01 feb 2002]