Dagbog system

Søg på google.com med flg.:

"blog" +asp +script +download

//>Rune

Ja godt svar. Har søgt eks på solutions2all

lav det da selv...

du skal sku da bare følge alle de guider der findes rundt omkring... f.eks. på http://www.html.dk/tutorials/asp/ - der står jo alle de connections, der skal til, for at hente, sende, opdatere og slette ting i en database..
- og du kan forhåbentlig html!?

Selvfølgelig kan jeg html. Har også forsøgt at lave en men kan ikke lige finde ud af det....

Jeg har dagbog.asp jeg vil gerne ha så man kan gøre eks sådan her
dagbog.asp?id=1 så kommer man ind på  eks Jespers dagbog også kan man gå vidre der fra til se_dagbog.asp?id=1 også vis det er Tests dagbog dagbog.asp?id=2 og view_dagbog.asp?id=2 view_dagbog.asp kan jeg selv lave

ok.. laver en til dig.. 10 min.

/jsc

Så har jeg lavet en lille dagbog til dig. du skal oprette en database med et tabelnavn du selv vælger.
derefter skal du oprette kolonnerne: id, person, besked, dato

når du har gjort det, så skal du indstille følgende kode (kun det øverste, det stykke, der hedder dbvalg.asp til dine egne instillinger)

to filer:
---------- dbvalg.asp ----------------

<%
'--------DB START---------------

if database = "mysql" then
    '- MYSQL -
    datasaetning = ""
    dbserver = "mysql database server adresse"
    dbnavn  = "database"
    dbuser  = "brugernavn"
    dbpass  = "password"
    dbtabel  = "TABELNAVN"


    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={MySQL}; server=" & dbserver & "; database=" & dbnavn & "; uid=" & dbuser & "; pwd=" & dbpass & ";"


elseif database = "access" then
    '- ACCESS -
    datasaetning = Server.MapPath("db.mdb")
    dbserver = ""
    dbnavn  = ""
    dbuser  = ""
    dbpass  = ""
    dbtabel  = "TABELNAVN"

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & datasaetning & ";UID=" & dbuser & ";PWD=" & dbpass & ";"
    Conn.Open DSN


else
'- ERROR -
    datasaetning = ""
    dbserver = ""
    dbnavn  = ""
    dbuser  = ""
    dbpass  = ""
    dbtabel  = ""
    systembesked = "Fejl: Database-variablen er ikke defineret rigtig."
end if

'--------DB SLUT---------------
%>





-------- default.asp ----------


<%
filnavn = "default.asp"

database = "access" 'sætte iforhold til database connection

v1 = "a"
v2 = "b"
v3 = "c"
v4 = "d"







'liste over dagbøger i databasen

if request(v1) = "liste" then

%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from (select person FROM " & dbtabel & " GROUP BY person)"
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Der er ingen dagbøger i databasen..."
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD><a href="<%=filnavn%>?<%=v1%>=se_dagbog&<%=v2%>=<%=rs("person")%>"><%=rs("person")%></A></TD>
</TR>
</TABLE>



<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing








' se dagbogs liste for person

elseif request(v1) = "se_dagbog" then


%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from " & dbtabel & " where person = '" & request(v2) & "'"
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Der er ingen poster i personens dagbog..."
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD><a href="<%=filnavn%>?<%=v1%>=laes_dagbog&<%=v2%>=<%=rs("id")%>"><%=rs("dato")%></a></TD>
</TR>
</TABLE>



<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing









' læs den enkelte dagbog for personen

elseif request(v1) = "laes_dagbog" then

%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from " & dbtabel & " where id = " & request(v2)
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Posten findes ikke!"
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD>Dagbog for: <%=rs("person")%></TD>
    <TD ALIGN="right"><%=rs("dato")%></TD>
</TR>
<TR>
    <TD VALIGN="top" COLSPAN="2"><%=rs("besked")%></TD>
</TR>
</TABLE>




<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing

%>





<%
else
response.redirect filnavn & "?" & v1 & "=liste"

end if

%>



------------------

du skal ikke rette på default.asp med mindre du opretter en anden database end Microsoft Access! - ellers, så ret database variablen.

håber du kan bruge det - slut herfra!

/jsc

Det var noget af en besværlig kode.
Jeg har en config.asp
Jeg køre med Mysql
Hele denne kode være i default.asp
-------- default.asp ----------


<%
filnavn = "default.asp"

database = "access" 'sætte iforhold til database connection

v1 = "a"
v2 = "b"
v3 = "c"
v4 = "d"







'liste over dagbøger i databasen

if request(v1) = "liste" then

%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from (select person FROM " & dbtabel & " GROUP BY person)"
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Der er ingen dagbøger i databasen..."
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD><a href="<%=filnavn%>?<%=v1%>=se_dagbog&<%=v2%>=<%=rs("person")%>"><%=rs("person")%></A></TD>
</TR>
</TABLE>



<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing








' se dagbogs liste for person

elseif request(v1) = "se_dagbog" then


%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from " & dbtabel & " where person = '" & request(v2) & "'"
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Der er ingen poster i personens dagbog..."
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD><a href="<%=filnavn%>?<%=v1%>=laes_dagbog&<%=v2%>=<%=rs("id")%>"><%=rs("dato")%></a></TD>
</TR>
</TABLE>



<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing









' læs den enkelte dagbog for personen

elseif request(v1) = "laes_dagbog" then

%>
<!-- #include file="dbvalg.asp" -->
<%

strSQL = "Select * from " & dbtabel & " where id = " & request(v2)
Set rs = Conn.Execute(strSQL)

if rs.EOF or rs.BOF then
response.write "Posten findes ikke!"
else
Do

%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD>Dagbog for: <%=rs("person")%></TD>
    <TD ALIGN="right"><%=rs("dato")%></TD>
</TR>
<TR>
    <TD VALIGN="top" COLSPAN="2"><%=rs("besked")%></TD>
</TR>
</TABLE>




<%
  rs.MoveNext
Loop While Not rs.EOF
end if

Conn.Close
Set Conn = Nothing

%>





<%
else
response.redirect filnavn & "?" & v1 & "=liste"

end if

%>

det er da ikke besværligt. jeg har lavet alle de sider, der viser dagbogen, du skal bare vælge database og skrive database oplysningerne ind i dbvalg.asp

det er pærenemt, så hvis du gør det, og laver default.asp efter min kode, så virker det!

/jsc

Synes det er en besværlig kode

tag udfordringen op eller lav det selv.

/jsc

Så laver jeg det selv.Den kode er ikke til  at finde hoved eller hale i.

som du vil, synes bare det var nemmere at lave en fil til dig, så du ikke havde 5 filer at rode rundt med...

jeg plejer at lave flere sider på samme fil, derfor denne kode..

/jsc

Jeg for hjælp fra en god ven han laver koderne som jeg kan finde ud af. Men ellers tak for hjælpen