Så om jag vill ha min formulering, så får jag skriva ut html-koden och annat med response.write - för att servern skall fatta?
Inloggningssida funkar ej
26 svar · 429 visningar · startad av plelkes · sida 2 av 2
Frågan, av plelkes
Hej, har snickrat på en inloggningssida. Själva formuläret kan ses här logg.asp <% if Request.Form("in") = "stig in" Then 'vill användaren logga in? Set gbok = Server.CreateObject( "Adodb.Connection" ) gbok.Provider = "Microsoft.Jet.OLEDB.4.0" MdbFilePath = Server.MapPath("\plelkes\db\guests.mdb") gbok.ConnectionString = "Data Source='" &
Läs frågan i sin helhet →
Jupp. Exempelvis
<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
Dim strHtml
strHtml = "<html><head><title>Redigera</title>" & _
"<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1></head>"
Response.Write strHtml
Session.LCID = 1053
Nej nej nej!
Om du vill att din kod skall fungera kan du göra så här:
<%
If Session ("Inloggad") = "Ja" then
Else
Response.Write "Du är inte auktoriserad"
Response.end
end if
%>
<html>
<head>
<title>Redigera</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>
<%
Session.LCID = 1053
dim minCon 'Connection
dim rsGbok 'recordsetten för nya inlägg
dim strSQL
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")
minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
Response.Write "Nu kan du" & rs.guests.admin("Fnamn")
Response.Write "redigera gästboken!"
Response.Write "</U></font></i></b></font></p><BR><BR><BR>"
Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
Response.Write "<TABLE WIDTH=""800"" BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
Response.Write rsGbok("Namn")
Response.Write "</U></B></H3></TD>"
Response.Write "<TD WIDTH=""556"">"
Response.Write rsGbok("Message")
Response.Write "</TD><TD WIDTH=""37"">"
Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
Response.Write "</TD></TR>"
Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
Response.Write "<TD COLSPAN"="3"">"
Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
%>
</body>
</html>
eller så här:
<%
If Session ("Inloggad") = "Ja" then
<html>
<head>
<title>Redigera</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>
</head>
<%
Session.LCID = 1053
dim minCon 'Connection
dim rsGbok 'recordsetten för nya inlägg
dim strSQL
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")
minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
Response.Write "Nu kan du" & rs.guests.admin("Fnamn")
Response.Write "redigera gästboken!"
Response.Write "</U></font></i></b></font></p><BR><BR><BR>"
Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
Response.Write "<TABLE WIDTH=""800"" BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
Response.Write rsGbok("Namn")
Response.Write "</U></B></H3></TD>"
Response.Write "<TD WIDTH=""556"">"
Response.Write rsGbok("Message")
Response.Write "</TD><TD WIDTH=""37"">"
Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
Response.Write "</TD></TR>"
Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
Response.Write "<TD COLSPAN"="3"">"
Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
%>
</body>
</html>
<%
Else
Response.Write "Du är inte auktoriserad"
End If %>
Du måste inte stoppa in html kod i en variabel och skriva ut den med response.write.... finns inget som tvingar dig till det.
plelkes skrev:
Så om jag vill ha min formulering, så får jag skriva ut html-koden och annat med response.write - för att servern skall fatta?
Engine^ skrev:
Jupp. Exempelvis
<% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else Dim strHtml strHtml = "<html><head><title>Redigera</title>" & _ "<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1></head>" Response.Write strHtml Session.LCID = 1053
Det är ju fel att säga att han måste skriva ut html biten med response.write.
Ok. Jag förstog frågan lite annorlunda, jag menade inte man måste. Isånnafall skulle jag innan inte ha påpekat att det saknades ett %> före htmlkoden ;)
Tack Engine^ och mrblonde för att ni stod/står ut med mig...
Jag är kunskapstörstig och VILL verkligen lära mig, menhar svårt för att lära mig ngt som jag inte förstår..