25. februar 2003 - 09:11Der 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
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
<% '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..
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"
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"
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?
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.