|
![](/images/profiles/noicon.gif) | Hjælp med IF kode Fra : plobber | Vist : 648 gange 50 point Dato : 17-05-03 12:50 |
|
Hej. Jeg er begyndt at skrive ASP men er løbet ind i et prob.
Jeg har neden for lavet en kode som virker godt nok, men kun hvis jeg skriver default.asp?id=1 for at vise den første side.
Jeg vil gerne have en IF kode der får den til at åbne id=1 uden at skrive default.asp?id=1, da id=1 er forsiden.
På forhånd Tak
Kode:
<%
' Variabler
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath(Request.Querystring("id") &".txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine
Loop
f.Close
%>
| |
![](/images/profiles/noicon.gif) | Accepteret svar Fra : smorch ![Fire stjerner](/App_Themes/Normal/images/stars/small/star40.gif) | ![Tre stjerner](/App_Themes/Normal/images/stars/big/star30.gif) Modtaget 60 point Dato : 17-05-03 13:07 |
|
<%
' Variabler
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
if Request.Querystring("id")="" then ID=1
filespec = Server.Mappath(ID &".txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine
Loop
f.Close
%>
| |
![](/images/profiles/noicon.gif) | Godkendelse af svar Fra : plobber |
Dato : 17-05-03 13:17 |
|
Tak for svaret smorch.
MEN
<%
' Variabler
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
if Request.Querystring("id")="" then ID=1 -> else ID=Request.Querystring("id") <- Manglede du :)
filespec = Server.Mappath(ID &".txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine
Loop
f.Close
%>
| |
![](/App_Themes/Normal/images/Window/Backgrounds/User_Message.gif) | Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|