Public Okręt podwodny GetOutput ()
'Oznajmiać przedmiot.
Ćmić td Jako Przedmiot = Server.CreateObject ("Scripting.FileSystemObject")
'Kopiować Kartoteka
td.CopyFile (Server.MapPath (". /") & "test.rtf", Server.MapPath (". /") & "temp.rtf")
'set the kartoteka ścieżka w smyczkowy zmienna.
Ciemnawy strFilePath Jako Sznurek = Server.MapPath (". /") & "temp.rtf"
'Teraz otwierać the termporary kartoteka w Czytać tryb.
Ćmić fs2 Jako Nowy IO.FileStream (strFilePath, IO.FileMode.Open, IO.FileAccess.Read)
'Oznajmiać D jako strumień Czytelnik
Ćmić D Jako Nowy IO.StreamReader (fs2)
Ćmić swrtarget Sznurek
'Initialise the strumień czytelnik D the początek the kartoteka.
d.BaseStream.Seek ((0), IO.SeekOrigin.Begin)
swrtarget = d.ReadToEnd 'Czytać the kartoteka od Początek Końcówka w jeden iść.
d.Close () 'Zakończenie the Strumień Czytelnik
Ciemnawy str Sznurek
Ciemnawy strValue Sznurek
Ciemnawy str1 Sznurek
Ciemnawy strValue1 Sznurek
'Teraz dostawać the wartość od baza danych.
'Use móc wybrany zapytanie i dane czytelnik the wartość.
'Teraz ustawiać the kartoteka ścieżka the Chwilowy kartoteka
'Set the ścieżka Chwilowy
strFilePath = Server.MapPath (". /") & "temp.rtf"
'Otwierać the chwilowy kartoteka w Chwilowy Tryb.
Ćmić fs1 Jako Nowy IO.FileStream (strFilePath, IO.FileMode.Open, IO.FileAccess.ReadWrite)
Ciemnawy s Jako Nowy IO.StreamWriter (fs1) 'Oznajmiać Strumień Pisarz.
'Zamieniać the wartość z the wartość w the smyczkowy read od Chwilowy.
Ćmić ObjConn Jako Nowy SqlConnection (strConn)
Ćmić strSQL Jako Sznurek = "wybrany common_key, autor od tbl_meta dokąd ID = (1)"
Ćmić objComm Jako Nowy SqlCommand (strSQL, ObjConn)
ObjConn.Open ()
Ćmić myReader Jako SqlDataReader = objComm.ExecuteReader (CommandBehavior.CloseConnection)
Podczas Gdy myReader.Read
strValue1 = myReader.GetValue ((0)) .ToString ()
str1 = Zamieniać (swrtarget.ToString, "##Address##", Podstrzyżenie (strValue1))
strValue1 = myReader.GetValue (1).ToString ()
str1 = Zamieniać (swrtarget.ToString, "##Name##", Podstrzyżenie (strValue1))
'Podobnie ono przychodzić dla ##DOF## i ##desig###.
Kończyć Podczas Gdy
'Zamykać the Czytelnik.
myReader.Close ()
myReader = Nic
'Zamykać the Związek.
ObjConn.Close ()
ObjConn.Dispose ()
ObjConn = Nic
'Po wszystkie the wartość pisać te wartość w the file2.rtf przez the kartoteka pisać (s).
s.WriteLine (str)
'Po the dane w the strumień pisarz the wartość musieć rumienić się.
s.Flush ()
'Zamykać the strumień pisarz.
s.Close ()
fs1.Close ()
fs2.Close ()
'Teraz kopia the szczegół w the definitywny kartoteka.
'Ten kartoteka móc .dc kartoteka.
Ciemnawy td1 = Server.CreateObject ("Scripting.FileSystemObject")
td1.CopyFile (Server.MapPath (". /") & "temp.rtf", Server.MapPath (". /") & "final.doc")
'Otwierać nowy okno w the wyszukiwarka i pokaz final.doc kartoteka the użytkownik.
Ćmić strtargetFilepath Jako Sznurek = "final.doc"
Response.Write ("")
Kończyć Okręt podwodny
|