ASP i textfil

3 svar · 242 visningar · startad av aleborg 1 maj 2001

aleborgMedlem sedan jan. 20013 341 inlägg

Frågan1 maj 2001 10:12#1

Försöker skapa en textfil med ASP kod, men hur ska man göra för att koden inte ska köras?

filetxt.WriteLine("<%")
filetxt.WriteLine("Set adsConn = Server.CreateObject("ADODB.Connection")")
filetxt.WriteLine("adsConn.Open "WebShowAds"")
filetxt.WriteLine("Session.LCID = 1053")
filetxt.WriteLine("If Request.QueryString("showad")<>"" Then")
filetxt.WriteLine("SQLmy="Select * From Banners Where Kategori="& namn("KategoriID") &" And Shows >'0' Or Ends <=" & date & """)
filetxt.WriteLine("RStemp = UBOUND(adsConn.Execute(SQLmy).GetRows(),2)+1")
filetxt.WriteLine("Randomize")
filetxt.WriteLine("post = Int(RND*RStemp)")
filetxt.WriteLine("Set RS3 = adsConn.Execute(SQL)")
filetxt.WriteLine("For s = 1 to post")
filetxt.WriteLine("RS3.MoveNext")
filetxt.WriteLine("Next")
filetxt.WriteLine("SQLmt="Select * From Users Where AnnonsorID='"& RS3("Tillhor") &"'"")
filetxt.WriteLine("Set view=adsConn.Execute(SQLmt)")
filetxt.WriteLine("SQLmr="Update Banners Set Visad=Visad+1"")
filetxt.WriteLine("adsConn.Execute(SQLmr)")
filetxt.WriteLine("If RS3("Shows")>"0" then")
filetxt.WriteLine("SQLmu="Update Banners Set Shows=Shows-1"")
filetxt.WriteLine("adsConn.Execute(SQLmu)")
filetxt.WriteLine("End If")
filetxt.WriteLine("%>")
filetxt.WriteLine("<a href='<%=view("Url")%>' target='_blank'><img src='<%=view("BannerUrl")%>' width='<%=view("Width")%>' height='<%=view("Height")%>' border='<%=view("Border")%>'></a>")
filetxt.WriteLine("<%")
filetxt.WriteLine("RS3.Close")
filetxt.WriteLine("view.close")
filetxt.WriteLine("End If")
filetxt.WriteLine("adsConn.Close")
filetxt.WriteLine("%>")

Problemet är alla "

------------------
Data-Doktorn

SPiNMedlem sedan mars 20007 896 inlägg

1 maj 2001 11:47#2

Alla % får du byta ut mot characters. T.ex. raden filetxt.WriteLine("<%") blir -> filetxt.WriteLine("<" & Chr(37)).

Sen skare funka... :)

------------------
SPiN, bjorne.w@telia.com

-- Fame is a bitch, man [Brad Pitt - Fight Club] --

aleborgMedlem sedan jan. 20013 341 inlägg

1 maj 2001 12:00#3

men det största problemet är väl " som tex:
filetxt.WriteLine("Set adsConn = Server.CreateObject("ADODB.Connection")")

det var nog det första som det klagades på!

Fick för mig att kopiera istället:

dim filesys, demofile
set filesys = CreateObject ("Scripting.FileSystemObject")
set demofile = filesys.CreateTextFile ("E:\www\banner\kat-"& namn("KategoriID") &".asp", false)
set demofile = filesys.GetFile("E:\www\banner\kat-"& namn("KategoriID") &".asp")
demofile.Copy("E:\www\adshow.asp")

men det slutar med att båda filerna blir 0 byte!!!???

------------------
Data-Doktorn

VideMedlem sedan dec. 19998 577 inlägg

1 maj 2001 12:11#4

Du måste "escapa" varje " som skall ut i HTML (eller fil)...

filetxt.WriteLine("Set adsConn = Server.CreateObject(""ADODB.Connection"")")

------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com