Avatar billede morphman Nybegynder
30. september 2003 - 01:22 Der er 13 kommentarer og
2 løsninger

Online movie Database II

Hi jeg er tilbage igen :) med nogle nye spørgesmål.
Som nogen nok er jeg igang med at lave en Online movie DB

[ http://www.eksperten.dk/spm/403763 ]

1. Kan jeg  gemme billeder i MS Access DB (*.mdb) og derefter vise dem i en asp side?

2. Kan nogen hjælpe mig med at bygge en søg funktion i den DB, jeg ved slet ikke hvor jeg skal begynde :(

3. If it's not to much to ask, så vil jeg også have hjælp til at lave en order funktion, så hvis jeg trykker på feks. på [navn] så sorter den alle resultater efter navn.

----------------------------------------------------------
Tak på forhånd - MSN: morphman10@hotmail.com
----------------------------------------------------------
Avatar billede dawin_dk Nybegynder
30. september 2003 - 02:09 #1
1. nøjes med at gemme navnet på filen og ha billedet liggende som almindelig fil

2. select * from  table where field like '%dko%' ... det kommer ma langt med

3. du laver en .. order by " & request("orderfield") .. sidst i din SQL .. og sørger for du smider navnet den skal sortere efter på som parameter...
Avatar billede morphman Nybegynder
30. september 2003 - 04:17 #2
A bit more help plz :)
Avatar billede myztic Nybegynder
30. september 2003 - 08:21 #3
faktisk som Dawin sagde, men skal prøve at uddybe det lidt:

1:
Du har et felt i din database der hedder 'billeder' - deri fylder du stien til  billedet, feks matrix.jpg
Så når du henter din information fra databasen, har du måske et felt i en tabel hvor der skal ligge et billede, det gør du så ved at skrive (hvis billedet ligger i undermappen img.)
<img src="img/<%response.write img%>"> - hvor img er variablen eller anden måde informationen hentet ud fra databasen.

3:
metoden LIKE, er et database kald, man bruger % til at definere ukendt, altså hvis du siger en bruger taster ordet matr ind i din form, så laver du følgende kald:
Select * from Table where [feltnavn] LIKE '%matr%' - så vil den finde alle ord med matr i, f.eks. [matr]ix.
Altså du laver en formular med et textfelt, så bruger du værdien derfra til at lave dit database kald, med funktionen LIKE.

3:
Sorteringen skal du bare have et link der f.eks hedder 'Order by name' - som så sender information med Url'en, et eksempel:
<a href="showmovies.asp?orderby=name">Order by Name</a>
så i din asp side henter du orderby:
Variabel1 = Request("orderby") - og den variabel får værdien name i det her tilfælde.
så laver du en select:
Select * from table where field LIKE '%matr%' order by " & Variabel1

-håber det var lidt mere uddybende, det var ren princip skrivning, hvis du vil have noget mere direkte kode så skriv lige, så skal jeg prøve at sende dig en mail.
Avatar billede d4s Novice
30. september 2003 - 09:28 #4
med hensyn til order parameteren, vil jeg fortrække at skjule feltnavnene, så man ikke umiddelbart kan gætte hvad de hedder.

alle feltnavnene starter med f.eks. vid_. Du har så vid_navn, vid_titel, vid_codec osv.
Det giver følgende ændring:

3:
Sorteringen skal du bare have et link der f.eks hedder 'Order by name' - som så sender information med Url'en, et eksempel:
<a href="showmovies.asp?orderby=name">Order by Name</a>
så i din asp side henter du orderby:
Variabel1 = Request("orderby") - og den variabel får værdien name i det her tilfælde.
så laver du en select:
Select * from table where field LIKE '%matr%' order by vid_" & Variabel1

Det giver en større sikkerhed mod hackere, hvis de ikke kender feltnavnene.
Avatar billede morphman Nybegynder
30. september 2003 - 17:49 #5
Tak for alle de hjælpsomme svare og kommentar :) Jeg har prøvet at lege lidt med det, men uden held :(

Ja tak jeg vil gerne have noget mere direkte kode... jeg kan godt give jer min kildekode hvis det hjælper ;)
Avatar billede morphman Nybegynder
30. september 2003 - 22:51 #6
hmmm..... no reply :(
Avatar billede morphman Nybegynder
01. oktober 2003 - 00:24 #7
One more thing, Kan jeg vise feks. De 10 eller bare de nyeste film (poster) der blev sat i DB?
Avatar billede d4s Novice
01. oktober 2003 - 00:39 #8
Du har fået svar på dit spørgsmål. At oprette et nyt spørgsmål virker ufint. Måske er det derfor du ikke får svar.
Avatar billede morphman Nybegynder
01. oktober 2003 - 01:16 #9
I'am really sorry, Jeg vil da gerne have hjælp som 'myztic' tilbyd. eller måske kan du hjælpe mig hvis jeg giver dig kildekoden?
Avatar billede morphman Nybegynder
01. oktober 2003 - 01:29 #10
Vil du have jeg skal oprette en ny spørsmål?
Avatar billede morphman Nybegynder
01. oktober 2003 - 01:43 #11
KILDEBODE:

------------------------S-T-A-R-T-----------------------------------------

<%@LANGUAGE=VBScript%>
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("db/mystuff.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

recordsonpage = 25

allrecords = 0
set rs = conn.Execute("SELECT * FROM film_eng")
do until rs.EOF
  allrecords = allrecords + 1
  rs.movenext
loop

offset = request.querystring("offset")
if offset = 0 OR offset = "" then
  requestrecords = 0
else
  requestrecords = requestrecords + offset
end if

set rs = conn.Execute("SELECT * FROM film_eng ORDER BY navn")

hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
  hiddenrecords = hiddenrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>
<% if session("logon") <> "yes" then response.redirect "login.asp" %>
<HTML>
<HEAD>
<TITLE>Movie List</TITLE>
</HEAD>
<BODY background="gfx/bg_standard.jpg">

<DIV id=Layer1 style="Z-INDEX: 2; LEFT: 0px; WIDTH: 761px; POSITION: absolute; TOP: 0px; HEIGHT: 60px">
<TABLE height=60 cellSpacing=0 cellPadding=0 width=761 border=0>
  <TR>
    <TD vAlign=top align=left width=458 height=60>
      <TABLE height=60 cellSpacing=0 cellPadding=0 width=458 border=0>
       
        <TR>
          <TD vAlign=top align=left width=20 height=60>&nbsp;</TD>
            <TD vAlign=top align=left width=112 height=60><div align="right"><A href="#"><IMG src="gfx/logo.jpg" width=135 height=60 border=0 align="right"></A>
                <IMG height=10 src="gfx/blank.gif" width=10></div></TD>
            <TD vAlign=top align=left width=326 height=60>&nbsp; </TD>
          </TR></TABLE></TD>
    <TD vAlign=top align=left width=303 height=60>
      <TABLE height=60 cellSpacing=0 cellPadding=0 width=303 border=0>
       
        <TR>
          <TD vAlign=top align=left width=303 height=18></TD></TR>
        <TR>
          <TD vAlign=top align=left width=303 height=23>
            <TABLE height=12 cellSpacing=0 cellPadding=0 width=303 border=0>
                <TR>
                  <TD width=35 height=12></TD>
                  <TD width=34 height=12><A href="#"><IMG height=12 src="gfx/m_index01.gif" width=34 border=0></A></TD>
                  <TD width=46 height=12><A href="#"><IMG height=12 src="gfx/m_ledare01.gif" width=46 border=0></A></TD>
                  <TD width=128 height=12><A href="#"><IMG height=12 src="gfx/m_intervju01.gif" width=128 border=0></A></TD>
                  <TD width=40 height=12><A href="#"><IMG height=12 src="gfx/m_skivor01.gif" width=40 border=0></A></TD>
                  <TD width=20 height=12></TD>
                </TR>
              </TABLE>
            <TABLE height=11 cellSpacing=0 cellPadding=0 width=303 border=0>
             
              <TR>
                <TD width=69 height=11><A href="#"><IMG height=11 src="gfx/m_foto01.gif" width=69 border=0></A></TD>
                <TD width=51 height=11><A href="#"><IMG height=11 src="gfx/m_tavling01.gif" width=51 border=0></A></TD>
                <TD width=44 height=11><A href="#"><IMG height=11 src="gfx/m_forum01.gif" width=44 border=0></A></TD>
                <TD width=48 height=11><A href="#"><IMG height=11 src="gfx/m_portal01.gif" width=48 border=0></A></TD>
                <TD width=71 height=11><A href="#"><IMG height=11 src="gfx/m_red01.gif" width=71 border=0></A></TD>
                <TD width=20 height=11></TD></TR></TABLE></TD></TR>
        <TR>
          <TD vAlign=top align=left width=303
  height=19></TD></TR></TABLE></TD></TR></TABLE></DIV>
<!- Toppens bakgrund ->
<DIV id=id1 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px"><IMG height=60 src="gfx/pixel_brun.jpg" width=761> </DIV>
<!- Vänster ->
<DIV id=id2 style="Z-INDEX: 1; LEFT: 20px; POSITION: absolute; TOP: 80px; width: 720px; height: 277px;">
  <TABLE cellSpacing=0 cellPadding=0 width=720 border=0>
 
  <TR>
  <TD bgcolor="#333333"><IMG src="gfx/forum.jpg"></TD>
  </TR>
  <TR>
    <TD height=5></TD></TR>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width=715 align=right border=0>
          <TR>
            <TD class=text1 width=344 height=20><B>Navn</B></TD>
            <TD class=text1 align=right width=63><B>Type</B></TD>
            <TD class=text1 align=right width=119><B>Antal Cd'er</B></TD>
            <TD class=text1 align=right width=77><strong>Box</strong></TD>
            <TD class=text1 align=right width=117><strong>Size (MB)</strong></TD>
          </TR>
<%
' prints records in the table
showrecords = recordsonpage
recordcounter = requestrecords
farve=true
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
if farve then
%>
<TR bgcolor="#FFFFFF" class=bodytext onmouseover="className='on1';" onmouseout="className='off1';">
<%
else
%>
<TR bgcolor="#f7f7f7" class=bodytext onmouseover="className='on2';" onmouseout="className='off2';">
<%
end if
farve=not farve
%>
  <TD height=17 class=text1 ><B><A href="#" onClick="MM_openBrWindow('test.asp?id=<% = rs("id") %>','moviedetails','scrollbars=yes,width=400,height=500'); return false"><% = rs("navn") %></A></B></TD>
            <TD class=text1 align=right><A href="#"><B><a href="http://<%=Request.servervariables("SERVER_NAME") & Request.ServerVariables("URL")%>?ID=<%=rs("box")%>"><% = rs("type") %></B></a>
              </TD><TD class=text1 align=right><% = rs("Antal CD'er") %><BR></TD>
            <TD class=text1 align=right><% = rs("box") %></TD>
            <TD class=text1 align=right><% = rs("size (mb)") %></TD>
</tr>
<%
  showrecords = showrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>

</table>
<div align="center"><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
        <% if requestrecords <> 0 then %>
        <a class=text1 href="paging.asp?offset=<% = requestrecords - recordsonpage %>"><B><< Foregående</B></a>
        <% else %>
        <font class=text1>Foregående</font>
        <% end if %>
        |
        <%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords 
  pagelistcounter = pagelistcounter + 1
%>
        <B><a class=text1 href="paging.asp?offset=<% = pagelist %>">
        <% = pagelistcounter %>
        </a></B>|
        <%
pagelist = pagelist + recordsonpage
loop
%>
        <% if lastrecord <> 1 then %>
        <a class=text1 href="paging.asp?offset=<% = requestrecords + recordsonpage %>"><B>Næste >></B></a>
        <% else %>
        <font class=text1>N&aelig;ste</font>
        <% end if %>
        <br>
        <%
' Closes connection
rs.close
Conn.close
%>
      </div></DIV>
</body>
</html>

------------------------E-N-D-----------------------------------------
Avatar billede morphman Nybegynder
01. oktober 2003 - 06:48 #12
Here ya go)
Avatar billede morphman Nybegynder
01. oktober 2003 - 11:34 #13
Is there no who can help little me :)
Avatar billede morphman Nybegynder
01. oktober 2003 - 17:24 #14
<%@LANGUAGE=VBScript%>
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

u_order=request("u_order")

select case u_order
case "navn","type","antal cd'er","box","size (mb)"

case else
response.redirect "paging.asp?u_order=navn"
end select

dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("db/mystuff.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

recordsonpage = 25

allrecords = 0
set rs = conn.Execute("SELECT * FROM film_eng")
do until rs.EOF
  allrecords = allrecords + 1
  rs.movenext
loop

offset = request.querystring("offset")
if offset = 0 OR offset = "" then
  requestrecords = 0
else
  requestrecords = requestrecords + offset
end if

set rs = conn.Execute("SELECT * FROM film_eng order by "& u_order &" " )

hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
  hiddenrecords = hiddenrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>
<% if session("logon") <> "yes" then response.redirect "login.asp" %>
<HTML>
<HEAD>
<TITLE>Movie List</TITLE>
</HEAD>
<BODY background="gfx/bg_standard.jpg">

<DIV id=Layer1 style="Z-INDEX: 2; LEFT: 0px; WIDTH: 761px; POSITION: absolute; TOP: 0px; HEIGHT: 60px">
<TABLE height=60 cellSpacing=0 cellPadding=0 width=761 border=0>
  <TR>
    <TD vAlign=top align=left width=458 height=60>
      <TABLE height=60 cellSpacing=0 cellPadding=0 width=458 border=0>
       
        <TR>
          <TD vAlign=top align=left width=20 height=60>&nbsp;</TD>
            <TD vAlign=top align=left width=112 height=60><div align="right"><A href="#"><IMG src="gfx/logo.jpg" width=135 height=60 border=0 align="right"></A>
                <IMG height=10 src="gfx/blank.gif" width=10></div></TD>
            <TD vAlign=top align=left width=326 height=60>&nbsp; </TD>
          </TR></TABLE></TD>
    <TD vAlign=top align=left width=303 height=60>
      <TABLE height=60 cellSpacing=0 cellPadding=0 width=303 border=0>
       
        <TR>
          <TD vAlign=top align=left width=303 height=18></TD></TR>
        <TR>
          <TD vAlign=top align=left width=303 height=23>
            <TABLE height=12 cellSpacing=0 cellPadding=0 width=303 border=0>
                <TR>
                  <TD width=35 height=12></TD>
                  <TD width=34 height=12><A href="#"><IMG height=12 src="gfx/m_index01.gif" width=34 border=0></A></TD>
                  <TD width=46 height=12><A href="#"><IMG height=12 src="gfx/m_ledare01.gif" width=46 border=0></A></TD>
                  <TD width=128 height=12><A href="#"><IMG height=12 src="gfx/m_intervju01.gif" width=128 border=0></A></TD>
                  <TD width=40 height=12><A href="#"><IMG height=12 src="gfx/m_skivor01.gif" width=40 border=0></A></TD>
                  <TD width=20 height=12></TD>
                </TR>
              </TABLE>
            <TABLE height=11 cellSpacing=0 cellPadding=0 width=303 border=0>
             
              <TR>
                <TD width=69 height=11><A href="#"><IMG height=11 src="gfx/m_foto01.gif" width=69 border=0></A></TD>
                <TD width=51 height=11><A href="#"><IMG height=11 src="gfx/m_tavling01.gif" width=51 border=0></A></TD>
                <TD width=44 height=11><A href="#"><IMG height=11 src="gfx/m_forum01.gif" width=44 border=0></A></TD>
                <TD width=48 height=11><A href="#"><IMG height=11 src="gfx/m_portal01.gif" width=48 border=0></A></TD>
                <TD width=71 height=11><A href="#"><IMG height=11 src="gfx/m_red01.gif" width=71 border=0></A></TD>
                <TD width=20 height=11></TD></TR></TABLE></TD></TR>
        <TR>
          <TD vAlign=top align=left width=303
  height=19></TD></TR></TABLE></TD></TR></TABLE></DIV>
<!- Toppens bakgrund ->
<DIV id=id1 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px"><IMG height=60 src="gfx/pixel_brun.jpg" width=761> </DIV>
<!- Vänster ->
<DIV id=id2 style="Z-INDEX: 1; LEFT: 20px; POSITION: absolute; TOP: 80px; width: 720px; height: 277px;">
  <TABLE cellSpacing=0 cellPadding=0 width=720 border=0>
 
  <TR>
  <TD bgcolor="#333333"><IMG src="gfx/forum.jpg"></TD>
  </TR>
  <TR>
    <TD height=5></TD></TR>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width=715 align=right border=0>
          <TR>
            <TD class=text1 width=344 height=20><a class="link" href="paging.asp?u_order=navn"><B>Navn</B></a></TD>
            <TD class=text1 align=right width=63><B>Type</B></TD>
            <TD class=text1 align=right width=119><B>Antal Cd'er</B></TD>
            <TD class=text1 align=right width=77><strong>Box</strong></TD>
            <TD class=text1 align=right width=117><strong>Size (MB)</strong></TD>
          </TR>
<%
' prints records in the table
showrecords = recordsonpage
recordcounter = requestrecords
farve=true
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
if farve then
%>
<TR bgcolor="#FFFFFF" class=bodytext onmouseover="className='on1';" onmouseout="className='off1';">
<%
else
%>
<TR bgcolor="#f7f7f7" class=bodytext onmouseover="className='on2';" onmouseout="className='off2';">
<%
end if
farve=not farve
%>
  <TD height=17 class=text1 ><B><A href="#" onClick="MM_openBrWindow('test.asp?id=<% = rs("id") %>','moviedetails','scrollbars=yes,width=400,height=500'); return false"><% = rs("navn") %></A></B></TD>
            <TD class=text1 align=right><A href="#"><B><a href="http://<%=Request.servervariables("SERVER_NAME") & Request.ServerVariables("URL")%>?ID=<%=rs("box")%>"><% = rs("type") %></B></a>
              </TD><TD class=text1 align=right><% = rs("Antal CD'er") %><BR></TD>
            <TD class=text1 align=right><% = rs("box") %></TD>
            <TD class=text1 align=right><% = rs("size (mb)") %></TD>
</tr>
<%
  showrecords = showrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>

</table>
<div align="center"><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
        <% if requestrecords <> 0 then %>
        <a class=text1 href="paging.asp?offset=<% = requestrecords - recordsonpage %>"><B><< Foregående</B></a>
        <% else %>
        <font class=text1>Foregående</font>
        <% end if %>
        |
        <%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords 
  pagelistcounter = pagelistcounter + 1
%>
        <B><a class=text1 href="paging.asp?offset=<% = pagelist %>">
        <% = pagelistcounter %>
        </a></B>|
        <%
pagelist = pagelist + recordsonpage
loop
%>
        <% if lastrecord <> 1 then %>
        <a class=text1 href="paging.asp?offset=<% = requestrecords + recordsonpage %>"><B>Næste >></B></a>
        <% else %>
        <font class=text1>N&aelig;ste</font>
        <% end if %>
        <br>
        <%
' Closes connection
rs.close
Conn.close
%>
      </div></DIV>
<form name = "form1" method="post" action="login.asp">
  <input class="input2" type="submit" name="logoff" value="logoff">
</form>
</body>
</html>


Ok så langt er jeg nået. Men jeg har problemer, nu gider den ikke bladre (page) igenmen siderne :(
Jeg tror problemet ligger i >> response.redirect "paging.asp?u_order=navn" <<
Men jeg ved ikke hvordan jeg ellers skal loade default value ind?
A little help plz :)
Avatar billede morphman Nybegynder
11. december 2003 - 14:45 #15
--- LUKKER ---
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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