nyhetssystems uppgradering...

3 svar · 221 visningar · startad av Grymt 13 mars 2001

GrymtMedlem sedan dec. 20011 685 inlägg

Frågan13 mars 2001 18:56#1

hejsan.. har fått ett nyhetscript och vill göra om det lite...
Nu är det så att den visar ett antal rubriker som är länkar. När man klickar på rubriken visas nyheten. Kan man göra om scriptet så att senaste nyheten visas på förstasidan och att man lägger till något så att den delas upp efter månader... om någon fattar.

Mars; visas alal nyheter från mars och när det blir april visas alla från april? Jag är inte vass på ASP så om någon vill får de gärna hjälpa mig att göra klart ett sådant nyhetssystem.

Här kommer 2 olika filer jag använder, index.asp och news.asp

<%
i = 0
Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("database/nyheter.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Addera1 = "SELECT * FROM nyheter order by id DESC"
RS.Open Addera1, Connect1

%> <% do while not rs.eof
i=i+1
if i <= 3 then %>

<a href=news.asp?id=<%=RS("id")%> TARGET="main"><%=RS("rubrik")%></a>
<%=RS("datum")%>

<%
end if
RS.MoveNext
Loop

RS.Close

Connect1.Close

%\>

och sen har vi news.asp

<html>

<head>
<title>Grymt</title>

</head>

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("database/nyheter.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter where id = " & Request.QueryString("id") & " "

set RS = connect.execute(Addera)

<%=rs("rubrik")%>


<%
ord = rs("nyhet")

minArray = Split(ord)
count=1
For each ord In minArray

str = str & ord & " "
if count Mod 9 = 0 then str = str & " "
count= count+1
Next

%><%=str%> 
Av: <%=rs("av")%>, <%=rs("datum")%> 
 <%
RS.Close
Connect.Close
%>

</td>
</tr>
</table>
</body>
</html>

MVH Grymt (han som väntar något bra från alla asp-gurus som är bäst) än så länge.... ;)

------------------
Jag är lite borta men lämna ett meddelande

RossifumiMedlem sedan okt. 20001 558 inlägg

13 mars 2001 20:36#2

Detta är bara kopierat rätt av ifrån koden på min sida. Men du kan nog fixa lite :)

<% Option Explicit %>

<!-- #include virtual = "/includes/db_open.asp" -->

<%

Dim strDatum, currDate, antalNyheter, Count

If Request.QueryString("manad") = "" OR Request.QueryString("manad") > 12 Then

	currDate = Mid(Date,6,2)
Else
	currDate = Request.QueryString("manad")
End If

Select Case currDate
	Case "00"
		strDatum = "år 2000</b>"
	Case "01"
		strDatum = "Januari</b> månad"
	Case "02"
		strDatum = "Februari</b> månad"
	Case "03"
		strDatum = "Mars</b> månad"
	Case "04"
		strDatum = "April</b> månad"
	Case "05"
		strDatum = "Maj</b> månad"
	Case "06"
		strDatum = "Juni</b> månad"
	Case "07"
		strDatum = "Juli</b> månad"
	Case "08"
		strDatum = "Augusti</b> månad"
	Case "09"
		strDatum = "September</b> månad"
	Case "10"
		strDatum = "Oktober</b> månad"
	Case "11"
		strDatum = "November</b> månad"
	Case "12"
		strDatum = "December</b> månad"
End Select

mySQL = "SELECT COUNT(newsDate) AS newsCount FROM newsTable WHERE Mid(newsDate,6,2) = " & currDate
Set Count = objConn.Execute(mySQL)

antalNyheter = Count("newsCount")

Dim strNews, countColor, bgColor

	mySQL = "SELECT * FROM newsTable WHERE Mid(newsDate,6,2) = " & currDate & " ORDER BY newsDate DESC"
	Set objRS = objConn.Execute(mySQL)

	countColor = 0

	If objRS.EOF Then
		strNews = strNews & "<tr><td bgcolor=""#223344"" class=""white"" width=""470"" align=""left"" valign=""top""><b>Inga nyheter hittades</b></td></tr><tr><td bgcolor=""#cdcdcd"" class=""normal"" width=""470"">Välj en annan månad i dropmenyn till vänster.</td></tr>"
	Else
	
	Do While Not objRS.Eof

	countColor = countColor + 1	
	If countColor mod 2 = 0 Then
		bgColor = "#cdcdcd"
	Else
		bgColor = "#efefef"
	End If

	strNews = strNews & "<tr><td bgcolor=""#223344"" class=""white"" width=""470"" align=""left"" valign=""top""><b>" & Right(Replace(objRS("newsDate"),"-","/"),5) & "</b> &#0124; <b>" & objRS("newsHeader") & "</b></td></tr><tr><td bgcolor=""" & bgColor & """ class=""normal"" width=""470"">" & objRS("newsContent") & "</td></tr>"

	objRS.MoveNext
	Loop

	End If
%>
<!-- include virtual = "/includes/db_close.asp" -->

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho

GrymtMedlem sedan dec. 20011 685 inlägg

14 mars 2001 14:40#3

tack.. en sak bara... db_open.asp och db_close.asp vad har du i dem?

får trixa och mixa lite nu och hoppas på ett bra resultat ;)

Annars vet jag att du alltid hjälper mig Rossifumi.. .eller ;)

------------------
Jag är lite borta men lämna ett meddelande

RossifumiMedlem sedan okt. 20001 558 inlägg

14 mars 2001 15:36#4

db_open.asp

<% 
Dim objConn, MdbFilePath, mySQL, objRS

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/includes/databas.mdb")
%>

db_close.asp

<% 
objRS.Close
objConn.Close
Set MdbFilePath = Nothing
Set mySQL = Nothing
Set objRS = Nothing
Set objConn = Nothing
%>

Självklart hjäper jag dig :)

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho