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

bjarke-b Nybegynder

11. juni 2000 - 13:04 Der er 35 kommentarer og
1 løsning

Artikel system - let for jer - svært for mig

Kan i hjælpe mig ?
Jeg skal have lavet et artikel system sådan at man kan tilføje artikler til en database.
Det skal være sådan at for og lægge en artikel skal man logge ind (Der er flere forskellige skribenter) Så skriver man den og poster den så kommer der automatisk navn o.s.v kig på www.award.zyber.dk under artikler det skal være sådan bare lettere og via admin.
Man skal kunne indtaste artiklens titel, artiklen og så skriver den selv at hvem og hvornår det er tilføjet, (Navnene skal jo være forskellige efter hvem der er logget ind)

Synes godt om

ortrak Nybegynder

11. juni 2000 - 13:21 #1

hvornår skal du bruge det?

/ortrak

Synes godt om

nse Nybegynder

11. juni 2000 - 13:22 #2

Det vil jeg godt lave til dig.
Hvad er din e-amil????

Synes godt om

bjarke-b Nybegynder

11. juni 2000 - 13:25 #3

Bjarke-B@forum.dk

Synes godt om

jimmidreng Nybegynder

11. juni 2000 - 14:37 #4

Sikke en masse point du kaster i grams.
Hyg dig en dags tid på www.learnasp.com eller www.activeserverpages.dk, og du kan spare 1115 af de go'e!

Synes godt om

bjarke-b Nybegynder

11. juni 2000 - 16:21 #5

ortrak --> Jeg skal bruge det så hurtigt som muligt!

Synes godt om

ortrak Nybegynder

11. juni 2000 - 18:55 #6

Jeg kan lave det til dig, så du har det i morgen. Men kun hvis jeg får lovning på, at du ikke sætter andre til at lave det.

/ortrak

Synes godt om

bjarke-b Nybegynder

11. juni 2000 - 21:03 #7

ortrak,
Det gør jeg ikke!

Synes godt om

Slettet bruger

11. juni 2000 - 23:30 #8

Jeg vil lave det for 600point... til i overmorgen..

Synes godt om

tomsommer Juniormester

11. juni 2000 - 23:50 #9

Hvorfor fanden downloader du ikke bare et system fra http://netcoders.dk eller http://activeserverpages.dk ????

Synes godt om

bjarke-b Nybegynder

12. juni 2000 - 11:13 #10

dk-host , et løfte er et løfte, og jeg er ligeglad med de point!

Synes godt om

ortrak Nybegynder

12. juni 2000 - 12:42 #11

bjarke-b: Tjeck lige din e-mail...

/ortrak

Synes godt om

ortrak Nybegynder

12. juni 2000 - 19:14 #12

kører det, bjarke-b?

/ortrak

Synes godt om

bjarke-b Nybegynder

12. juni 2000 - 19:30 #13

Hej ortrakm, jeg kan ikke finde ud af om det virker før på lørdag
Men hav tålmodighed!

Synes godt om

morpheus Nybegynder

13. juni 2000 - 17:58 #14

Koden skal være tilgængelig for brugere af eksperten...

<//morpheus\\>

Synes godt om

tomsommer Juniormester

13. juni 2000 - 18:00 #15

yes...

Synes godt om

ortrak Nybegynder

13. juni 2000 - 18:37 #16

Der er ikke noget der *skal* være tilgængeligt. Men det bør det, dels i betragtning af den stigende tendens til snyd.
So here you go...

Synes godt om

ortrak Nybegynder

13. juni 2000 - 18:38 #17

admin.asp

<% response.buffer=True
session.LCID=1030
response.expires = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>



<%
'hvilken sub skal kaldes
action = request.QueryString("action")

if action = "newarticle" then
Call WriteNewArticle
else
if action = "showarticle" then
Call ShowCurArticle
else
if action = "savenewarticle" then
SaveNewArticle
else
if action = "delarticle" then
DeleteCurArticle
else
Call ListArticles
end if
end if
end if
end if

'obligatorisk login-endif
end if

%>

<% Sub DeleteCurArticle

curid = Trim(request.QueryString("id"))

if curid = "" then
error = "Artiklen kunne ikke findes.Fejl(1).<br>"
end if

if error = "" then

SQL = "DELETE * FROM articles WHERE ID = " & curid
%><%

Connect.Execute(SQL)

Connect.Close
Set Connect=nothing

response.write "Artiklen er blevet slettet.<br><br>"
Call ListArticles

else
response.write error
end if

End Sub %>

<% Sub ShowCurArticle
%>
<font face="Verdana" size="2" color="Black"><b>Artikelinfo</b></font>
<br><br>

<%
curid = Trim(request.QueryString("id"))

if curid = "" then
error = "Artiklen kunne ikke findes.Fejl(1).<br>"
end if

if error = "" then

SQL = "SELECT * FROM ARTICLES WHERE ID = " & curid
%><%
Set RS = Connect.Execute(SQL)

if not rs.eof then

%>
<font face="Verdana" size="1" color="Black">
Tryk <a href="admin.asp?action=delarticle&id=<%=curid%>">her</a> for at slette artiklen.
</font>

<br><br>

<table width="400">

<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Forfatter</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=RS("AUTHOR")%>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Tidspunkt</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=FormatDateTime(RS("WRITETIME"))%>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Titel</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=RS("TITLE")%>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;" valign="top">
<b>Artikel</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=RS("ARTICLE")%>
</td>
</tr>

</table>
<%

else
error = "Artiklen kunne ikke findes.Fejl(2).<br>"

end if

Connect.Close
Set Connect=nothing

end if

if error <> "" then
response.write error
end if

End Sub %>

<% Sub SaveNewArticle

title = Trim(request.Form("title"))
article = Trim(request.Form("article"))

if title = "" then
error = error & "Du skal skrive en titel.<br>"
end if

if article = "" then
error = error & "Du skal skrive en artikel.<br>"
end if

if error = "" then

article = Replace(article, vbCrLf, "<br>")

SQL = "INSERT INTO articles (TITLE, ARTICLE, AUTHOR, WRITETIME) VALUES ('"
SQL = SQL & Replace(title, "'", "''") & "', '" & Replace(article, "'", "''") & "', '" & Replace(Session("accessname"), "'", "''") & "', '" & now & "')"

%><%

Connect.Execute(SQL)

Connect.Close
Set Connect=nothing
response.write "Artiklen er gemt.<br><br>"
Call ListArticles

else
response.write error

end if

End Sub %>

<% Sub WriteNewArticle
'ny artikel

%>
<font face="Verdana" size="2" color="Black"><b>Skriv ny artikel</b></font>
<br><br>
<form action="admin.asp?action=savenewarticle" method="post">
<table width="400">
<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Titel</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<input type="text" size="30" maxlength="40" name="title">
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;" valign="top">
<b>Artikel</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<textarea name="article" cols="50" rows="20"></textarea>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;" valign="top">
 
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<input type="submit" name="save" value="Gem artikel">
</td>
</tr>

</table>
</form>

<%

End Sub %>

<% Sub ListArticles
'List alle skrevne artikler

'inkluder connection
%><%

%>
<a href="admin.asp?action=newarticle">Skriv ny artikel</a><br><br>
<%

SQL = "SELECT * FROM articles ORDER BY WRITETIME DESC"

Set RS = Connect.Execute(SQL)

if not rs.eof then
%>
<font face="Verdana" size="2" color="Black"><b>Artikler</b></font>
<br><br>
<table width="300">
<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Titel</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Forfatter</b>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<b>Dato</b>
</td>
</tr>

<%
do while not rs.eof
%>
<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<a href="admin.asp?action=showarticle&id=<%=RS("ID")%>"><%=RS("TITLE")%></a>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=RS("AUTHOR")%>
</td>
<td style="font-size:9 pt;font-family:Verdana;">
<%=FormatDateTime(RS("WRITETIME"))%>
</td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<%
end if

RS.Close
Set RS=nothing
Connect.Close
Set Connect=nothing

End Sub %>

</body>
</html>

Synes godt om

ortrak Nybegynder

13. juni 2000 - 18:38 #18

default.asp

<% response.buffer=True
session.LCID=1030
response.expires = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>

<%
'hvilken sub skal kaldes
action = request.QueryString("action")

if action = "showarticle" then
Call ShowCurArticle
else
Call ListArticles
end if

%>

<% Sub ShowCurArticle
curid = Trim(request.QueryString("id"))

if curid = "" then
error = "Artiklen kunne ikke findes.Fejl(1).<br>"
end if

if error = "" then

SQL = "SELECT * FROM ARTICLES WHERE ID = " & curid
%><%
Set RS = Connect.Execute(SQL)

if not rs.eof then
title = RS("TITLE")
%>

<table width="400">

<tr>
<td style="font-size:9 pt;font-family:Verdana;" align="center">
<b><%=title%></b>
<br><br>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<%=title%> af <%=RS("AUTHOR")%> skrevet d. <%=FormatDateTime(RS("WRITETIME"), 1)%>
</td>
</tr>

<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<br><br>
<%=RS("ARTICLE")%>
</td>
</tr>

</table>
<%

else
error = "Artiklen kunne ikke findes.Fejl(2).<br>"

end if

Connect.Close
Set Connect=nothing

end if

if error <> "" then
response.write error
end if

End Sub %>

<% Sub ListArticles
'List alle skrevne artikler

'inkluder connection
%><%

SQL = "SELECT * FROM articles ORDER BY WRITETIME DESC"

Set RS = Connect.Execute(SQL)

if not rs.eof then
%>
<table width="300">
<%
do while not rs.eof
%>
<tr>
<td style="font-size:9 pt;font-family:Verdana;">
<a href="default.asp?action=showarticle&id=<%=RS("ID")%>">
<%=RS("TITLE")%> af <%=RS("AUTHOR")%> d. <%=FormatDateTime(RS("WRITETIME"), 1)%>
</a>
<br>
<%
article = RS("ARTICLE")
if len(article) > 100 then
response.write Left(article, 100) & "..."
else
response.write article & "..."
end if

%>
<br>
<a href="default.asp?action=showarticle&id=<%=RS("ID")%>">
Læs mere...
</a>
<br>
<br>
</td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<%
end if

RS.Close
Set RS=nothing
Connect.Close
Set Connect=nothing

End Sub %>

</body>
</html>

Synes godt om

ortrak Nybegynder

13. juni 2000 - 18:39 #19

connect.asp

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Path = "DBQ=c:\inetpub\DB\artikler.mdb"
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Path

%>

Synes godt om

ortrak Nybegynder

13. juni 2000 - 18:41 #20

login.asp

<%

if (Session("access") <> "granted") then

loginaction = Trim(request.Form("loginaction"))

if (loginaction = "checklogin") then

strUsername = Trim(Replace(cStr(Request.Form("loginusername")), "'", "''"))
strPassword = Trim(Replace(cStr(Request.Form("loginpassword")), "'", "''"))

SQL = "SELECT * "
SQL = SQL & "FROM authors "
SQL = SQL & "WHERE USERNAME='" & strUsername & "' AND PASSWORD='" & strPassword & "'"

%><%

Set RS = Connect.Execute(SQL)
If (RS.BOF Or RS.EOF) Then
error = "<br>Forkert brugernavn eller password!<br>"
Else

For i = 0 to RS.Fields.Count - 1
If RS(i).Name = "PASSWORD" Then
strPasswordDB = Trim(RS(i).Value)
End If
Next
If strPasswordDB = strPassword Then
Session("access")="granted"
Session("accessname")= Trim(RS("NAME"))
end if
End If
RS.Close
Set RS=nothing
Connect.Close
Set Connect=nothing

end if

end if

if (Session("access") <> "granted") then

location = Request.ServerVariables("SCRIPT_NAME")

%>

<form action="<%= location %>" method="post" name="loginform">
<table width="300" bgcolor="white" align="center" valign="top" border="0" cellspacing="0" cellpadding="0">
<%
if (error <> "") then
%>

<tr>
<td width="500" valign="top" align="center" style="font-size:9 pt;font-family:Verdana;">
<b><%= error %></b><br>
</td>
</tr>

<% end if %>

<tr>
<td width="500" valign="top" align="center" style="font-size:9 pt;font-family:Verdana;">
Indtast dit brugernavn og password.<br><br>
</td>
</tr>

<tr>
<td width="500" valign="top" align="center">
<table width="100%" bgcolor="white" align="center" valign="top" border="0" cellspacing="2" cellpadding="0">
<tr>
<td valign="top" align="left" width="130" nowrap>
<span style="font-size: 9 pt;"><b>Brugernavn:</b></span>
</td>

<td width="100%" valign="top" align="left" >
<input type="text" size="20" maxlength="35" name="loginusername" value="" style="background: #EEEEEE;font-family: Verdana; font-size: 8 pt;">
</td>
</tr>
</table>
</td>
</tr>

<tr>
<td width="500" valign="top" align="center" >
<table width="100%" bgcolor="white" valign="top" border="0" cellspacing="2" cellpadding="0">
<tr>
<td valign="top" align="left" width="130" nowrap>
<span style="font-size: 9 pt;"><b>Password:</b></span>
</td>

<td width="100%" valign="top" align="left" >
<input type="password" size="20" maxlength="35" name="loginpassword" value="" style="background: #EEEEEE;font-family: Verdana; font-size: 8 pt;">
</td>
</tr>
</table>
</td>
</tr>

<tr>
<td width="500" valign="top" align="center" >
<table width="100%" bgcolor="white" valign="top" border="0" cellspacing="2" cellpadding="0">
<tr>
<td valign="top" align="left" width="130" nowrap>
 
</td>

<td width="100%" valign="top" align="left" >
<input type="submit" name="save" value=" Login " style="background: #EEEEEE;font-family: Verdana; font-size: 8 pt;">
</td>
</tr>
</table>
</td>
</tr>

</table>

<input type="hidden" name="loginaction" value="checklogin">
</form>

<br>

<%
else
%>

Synes godt om

morpheus Nybegynder

14. juni 2000 - 13:37 #21

Takker ! :o)

Så er alt igen iorden !

<//morpheus\\>

Synes godt om

ortrak Nybegynder

14. juni 2000 - 14:25 #22

morpheus:
det var så lidt...
Alt er i orden bortset fra mine point :-]

/ortrak

Synes godt om

morpheus Nybegynder

14. juni 2000 - 14:33 #23

Ortrak:
Lige en sidste kommentar:

Hvordan ser databasen ud ????

<//morpheus\\>

Synes godt om

bjarke-b Nybegynder

15. juni 2000 - 15:57 #24

Hej Ortrak,
ja jeg ved ikke med dig - men jeg får denne fejl: Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Filen "(ukendt)" kan ikke findes.

/windows/profiles/Bjarke Bekhøj/Skrivebord/ny/artikler/Connect.asp, linje 4

Synes godt om

bjarke-b Nybegynder

15. juni 2000 - 15:58 #25

Jeg får op til FLERE fejl!
Du får sq ikke de point før du kan komme med noget der virker!

Synes godt om

bjarke-b Nybegynder

15. juni 2000 - 15:58 #26

Fejl i login.asp:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03f6'

'End' var ventet

/windows/profiles/Bjarke Bekhøj/Skrivebord/ny/artikler/login.asp, linje 151

Synes godt om

ortrak Nybegynder

15. juni 2000 - 17:25 #27

Hej Bjarke-b.
Vi starter fra en ende af.
"Microsoft][ODBC Microsoft Access-driver] Filen "(ukendt)" kan ikke findes.
". Det er nok fordi du ikke har angivet den rigtige sti til databasen. Dette gøres i connect.asp.

Bortset fra det: Er "/windows/profiles/Bjarke Bekhøj/Skrivebord/ny/artikler/Connect.asp" virkelig en webmappe?

" Fejl i login.asp:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03f6'

'End' var ventet
"
Denne fejl opstår hvis du prøver at køre login.asp alene!!
Login.asp er en include-fil som beskytter admin.asp. Du skal kun bruge admin.asp og default.asp.

/ortrak

Synes godt om

bjarke-b Nybegynder

15. juni 2000 - 18:21 #28

Øhh, jeg har bare skrevet artikler.mdb som sti!

Synes godt om

ortrak Nybegynder

15. juni 2000 - 19:47 #29

Den nuværende sti ser sådan her ud:
Path = "DBQ=c:\inetpub\DB\artikler.mdb"

Hvis du vil lægge databasen i samme mappe som admin.asp og default.asp, så skriv:
Path = "DBQ=" & Server.MapPath("artikler.mdb")

Men jeg foreslår at du lægger den i en mappe som ikke er tilgængelig fra webbet. Ergo kan skal du helst ikke bruge den sidste løsning...

/ortrak

Synes godt om

jimmidreng Nybegynder

15. juni 2000 - 22:38 #30

Ortrak's kode fungere perfekt, det er som Ortrak selv skriver, et minimum af ændringer der skal til før at det kører!

Synes godt om

bjarke-b Nybegynder

16. juni 2000 - 14:16 #31

sådan, skulle lige forstå koden :-)
Er lidt lost m.h.t asp kodning

Synes godt om

kapsel Nybegynder

17. juni 2000 - 18:24 #32

det er sgu ikke det eneste du er lost til.. *fniz*

/bonk ch@tm@n

Synes godt om

8800 Nybegynder

15. september 2000 - 14:16 #33

Send en kopi til mig: Bjorn.B@mail1.stofanet.dk !!

Synes godt om

lowyloas Nybegynder

25. november 2002 - 01:26 #34

Ortrak's Kan du ikke lave sådan at der kan indsættes et billede i txt hvis det er ?

Synes godt om

cade.dk Nybegynder

08. januar 2003 - 18:42 #35

paw@cade.dk - leder os efter sådan system ;D!

Synes godt om

sth Novice

11. maj 2003 - 16:50 #36

hej ortrak
Er det sådan at jeg kunne få dig til at sende mig en kopi, hvor databasen er med ?

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
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

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Røde Kors

Dataanalytiker til Udvikling

Politi

Senior udvikler med kompetencer inden for .NET og interesse for AI søges til Rigspolitiet

Itm8

Senior Sales Development Representative (SDR) til nyt Outbound Team (B2B)

Dynamicweb Software A/S

Solution Architect

Statens IT

Knowledge Process Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling