CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

tingo Nybegynder

20. juli 2006 - 20:16 Der er 2 kommentarer

Nyhedsscript men arkivsystem "mangler"

Hej Eksperter
Jeg benytter et ASP nyhedsscipt på hjemmesiden www.skovbakken.dk/fodbold . Jeg har meget lidt forstand på ASP men kan se at det er kodet således at der vises 6 nyheder, derefter SKULLE den selv oprette sider, altså hvis der er mere end 6 nyheder, så skal man ku vælge side.. en fil som hedder oversigt.asp, i admin delen, men denne fil eksistere ikke, og jeg kan ikke finde ud af at kode en sådan, for hvad skal den indeholde... meningen med det hele skulle gerne være en form for arkiv funktion, så altså når der er de 6 nyheder på "forsiden" og en ny kommer til, flyttes nederste nyhed til side 1 (arkiv) osv. Er der nogen der kan lave sådan en fil til mig, som sagt skulle de være kodet ind i scriptet men filen mangler altså... Hvis du vil bruge din tid på dette skal du sikkert bruge nogle af de filer som scriptet benytter og dem skal jeg gerne sende til dig så snart jeg kender din e-mail...

hvis det er til nogen hjælp ligger systemet på denne server adr:
http://www.skovbakkenfodbold.dk/Dokumenter/news/

Synes godt om

tofte Juniormester

21. juli 2006 - 07:47 #1

Du burde forholdsvis simpelt kunne lave din news side om, så den viser alle nyhederne. Så hvis du vil lave et "arkiv", skal du jo bare have den til at vise alle i stedet for de 6 første.

-Start med at lave en kopi af siden og omdøb denne til arkiv.asp eller hvad du nu vil have den til at hedde
-Hvis du bruger en access database skal du søge på TOP, og du vil sikker finde et sted hvor der står TOP 6 og en masse mere. Slet "TOP 6" og så burde den vise alle nyheder.

Det kan også være det er lavet på en andne måde, men smid koden her, så burde det være nemt at få til at køre.

Synes godt om

tingo Nybegynder

21. juli 2006 - 15:34 #2

Her er kildekoden for "redigere.asp" den er den fil som findes i admin modulet som du/i kan se er der nederst i koden et link til "oversigt.asp" - filen der mangler...

<% Session.LCID =1030 %>




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Skovbakken Fodbold | Nyhedssystem ver 1.0 | REDIGER</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="http://www.skovbakken.dk/fodbold/css_news/style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#6C0000" height="17"> <font color="#FFFFFF"><b>Admin-System</b></font></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2">
<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%>
</td>
</tr>
<tr>
<td colspan="2">  </td>
</tr>
<tr>
<td width="20%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="tilfoj.asp">
Tilføj Artikel</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="redigere.asp">
Redigere/Slet</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="kommentare.asp">
Kommentare</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="stats.asp">
Stats</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="logoff.asp">
Logaf</a></td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
</table></td>
<td width="86%" valign="top"><div align="center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, dato, id, skrevet FROM tabel"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/jittytre.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 7
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
response.write("<table border=0 width=500>")
response.write("<tr><td width=30>")

response.write("<a href=ret_artikel.asp?id=")
response.Write(rs("id"))
response.write(">")

response.write("<img src=""../img/admin/zoom.gif"" width=""22"" height=""22"" border=""0"" alt="""">" & "</a>" & " ")

response.write("</td><td width=200>")

response.Write("" & rs("overskrift") & "" & "<br>")

response.write("</td><td width=""30"">")

response.write("<a href=""slet_artikel.asp?id=")
response.Write(rs("id"))
response.write(""">")
response.write("<img src=""../img/admin/slet.gif"" width=""22"" height=""22"" border=""0"" alt="""">" & "</a>" & " ")

response.write("</td></tr>")
response.write("</table>")
response.write("<table border=0 width=500>")
response.write("<tr><td height=1 bgcolor=#E9E9E9>")
response.write(" ")
response.write("</td></tr>")
response.write("</table>")

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=oversigt.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=oversigt.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=oversigt.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</div></td>
</tr>
</table>
</body>
</html>

Her er kildekoden til default.asp - i hovedmodulet, altså den side der er vist først på www.skovbakken.dk/fodbold

<% Session.LCID =1030 %>




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Skovbakken Fodbold | Nyhedssystem ver 1.0</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="http://www.skovbakken.dk/fodbold/css_news/style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="354" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="354">
<% dim rs, SQLstringK, Record, sngGns %>
<% intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/jittytre.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, indledning, id, skrevet, dato FROM tabel order by dato DESC"
rs.Open strSQL, connection, 1, 3

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0

strSQL = "SELECT COUNT(id) as found FROM produkt WHERE Category = " & rs("id") & ""
Set record = Connection.Execute(strSQL)
Ialt = Record("found")

response.write("<table width=""399"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
response.write("<tr>")
response.write("<td width=""397"">")

response.write("<table width=""383"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
response.write("<tr><td height=""12""><img src=""img/pil.gif"" alt="""">" & " ")
response.write("<a href=vis_nyhed.asp?id=")
response.Write(rs("id"))
response.write(">")
response.Write("<font size=""2""><b>" & rs("overskrift") & " </b></font></a>")
response.write("</td>")
response.write("</tr>")
response.write("<tr><td height=""2"">")
response.write("</td></tr>")
response.write("</table>")
response.write("<table width=""383"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
response.write("<tr><td>")
response.Write(rs("indledning"))
response.write("</td>")
response.write("</tr><tr><td height=""2"">")
response.write("</td></tr><tr><td>")
response.write(""& rs("dato") & " ")
response.write("| ")
response.write(""& rs("skrevet") & " | ")
response.write("</td>")
response.write("</tr><tr><td height=""2"">")
response.write("</td></tr><tr>")
response.write("<td height=""4"">")
response.write("</td></tr>")
response.write("</table>")

response.write("</td>")
response.write("</tr>")
response.write("</table>")
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p> "
For intNum = 1 To intPageCount

Next

Response.Write "<p>"
If Clng(intPage) > 1 Then

Else

End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then

Else
End If
%>
</td>
</tr>

</table>
</body>
</html>

Er det de rigtige kildekoder?? der er jo en del filer i selve scriptet...

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS