Avatar billede brian0905 Nybegynder
09. november 2004 - 15:38 Der er 7 kommentarer og
1 løsning

Jeg skal mixe disse 7 links

Hej alle,

Jeg er totalt dårlig til ASP, så jeg håber der er nogle der kan hjælpe. Jeg har 7 links (http://www.........osv) dem vil jeg gerne skrive ud på min side i forskellig orden hver gang siden loades. DVS. Jeg skal have mixet dem rundt så jeg viser dem i tilfældig rækkefølge. De ligger ikke i en database men skal sikkert hardcodes i et array.... nogle der kan hjælpe?
Avatar billede rashid Praktikant
09. november 2004 - 15:40 #1
prøv at se denne tutorial: http://www.haneng.com/lessons_2.asp
den beskriver lige det du skal bruge :-)
Avatar billede brian0905 Nybegynder
09. november 2004 - 15:51 #2
Som jeg læser det, så viser den kun een værdi, mens jeg vil vise alle værddierne bare i forskellig rækkefølge hver gang... dvs.

ved load af siden:

link1
link5
link3
link7
link2
link4
link6

anden gang siden loades:


link5
link1
link7
link2
link3
link6
link4

Dvs. Hver gang den skriver ud mixer den ALLE links
Avatar billede kalp Novice
09. november 2004 - 15:52 #3
<table width="431" height="8" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
                <tr bgcolor="#000000">
                  <td width="35%" bgcolor="#9FCFFF">
                    <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">Tilf&aelig;ldit
                      link! - Kalp</font> </b></font></div>
                  </td>
                  <td align="right" valign="bottom" nowrap width="65%" bgcolor="#9FCFFF">
                    <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
                      <font size="2">
                      <%
  Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
  Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM DINTTABEL"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>
                    <a href="<%= RS("link") %><%=RS("titel")%></a>
                      <%  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing%>
                      </font></font></div>
                  </td>
                </tr>
              </table>


det eneste du skal rette er dit database navn.. ja og hvis den ligger i en anden folder hvor..

og hvilken tabel dine links ligger i

og det sidste(en forklaring på det)

<a href="<%= RS("link") %><%=RS("titel")%></a>
   

<%=RS("titel")%>  ... det felt i din database hvor titel på linket er
<%= RS("link") %> ... det felt i din database hvor linket er!
Avatar billede kalp Novice
09. november 2004 - 15:53 #4
ops.. det var kun til et link... men det let nok.. du skal bare kopirer denne tekst

<a href="<%= RS("link") %><%=RS("titel")%></a>

6 gange mere

så får du 6 links mere!
Avatar billede kalp Novice
09. november 2004 - 15:54 #5
sådan

<table width="431" height="8" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
                <tr bgcolor="#000000">
                  <td width="35%" bgcolor="#9FCFFF">
                    <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">Tilf&aelig;ldit
                      link! - Kalp</font> </b></font></div>
                  </td>
                  <td align="right" valign="bottom" nowrap width="65%" bgcolor="#9FCFFF">
                    <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
                      <font size="2">
                      <%
  Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
  Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM DINTTABEL"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>
                    <a href="<%= RS("link") %><%=RS("titel")%></a> <br><a href="<%= RS("link") %><%=RS("titel")%></a> <br><a href="<%= RS("link") %><%=RS("titel")%></a> <br><a href="<%= RS("link") %><%=RS("titel")%></a> <br><a href="<%= RS("link") %><%=RS("titel")%></a> <br><a href="<%= RS("link") %><%=RS("titel")%></a>
                      <%  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing%>
                      </font></font></div>
                  </td>
                </tr>
              </table>
Avatar billede kalp Novice
09. november 2004 - 15:56 #6
det kræver kan jeg se at du har en database:o) hehe

men til mit forslag.. hvis du laver en database... og fylder den op med links.. så vil den bare udvælge 7 forskellige links hver gang!

du kan også bare have 7 links i den
Avatar billede brian0905 Nybegynder
09. november 2004 - 15:59 #7
Kan det gøres uden en database, men blot hvor jeg har et array med værdierne i?

altså:
dim array(7)


array(1)="link1"
array(2)="link2"
array(3)="link3"
array(4)="link4"
array(5)="link5"
array(6)="link6"
array(7)="link7"

hokus-pokus funktion.....og vupti så er de udskrevet tilfældigt
Avatar billede kalp Novice
03. januar 2005 - 22:28 #8
problemet løst? hvis ja husk at lukke spørgsmålet
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester