Public VorGetOutput ()
'Einen scripting Gegenstand erklären.
TD als Gegenstand = Server.CreateObject („Scripting.FileSystemObject“) verdunkeln
'Akte kopieren
td.CopyFile (Server.MapPath („. /") u. „test.rtf“, Server.MapPath (“. /") u. „temp.rtf“)
'den Aktenweg in einer Schnurvariable einstellen.
strFilePath als Schnur = Server.MapPath verdunkeln („. /") u. „temp.rtf“
'Die termporary Akte in gelesenem Modus jetzt öffnen.
Fs2 als neues IO.FileStream (strFilePath, IO.FileMode.Open, IO.FileAccess.Read) verdunkeln
'D als Strom Leser erklären
D als neues IO.StreamReader (fs2) verdunkeln
Swrtarget als Schnur verdunkeln
'Den Stromleser d zum Anfang der Akte initialisieren.
d.BaseStream.Seek (0, IO.SeekOrigin.Begin)
swrtarget = d.ReadToEnd 'lasen die Akte vom Anfang, um in einem zu beenden gehen.
d.Close () 'nah der Strom-Leser
Schwaches str als Schnur
Schwaches strValue als Schnur
Schwaches str1 als Schnur
Schwaches strValue1 als Schnur
'Die Werte von der Datenbank jetzt erhalten.
'Gebrauch kann eine auserwählte Frage und einen Datenleser verwenden, um die Werte zu erhalten.
'Den Aktenweg auf die temporäre Akte jetzt einstellen
'Den Weg einstellen, um temporäres zu öffnen
strFilePath = Server.MapPath („. /") u. „temp.rtf“
'Die temporäre Akte im Lese-Schreibmodus öffnen.
Fs1 als neues IO.FileStream (strFilePath, IO.FileMode.Open, IO.FileAccess.ReadWrite) verdunkeln
Schwaches s als neues IO.StreamWriter (fs1) 'erklären einen Strom-Verfasser.
'Die Werte durch die Werte in der Schnur ersetzen, die von temporärem gelesen wird.
ObjConn als neues SqlConnection (strConn) verdunkeln
strSQL verdunkeln, wie Schnur = „auserwähltes common_key, Autor vom tbl_meta, wo Identifikation = 1“
objComm als neues SqlCommand (strSQL, ObjConn) verdunkeln
ObjConn.Open ()
Verdunkeln myReader als SqlDataReader = objComm.ExecuteReader (CommandBehavior.CloseConnection)
Während myReader.Read
strValue1 = myReader.GetValue (0) .ToString ()
str1 = ersetzen (swrtarget.ToString, „##Address##“, Ordnung (strValue1))
strValue1 = myReader.GetValue (1).ToString ()
str1 = ersetzen (swrtarget.ToString, „##Name##“, Ordnung (strValue1))
'Ähnlich kommt sie für ##DOF## und ##desig###.
Beenden während
'Nah der Leser.
myReader.Close ()
myReader = nichts
'Nah der Anschluss.
ObjConn.Close ()
ObjConn.Dispose ()
ObjConn = nichts
', nachdem Sie alle Werte ersetzt haben, diese Werte in das file2.rtf über die Akte schreiben schreiben (S).
s.WriteLine (str)
'Nachdem muss das Schreiben den Daten in den Stromverfasser der Werte spült werden.
s.Flush ()
'Nah der Stromverfasser.
s.Close ()
fs1.Close ()
fs2.Close ()
'Die Details in die abschließende Akte jetzt kopieren.
'Diese Akte kann eine .dc Akte sein.
Schwach td1 = Server.CreateObject („Scripting.FileSystemObject“)
td1.CopyFile (Server.MapPath („. /") u. „temp.rtf“, Server.MapPath (“. /") u. „final.doc“)
'Ein neues Fenster im Browser öffnen und final.doc Akte zum Benutzer anzeigen.
strtargetFilepath als Schnur verdunkeln = „final.doc“
Response.Write („")
Unterseeboot beenden
|