Udskifte GET med POST og Reques..... DEL 2
Hej AlleHar tidligere fået et svar vedrørende nedenstående, men fik det ikke til at funke. Derfor udvider jeg lige spørgsmålet, i håb om hurtig hjælp.
Spørgsmål:
Har i tidernes morgen fået udviklet en artikeleditor, men opdagede til min rædsel, at der kun kunne skrives ca. 1024 tegn. (Hvor jeg ønskede de normale ca. 65000 tegn)
Jeg har derefter fået at vide, at løsningen er:
".. du overfører data fra formularen via GET dvs. at de ryger op i QueryStringen og der kan max være 1024 tegn... skift metoden til POST og Request.Form i stedet for Request.QueryString!!!"
Dette kan jeg bare ikke, efter flere forsøg, finde ud af at gøre de rigtige steder, derfor dette spørgsmål.
Er der nogle der kan/vil rette teksten til for mig ?
Tak
<!--#include file="connection.asp"-->
<%Response.Buffer=true%>
<html>
<head>
<STYLE type="text/css">
<!--
a{font-family:Verdana;font-size:11px;text-decoration:none}
body {font-family:Verdana;font-size:11px}
table,text,textarea,input {font-family:Verdana;font-size:11px}
-->
</STYLE>
<link href="../style.css" rel="STYLESHEET" TYPE="text/css">
<title>Ret alle</title>
<SCRIPT LANGUAGE="JAVASCRIPT">
function nytVindue()
{
window.open ("pop_forum_code.htm", "navn2", "width=400, height=500, toolbar=no, status=no, scrollbars=yes, top=100,left=100");
}
</SCRIPT>
</head>
<body bgcolor=#a6bbd6>
<table border="0" width="800" cellspacing="1" bgcolor=#a6bbd1 align="center">
<tr><td>
<%
Response.Buffer=true
P_cmd=Request.QueryString("cmd")
P_kat=Request.QueryString("kat")
P_sprog=Request.QueryString("sprog")
P_id = 0
P_id=cInt(Request.QueryString("id"))
IF (P_id=0 AND P_cmd <> "create" AND P_cmd <> "ny") Then
Response.Write "<h2>Redigeringsside</h2>"
Response.Write "<h5>The Site</h5>"
Response.Write "<a href='artikel-ret.asp?cmd=ny'><b>Opret ny - </a><a href='../index.htm' target=""_top""> Til Hovedside - </b></a>"
%>
<A HREF="java script:nytVindue();"> Hjælp til artikler</A>
<%
Set objRec = DBforbindelse.execute("SELECT * FROM artikel ORDER BY kategori,sprog,id")
Response.Write "<center><form>"
Do While Not objRec.EOF
If objRec("sprog") = "dk" then
v_sprog = "Dansk"
Else
If objRec("sprog") = "de" then
v_sprog = "Fransk"
Else
If objRec("sprog") = "gb" then
v_sprog = "Engelsk"
End if
End if
End if
If objRec("kategori") = "1" then
v_kategori = "Sightseeing"
Else
If objRec("kategori") = "15" then
v_kategori = "Vaugrenier"
Else
If objRec("kategori") = "25" then
v_kategori = "Kobe-Lejlighed"
Else
If objRec("kategori") = "24" then
v_kategori = "Lejlighederne"
Else
If objRec("kategori") = "35" then
v_kategori = "Information"
Else
If objRec("kategori") = "45" then
v_kategori = "Rivieraen"
Else
If objRec("kategori") = "64" then
v_kategori = "Nyheder"
Else
If objRec("kategori") = "75" then
v_kategori = "Medlemsside"
Else
If objRec("kategori") = "6" then
v_kategori = "Booking"
Else
If objRec("kategori") = "84" then
v_kategori = "Administration"
Else
If objRec("kategori") = "83" then
v_kategori = "Testside"
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
Response.Write "<table width='700' align='center' style='border-width:1px;border-style:solid;'>"
Response.Write "<tr><td>" '1.row 1.column
Response.Write " <a href='artikel-ret.asp?cmd=ret&id=" & objRec("id") & "'>" & "Rediger </a>" & _
"<a href='artikel-ret.asp?cmd=slet&id=" & objRec("id") & "'>" & " Slet</a> "
Response.Write "<b>Kategori: </b>"&v_kategori&"<b> Sprog: </b>"&v_sprog&""
Response.write "<b> Overskrift: </b>" & objRec("overskrift")
Response.Write "</td></tr>"
Response.Write "</table>"
objRec.MoveNext
Response.Write "<div style='line-height:5px;font-size:5px'> </div>"
Loop
Response.Write "</form></center>"
objRec.Close
Set objRec = Nothing
DBforbindelse.Close
Set DBforbindelse = Nothing
Else '50
If P_cmd="slet" AND cInt(P_id) <> 0 THEN
DBforbindelse.execute("Delete FROM artikel WHERE id=" & P_id)
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
End if ' slet
If P_cmd="ret" AND cInt(P_id) <> 0 THEN
' hvis kald intern hent data
Set objRec = DBforbindelse.execute("SELECT * FROM artikel WHERE id="& P_id)
Response.Write "<form ACTION='artikel-ret.asp'><table bgcolor=""#a6bbd9"" width=""700"" border=""0"" align=""center"" style='border-width:1px;border-style:solid'>"
Response.Write "<tr><td>" '1.row 1.column
Response.Write "<tr><td>"
Response.Write "Rediger overskrift:<br>"
Response.Write "<input type=""HIDDEN"" VALUE='update' Name='cmd'>"
Response.Write "<input type=""HIDDEN"" VALUE=" & objRec("id") & " NAME='id'>"
Response.Write "<input type=""TEXT"" VALUE='" & objRec("overskrift") & "'NAME='overskrift' style='border-width:1px;border-style:solid;width:600px'>"
Response.Write "</td></tr><tr><td>"
Response.Write "Rediger indhold:<br>"
Response.write "<textarea name='indhold' rows='10' style='border-width:1px;border-style:solid;width:600px'>" & objRec("indhold") & "</textarea>"
Response.Write "</td></tr><tr><td>"
If objRec("sprog") = "dk" then
v_sprog = "Dansk"
Else
If objRec("sprog") = "de" then
v_sprog = "Fransk"
Else
If objRec("sprog") = "gb" then
v_sprog = "Engelsk"
End if
End if
End if
If objRec("kategori") = "1" then
v_kategori = "Sightseeing"
Else
If objRec("kategori") = "15" then
v_kategori = "Vaugrenier"
Else
If objRec("kategori") = "25" then
v_kategori = "Kobe-Lejlighed"
Else
If objRec("kategori") = "24" then
v_kategori = "Lejlighederne"
Else
If objRec("kategori") = "35" then
v_kategori = "Information"
Else
If objRec("kategori") = "45" then
v_kategori = "Rivieraen"
Else
If objRec("kategori") = "64" then
v_kategori = "Nyheder"
Else
If objRec("kategori") = "75" then
v_kategori = "Medlemsside"
Else
If objRec("kategori") = "6" then
v_kategori = "Booking"
Else
If objRec("kategori") = "83" then
v_kategori = "Testside"
Else
If objRec("kategori") = "84" then
v_kategori = "Administration"
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
Response.Write "Kategorien af artikler er: <u>"& v_kategori & "</u> Og valgt sprog er: <u>"& v_sprog &"</u><br>"
Response.Write "<input type='submit' VALUE='Opdater' style='border-width:1px;border-style:solid;height:20px;font-family:Verdana;font-size:11px'>"
Response.Write " Indlæg oprettet den: "
Response.Write objRec("artikelstartdato")
Response.Write " Indlæg sidst rettet den: "
Response.Write objRec("redigeringsdato")
Response.Write " <button onClick='java script:history.back()' style='font-family:Verdana;font-size:11px;border-width:1px;border-style:solid;height:20px'>Fortryd</button>"
%>
<A HREF="java script:nytVindue();"> Hjælp </A>
<%
Response.Write "</td></tr>"
Response.Write "</td></tr></table></form>"
End if 'ret
If P_cmd="ny" THEN
' hvis kald intern hent data
Response.Write "<form ACTION='artikel-ret.asp'><table bgcolor=""#a6cce1"" width=""700"" border=""0"" align=""center"">"
Response.Write "<tr><td>" '1.row 1.column
Response.Write "<tr><td>"
Response.Write "Opret overskrift:<br>"
Response.Write "<input type=""HIDDEN"" VALUE='create' Name='cmd'>"
Response.Write "<input type=""TEXT"" VALUE='' NAME='overskrift' style='width:600px'>"
Response.Write "</td></tr><tr><td>"
Response.Write "Opret indhold:<br>"
Response.write "<textarea name='indhold' rows='10' style='width:600px'></textarea><br>"
Response.Write "Vælg Kategori <SELECT name=kat><OPTION value='1'>Sightseeing</OPTION>"&_
"<OPTION value='15'>baugrenier</OPTION><OPTION value='25'>Køb af Lejlighed</OPTION><OPTION value='24'>Lejlighederne</OPTION><OPTION value='35'>Information</OPTION><OPTION value='45'>Rivieraen</OPTION><OPTION value='64'>Nyheder</OPTION><OPTION value='75'>Medlemsside</OPTION><OPTION value='6'>Bookning-leje af lejl.</OPTION><OPTION value='84'>Administration</OPTION><OPTION value='83'>Testside</OPTION></SELECT>"
Response.Write "Sæt artiklens Sprog <SELECT name=sprog><OPTION value='dk'>Dansk</OPTION>"&_
"<OPTION value='de'>Fransk</OPTION><OPTION value='gb'>Engelsk</OPTION></SELECT>"
Response.Write "</td></tr><tr><td>"
Response.Write "<input type='submit' VALUE='Opret'>"
%>
<A HREF="java script:nytVindue();"> Hjælp </A>
<%
Response.Write "</td></tr>"
Response.Write "</td></tr></table></form>"
End if 'ny
If P_cmd="create" THEN
p_overskrift=Replace(Request.Querystring("overskrift"), "'", "''")
p_indhold=Replace(Request.Querystring("indhold"), "'", "''")
StrSql="INSERT INTO artikel (overskrift,indhold,artikelstartdato,kategori,sprog) VALUES ('" & P_overskrift &"','" & p_indhold &"','" & Date &"','"& P_kat &"','"& P_sprog &"')"
DBforbindelse.execute(strsql)
'DBforbindelse.Execute
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
END IF 'create
If P_cmd="update" AND P_id <> 0 THEN
p_overskrift=Replace(Request.Querystring("overskrift"), "'", "''")
p_indhold=Replace(Request.Querystring("indhold"), "'", "''")
StrSql="UPDATE artikel SET overskrift='"&P_overskrift&"', indhold='" & p_indhold & "', redigeringsdato='" & date &"' WHERE id=" & p_id
DBforbindelse.execute(strsql)
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
END IF 'update
end if ' else
%>
</td>
</tr>
</table>
</body>
</html>
