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

23/12

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

Specsavers

Head of Marketing Technology – Northern Europe (NE)

Statens IT

Erfaren og initiativrig Access Management-profil

Udlændinge- og Integrationsministeriet

Tværgående it-koordinatorer søges til stabsenhed i Koncern It

Udviklings- og Forenklingsstyrelsen

Har du lyst til at arbejde med backup i en stor koncern?

Region Sjælland

Udvikler til Identity Management teamet i Koncern Digitalisering

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

20 min siden	Nyt tekstdokument er forsvundet. Af valby i Windows
I dag 16:48	"Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
I går 19:53	CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42	Katastrofe med Pc Af LilBe i PC
I går 09:44	Mine emails kan pluselig ikke læses af modtagerne, kun uforståelige tal og bogstaver Af gunnarb i E-mail programmer