Avatar billede tinebn Nybegynder
25. februar 2003 - 09:11 Der er 9 kommentarer og
1 løsning

asp+database

hej
jeg skal indsætte og slette data/image i en database jeg har denne her fil.... og derfra er jeg gået i stå
er der nogen der har et godt link hvor jeg kan se opbygningen af sådán en applikation
jeg kan ikke finde ud af hvordan jeg får sendt input felterne til databasen..!!

min fil:

<%@ Language=VBScript %>
<% Option Explicit %>
<%
Response.Buffer = true
Response.Expires = 0
sub out(outstr)
response.write outstr
end sub
%>
<HTML>
<HEAD>
<title></title>
</script>
</HEAD>
<BODY color="black" bgcolor="white">
<br>
<form name=deleteform id=deleteform method=post>
<input type=hidden name=CarNum id=CarNum >
</form>
<center>
<FORM id ="UploadForm" name="UploadForm" action="dataopsamling.asp" enctype="multipart/form-data" method="post" style="BORDER-BOTTOM: thin; BORDER-RIGHT-STYLE: none">
<TABLE width="98%" border="1" align="center" bgcolor="#000000" bordercolor="#333333" valign="middle">
  <tr> 
  <TD >
      <P align=center>
      <FONT color="#ffffff">
      <B><FONT color="#cccc99">MODE</FONT></B></FONT>
      <FONT color="#cccc99">L</FONT> </P>
    </TD>
    <Td>
      <P align=center>
      <FONT color="#cccccc">
      <B><FONT color="#cccc99">ÅRGANG</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">KILOMETER</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
    <FONT color="#e3e3e3">
    <B><FONT color="#cccc99">FARVE</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">PRIS I DK</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
      <B><FONT color="#cccc99">BILLEDE</FONT></B>
    <B><FONT face="Arial, Helvetica, sans-serif" size="1" color="#cccc99"> <br>
    (klik på billedet)</FONT></B> </P>     
    </Td>
    <Td>
      <P align=center>
      <FONT color="#999999"><B>
      <FONT color="#cccc99">STATUS</FONT></B></FONT> </P>
    </Td></P></P>
  </tr>
  <tbody valign="center" >
  <p></p></tbody>
  <%
  dim t
  dim strsql
  dim outstr
sub out(outstr)
response.write outstr
end sub
    out "<tr>"
    if strsql =Request.form  then
       
        out "    <td>  "
        out "        <input type=text name=""model"" &  value='' size=""14%""/></td>"
        out "    <td>  "
        out "        <input type=text name=""organg"" &  value='' size=""14%""/></td>"
        out "    <td>  "
        out "      <input type=text name=""kilometer"" &  value='' size=""14%""/></td>"
        out "    <td>  "
        out "      <input type=text name=""farve"" &  value='' size=""14%""/></td>"
        out "    <td>  "
        out "      <input type=text name=""pris"" &  value='' size=""14%""/></td>"
        out "    <td >"
        out "        <input type=file name=""file"" &  value='' size=""14%""/></nobr></td>"       
        out "    <td>  "
        out "        <input type=text name=""status"" &  value='' size=""14%""/></td>"
    end if

%>

</TABLE>
<input type="submit" value="Upload File" id="submit" name="submit" >
<br></FORM>
<P></P></center>
</BODY>
</html>

</BODY>
</HTML>
Avatar billede kovalt Nybegynder
25. februar 2003 - 09:45 #1
Du skal lave en connection til din DB (den er forskellig alt afhængig af hvilken DB du bruger).

Herefter opretter du en form med dine input-felter ex således:

<form action="" method="post">

' action="" - kun hvis din ASP ligger i samme dokument ellers action="sti"

<input type="text" name="inputnavn">
<input type="submit" value="godkend">
</form>

herefter kan du bare gøre således

str inputnavn = request.form("inputnavn")

strSQL = "INTERT INTO tabelnavn (kolonnonavn)" &_
"VALUES ('"& inputnavn &"')"

conn.execute(strSQL)

' Du skal lige være opmærksom på at man anvender '"& XX &"' såfremt det er en tekststreng man ønsker at indsætte ellers er det blot "& XX &".
Avatar billede mjall0w Nybegynder
25. februar 2003 - 10:08 #2
<%
'Connecter til DB
      Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("stitildinDB.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From dinTabel"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


if mode ="" then
      mode = request("mode")


if mode = "tilfojet" then

'Formtjek
Dim Error
Error = False
If Request.Form("ditformfelt") = "" Then Error = True
If Request.Form("ditformfelt1") = "" Then Error = True
If Request.Form("ditformfelt2") = "" Then Error = True

If Error Then
  Response.Write("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>HUSK NU ALLE FELTER MED <font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#FF0000'<b>*</b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>UD FORAN SKAL UDFYLDES</font></font>")
Else

rs.Addnew
            rs("feltnavn") = Request.form("formfelt")
            rs("feltnavn1") = Request.form("formfelt1")
                rs("feltnavn2") = Request.form("formfelt2")
rs.Update
            Response.Write "Du har nu indsat dine dataer til Din DB"

           



        end if     
            end if
                end If
%>

Du ska dog være forberedt på at din form ska hede:
<form action="dinside.asp?mode=tilfojet" method="post">
hvis mode=tilfojer ikke er der, kan den ikke køre det igennem..

/Mjall0w-
Avatar billede tinebn Nybegynder
26. februar 2003 - 00:24 #3
hej nu har jeg siddet lidt med koden men forstår ikke helt sammen hænget i den den viser "The page cannot be displayed"
er det fordi jeg skal lave flere filer kan jeg ikke gøre det hele i 1 fil som her??
<-------

<%@ Language=VBScript %><% Option Explicit %>
  <%
  dim dsn
'Connecter til DB
const adOpenkeyset =1
const adlockOptimistiv = 3
Set Conn = Server.Createobject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/uploade.mdb")
Conn.Open strDSN
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Insert * into opslag"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


if mode ="" then
      mode = request("mode")


if mode = "tilfojet" then

'Formtjek
Dim Error
Error = False
If Request.Form("model") = "" Then Error = True
If Request.Form("organg") = "" Then Error = True
If Request.Form("kilometer") = "" Then Error = True
If Request.Form("farve") = "" Then Error = True
If Request.Form("pris") = "" Then Error = True
If Request.Form("file") = "" Then Error = True
If Request.Form("status") = "" Then Error = True

If Error Then
  Response.Write("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>HUSK NU ALLE FELTER MED <font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#FF0000'<b>*</b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>UD FORAN SKAL UDFYLDES</font></font>")
Else

rs.Addnew
            rs("model") = Request.form("model")
            rs("organg") = Request.form("organg")
                rs("kilometer") = Request.form("kilometer")
                rs("farve") = Request.form("kilometer")
                  rs("pris") = Request.form("kilometer")
                  rs("file") = Request.form("kilometer")
                    rs("status") = Request.form("kilometer")
rs.Update
            Response.Write "Du har nu indsat dine dataer til Din DB"

           



        end if     
            end if
                end If
%>

Du ska dog være forberedt på at din form ska hede:
<form action="index.asp?mode=tilfojet" method="post">
<TABLE width="98%" border="1" align="center" bgcolor="#000000" bordercolor="#333333" valign="middle">
  <tr> 
  <TD >
      <P align=center>
      <FONT color="#ffffff">
      <B><FONT color="#cccc99">MODE</FONT></B></FONT>
      <FONT color="#cccc99">L</FONT> </P>
    </TD>
    <Td>
      <P align=center>
      <FONT color="#cccccc">
      <B><FONT color="#cccc99">ÅRGANG</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">KILOMETER</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
    <FONT color="#e3e3e3">
    <B><FONT color="#cccc99">FARVE</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">PRIS I DK</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
      <B><FONT color="#cccc99">BILLEDE</FONT></B>
    <B><FONT face="Arial, Helvetica, sans-serif" size="1" color="#cccc99"> <br>
    (klik på billedet)</FONT></B> </P>     
    </Td>
    <Td>
      <P align=center>
      <FONT color="#999999"><B>
      <FONT color="#cccc99">STATUS</FONT></B></FONT> </P>
    </Td></P></P>
  </tr>
  <tbody valign="center" >
  <p></p></tbody>    <tr><td>
                <input type=text name="model" &  value='' size=""14%""/></td>
        <td>
            <input type=text name="organg" &  value='' size=""14%""/></td>
        <td> 
      <input type=text name="kilometer" &  value='' size=""14%""/></td>
            <td> 
      <input type=text name="farve" &  value='' size=""14%""/></td>
    <td> 
      <input type=text name="pris" &  value='' size=""14%""/></td>
    <td >
            <input type=file name="file" &  value='' size=""14%""/></nobr></td>       
        <td> 
                <input type=text name="status" &  value='' size=""14%""/></td>
  </TABLE>
<input type="submit" value="Upload File" id="submit" name="submit" >
<br></FORM>
<P>hvis mode=tilfojer ikke er der, kan den ikke køre det igennem</P></center>
</BODY>
</HTML>
Avatar billede mjall0w Nybegynder
26. februar 2003 - 09:18 #4
Prøv at sætte if mode = Tilfojet neden under Formen..
også if mode ="" then
      mode = request("mode")
Ska stå imellem Felter og Formen..
som feks:
<form action="index.asp?mode=tilfojet" method="post">
<TABLE width="98%" border="1" align="center" bgcolor="#000000" bordercolor="#333333" valign="middle">
  <tr> 
  <TD >
      <P align=center>
      <FONT color="#ffffff">
      <B><FONT color="#cccc99">MODE</FONT></B></FONT>
      <FONT color="#cccc99">L</FONT> </P>
    </TD>
    <Td>
      <P align=center>
      <FONT color="#cccccc">
      <B><FONT color="#cccc99">ÅRGANG</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">KILOMETER</FONT></B> </P>
    </Td>
if mode ="" then
      mode = request("mode") <-- Der ska du feks sætte den..

/Mjall0w-
Avatar billede tinebn Nybegynder
26. februar 2003 - 19:38 #5
tror du at jeg har skrevet conn rigtig??
den virker ikke jeg tro ikke rigtig jeg forstår det

<%@ Language=VBScript %>
<% Option Explicit %>
  <%
  dim dsn
'Connecter til DB
const adOpenkeyset =1
const adlockOptimistiv = 3
Set Conn = Server.Createobject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/uploade.mdb")
Conn.Open strDSN
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Insert * into opslag"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


%>
<html>
<head><title></title>
</head>
<body>
Du ska dog være forberedt på at din form ska hede:
<form action="index.asp?mode=tilfojet" method="post">
<TABLE width="98%" border="1" align="center" bgcolor="#000000" bordercolor="#333333" valign="middle">
  <tr> 
  <TD >
      <P align=center>
      <FONT color="#ffffff">
      <B><FONT color="#cccc99">MODE</FONT></B></FONT>
      <FONT color="#cccc99">L</FONT> </P>
    </TD>
    <Td>
      <P align=center>
      <FONT color="#cccccc">
      <B><FONT color="#cccc99">ÅRGANG</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">KILOMETER</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
    <FONT color="#e3e3e3">
    <B><FONT color="#cccc99">FARVE</FONT></B></FONT> </P>
    </Td>
    <Td>
      <P align=center>
      <P align=center>
    <B><FONT color="#cccc99">PRIS I DK</FONT></B> </P>
    </Td>
    <Td>
      <P align=center>
      <B><FONT color="#cccc99">BILLEDE</FONT></B>
    <B><FONT face="Arial, Helvetica, sans-serif" size="1" color="#cccc99"> <br>
    (klik på billedet)</FONT></B> </P>     
    </Td>
    <Td>
      <P align=center>
      <FONT color="#999999"><B>
      <FONT color="#cccc99">STATUS</FONT></B></FONT> </P>
    </Td></P></P>
  </tr>
  <tbody valign="center" >
  <%
  if mode ="" then
      mode = request("mode")


if mode = "tilfojet" then

'Formtjek
Dim Error
Error = False
If Request.Form("model") = "" Then Error = True
If Request.Form("organg") = "" Then Error = True
If Request.Form("kilometer") = "" Then Error = True
If Request.Form("farve") = "" Then Error = True
If Request.Form("pris") = "" Then Error = True
If Request.Form("file") = "" Then Error = True
If Request.Form("status") = "" Then Error = True

If Error Then
  Response.Write("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>HUSK NU ALLE FELTER MED <font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#FF0000'<b>*</b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>UD FORAN SKAL UDFYLDES</font></font>")
Else

rs.Addnew
            rs("model") = Request.form("model")
            rs("organg") = Request.form("organg")
                rs("kilometer") = Request.form("kilometer")
                rs("farve") = Request.form("kilometer")
                  rs("pris") = Request.form("kilometer")
                  rs("file") = Request.form("kilometer")
                    rs("status") = Request.form("kilometer")
rs.Update
            Response.Write "Du har nu indsat dine dataer til Din DB"

           



        end if     
            end if
                end If
%>
  <p></p></tbody>    <tr><td>
                <input type=text name="model" &  value='' size=""14%""/></td>
        <td>
            <input type=text name="organg" &  value='' size=""14%""/></td>
        <td> 
      <input type=text name="kilometer" &  value='' size=""14%""/></td>
            <td> 
      <input type=text name="farve" &  value='' size=""14%""/></td>
    <td> 
      <input type=text name="pris" &  value='' size=""14%""/></td>
    <td >
            <input type=file name="file" &  value='' size=""14%""/></nobr></td>       
        <td> 
                <input type=text name="status" &  value='' size=""14%""/></td>
  </TABLE>
<input type="submit" value="Upload File" id="submit" name="submit" >
<br></FORM>

<P>hvis mode=tilfojer ikke er der, kan den ikke køre det igennem</P></center>
</BODY>
</HTML>
Avatar billede mjall0w Nybegynder
26. februar 2003 - 19:40 #6
Hmm, sig lige din sti til DB og hva dine rækker hedder , så kan jeg lave det for dig...

/Mjall0w-
Avatar billede tinebn Nybegynder
26. februar 2003 - 21:13 #7
*S*... hmm ja jeg er håbløs *GG*

mine rækker hedder= model,organg,kilometer,farve,pris,file,status
sti=(db/uploade.mdb) tabellen hedder opslag *G*..... tror du  også det driller mig fordi jeg skal browse et billede ind?
Avatar billede tinebn Nybegynder
11. marts 2003 - 17:05 #8
lukker her
Avatar billede duno Nybegynder
12. oktober 2004 - 00:46 #9
hmm.. har i fået det til at virke???

kunne godt bruge samme funktion.

Hislen

Duno :-)
Avatar billede tinebn Nybegynder
31. marts 2011 - 17:25 #10
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