Slumpa fram ett form-namn

7 svar · 419 visningar · startad av Bjarne A 16 jan. 2004

Bjarne AMedlem sedan feb. 2001151 inlägg

Frågan16 jan. 2004 21:25#1

Då session inte funkar när man lägger det i en frame
så tänkte jag skicka med ett lösenord som REQUEST.FORM
och får lägga alla länkar i en FORM

Tänkte lägga rubriken som ett formnamn men den kan innehålla ogiltliga tecken som ex mellanslag så det funkar ej

Om man tar dom, typ 5 första bokstäverna i rubriken kan de ju
vara så att någon rubrik bara har 4 bokstäver och kan ju bli samma ändå

Kan man göra om Id nummret som är unikt till text så formnamnet blir godtjänt av browsern

Varit inne och sökt på Randomize för att slumpa fram bokstäver
till en varaiabel som sedan användes men då måste jag slumpa fram variabelnamnet oxå

Eller........

<%
SQL = "SELECT * FROM texter ORDER BY ID DESC"
set rs = connect.execute(SQL) 
%> <%Do until Rs.EOF
intCnt = intCnt + 1%>

<%IF RS("check") = "ja" Then%>
<%fnamn = RS("rubrik")%>
<form method="post" action="2.asp" name="<%= fnamn%>">
  <a href="javascript:document.<%= fnamn%>.submit()"><%= fnamn%></a> 
  <input type="hidden" name="security" value="okej">
</form>
<BR>
<%Rs.MoveNext%
<%ELSE%
<%Rs.MoveNext%> 
<%END IF%>
<%Loop%>

<%
RS.close
set RS = nothing
%>

Bjarne AMedlem sedan feb. 2001151 inlägg

20 jan. 2004 12:34#2

Det verkar inte som någon har en lösning på det här...

Jag fick i stället skapa en ny post i databasen och slumpa in text i den för att använda som FORM namn
Nu får jag redigera databaser och fler sidor men...

J.N.Medlem sedan apr. 20031 660 inlägg

20 jan. 2004 14:16#3

HEJ!

Kan inte påstå att jag förstår dig:
1. Fungerar inte sessions i frame?
2. Varför kan du inte döpa formuläret från början?
3. Script på slumpning av diverse olika typer av strängar finns på internet.

Bjarne AMedlem sedan feb. 2001151 inlägg

22 jan. 2004 00:25#4

1. Nix, det fungerar inte med frames som hämtar in en sida från
en annan server. (glömde jag i första inlägget)

2. Om jag lopar fram Form så kan jag inte kalla alla form för
samma namn då strejkar browsern

3. Och slumpscript hittade jag och det fungerade ju att lägga till
det när man skapade posterna, men jag fick inte till det om det
var i hämtningkoden, och nu får jag lägga till poster manuellt i
färdiga sidor och deras databaser vilket jag tänkte slippa.

J.N.Medlem sedan apr. 20031 660 inlägg

22 jan. 2004 08:24#5

HEJ!

1. Okej, det förklarar ju en del!

2. Nej, det går ju inte!

3. Okej. Det återstår alltså ett problem, om jag tolkar dig rätt?
Dra det nya problem så kan vi kanske hjälpa dig.

Bjarne AMedlem sedan feb. 2001151 inlägg

22 jan. 2004 12:49#6

Jag är på samma problem men så här, kanske lite enklare skrivet.
Detta lopas fram från en databas

<form method="post" action="2.asp" name="<%Här skall lite unik text skapas%>">
  <a href="java script:document.<%samma text skall sedan stå här%>.submit()"><%= RS("rubrik")%></a> 
  <input type="hidden" name="security" value="okej">
</form>

J.N.Medlem sedan apr. 20031 660 inlägg

22 jan. 2004 13:02#7

HEJ!

Okej, kan du inte göra såhär:

kod för slumpning
slump=resultatfrånovan

<form method="post" action="2.asp" name="<%=slump%>">
  <a href="java script:document.<%=slump%>.submit()"><%= RS("rubrik")%></a> 
  <input type="hidden" name="security" value="okej">
</form>

Sedan kan man ju alltid förfina detta genom att kalla på en funktion i 'kod för slumpning' eller i name="...", som även sätter sin slumprad i en variabel.
Det går ju nämligen inte att kalla på funktionen en gång till, då blir det ju något annat!

Rätt förstått?

SebbeMedlem sedan jan. 20032 285 inlägg

22 jan. 2004 13:45#8

Såhär skulle det kanske kunna se ut:

Function SlumpText(intAntal)
  strLetters = "abcdefghijklmnopqrstuvwxyzåäö0123456789"
  Randomize

  For i = 1 To intAntal
    intSlump = Int(Rnd() * Len(strLetters)) + 1
    strSlump = strSlump & Mid(strLetters, intSlump, 1)
  Next

  SlumpText = strSlump
End Function

Do Until RS.EOF
  strSlump = SlumpText(20)

  Response.Write("<form method=""post"" action=""2.asp"" name=""" & strSlump & """>" & vbCrLf &_
"<a href=""java script:document." & strSlump & ".submit()"">" & RS("rubrik")" & "</a>" & vbCrLf &_ 
"<input type=""hidden"" name=""security"" value=""okej"">" & vbCrLf &_
"</form>")

  RS.MoveNext
Loop