René Holm wrote in dk.edb.internet.webdesign.serverside.asp:
> Er der nogen der har løsningen på hvordan man laver en mulighed
> for at lade en bruger logge ind og skrive eksempelvis et referat,
> som ligges på en side og samtidig kommer på forsiden af en
> hjemmeside i kort version, samtidig med at det hele tiden er den
> nyeste der står øverst? jeg kan som eks. nævne
>
www.hfk-haderslev.dk hvor man på forsiden har dette og kan vi
> punktet hjemmesider gå ind til de respektive hold?
>
> Jeg vil være glad hvis nogen kan linke til sider der beskriver
> dette
>
> På forhånd tak
>
> René Holm
>
Hvis jeg har forstået dit indlæg korret, så lyder det umiddelbart
som en ret stor opgave, hvor der både skal laves en slags community
(login, opret bruger osv.), mulighed for at skrive referat og sider
til at læse referaterne.
Hvis ikke du allerede har lavet login og opret bruger, så prøv at
finde nogle artikler på internettet, som omhandler dette.
Som jeg har forstået det, vil du gerne have at man kan skrive et
referat, og at det bagefter kan læses på forsiden (f.eks. de 100
første tegn i referatet), og at det kan læses i fuld version når man
klikker på "Læs mere" (altså nogenlunde ligesom mange laver et
nyhedssystem).
For at lave den del, vil jeg starte med at lave en side med en form,
hvor brugeren skriver deres referat, trykker "Indsend" og så bliver
de videresendt til en ny side, som gemmer referatet i en database.
Husk at skifte linjeskift ud med "<br>" og sørg også for at man ikke
kan bruge HTML; Referat = Server.HtmlEncode(Referat) og Referat =
Replace(Referat, VbCrLf, "<br>").
Hvert referat skal også tildeles et ID (ved hjælp af autonummering i
databasen).
Så laver du en forside hvor du kører en løkke, der henter alle
referaterne, altså efter du har oprette forbindelse til databasen
skriver du:
strSQL = "Select * from Referater Order By ID Desc"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF or rs.EOF) Then
Do While Not rs.EOF
Response.Write Left(rs("Referat"), 100) & "...<br>"
Response.Write "<a href='referat.asp?id=" & rs("ID") & "'>Læs
mere</a><br><br>"
rs.MoveNext
Loop
Else
Response.Write "Ingen referater fundet."
End If
Så åbner du referat.asp, skriver koden til at oprette forbindelse
til databasen og så skriver du:
ID = Request.QueryString("id")
If Not IsNumeric(ID) Or ID = "" Then
Response.Write "Fejl, id er ikke korrekt"
Else
strSQL = "Select * From Referater Where ID = " & ID
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF OR rs.EOF) Then
Response.Write rs("Referat")
Else
Response.Write "Referatet findes ikke."
End If
End If
Håber du kan finde ud af at kode ASP, ellers bliver dette lidt
svært. Du kan jo også prøve at finde nogle artikler på internettet.
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials