22 svar · 289 visningar · startad av Binaryian
Vet någon var man kan finna färdiga sådana?
------------------
Lord, make my words sweet and tender today, for tomorrow I may have to eat them...
vad vill du ha med då?
------------------
grodan: Ligger nere just nu för att J*VLA trihost som inte har funkat bra, lägger ner! Kommer en ny version snart, vill du vara med? cristoffer@telia.com eller icq# 85371380
Företag
Namn
Efternamn
Adress
Telefon
Fax
Mobilnr
E-post
Hemsida
Noteringar
------------------
Lord, make my words sweet and tender today, for tomorrow I may have to eat them...
Det är ju jätte enkelt att slänga ihop själv ? du ska inte försöka så hjälper vi dig sen ?
------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !
Det var detta jag fasade för! ;) Jag vet att det "är enkelt". Jag har gjort två hyffsade försök att lära mig asp men...verkar inte bli någon stjärna.
Ok, vad börjar jag med?
------------------
Lord, make my words sweet and tender today, for tomorrow I may have to eat them...
Gubbar!
Börja nu posta lite svar. Det var ju så enkelt ju...
------------------
Lord, make my words sweet and tender today, for tomorrow I may have to eat them...
Okej då ;)
Skapa en databas med tabellen "Kontakter". I den skapar du följande fält
Företag
Namn
Efternamn
Adress
Telefon
Fax
Mobilnr
E-post
Hemsida
Noteringar (memo/pm)
Alla fält är text utom noteringar som är ett memo/pm.
Det är ju alltid en början...
[r]
Steg 2: Gör en sida som matar in uppgifterna.
Steg 3: Gör en sida som visar uppgifterna.
Det var väl pedagogiskt? ;)
------------------
Peter D
[Redigerat av Pace den 07 aug 2001]
Ok, steg 1 slutfört.
Nästa! ;)
Tillägg:
Dema gärna lite kod hur det skall se ut.
Du är en pedagogisk ledstjärna i det mörka asp-träsket.
------------------
There is no challenge more challenging than the challenge to improve yourself.
[Redigerat av Binaryian den 07 aug 2001]
Good! :)
Skapa nu den sida där man matar in uppgifterna, jag tänker inte skriva koden, utan det får du göra själv så att du lär dig!
Skapa ett formulär där du skriver in de olika fälten (namn, adress osv).
------------------
Peter D
Gjort!
Hur postar jag nu data till databasen?
------------------
There is no challenge more challenging than the challenge to improve yourself.
[Redigerat av Binaryian den 07 aug 2001]
Bra!
Du postar data genom att ange följande:
<FORM ACTION="default.asp?action=add" METHOD="post">
Sedan när vi tar emot datan, gör vi det på samma sida - det blir lättare.
Så sidan ska se ut så här:
action = Request.Querystring("action")
' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select
Sub addForm()
' här skriver du de input/text-fält som man skriver in uppgifterna med.
End Sub
Sub addData()
' här kommer vi sedan ta emot datan i lektion 3!!
End Sub
------------------
Peter D
Också det är fixat. :)
------------------
There is no challenge more challenging than the challenge to improve yourself.
Bra!
Skapa nu ett SQL sats som uppdaterar i databasen. Syntaxen för denna är "Insert" och används på följande vis:
INSERT INTO tabell (namn, adress, email) VALUES ('göran', 'storgatan 1', 'goran@storgatan.se')
------------------
Peter D
[Redigerat av Pace den 07 aug 2001]
Också detta moment är nu slutfört.
------------------
There is no challenge more challenging than the challenge to improve yourself.
<%
action = Request.Querystring("action")
' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select
Sub addForm()
<form name="contact" method="post" action="default.asp?action=add">
<p> Företag
<input type="text" name="foretag">
</p>
<p> Namn
<input type="text" name="namn">
</p>
<p> Efternamn
<input type="text" name="efternamn">
</p>
<p> Adress
<input type="text" name="adress">
</p>
<p> Telefon
<input type="text" name="telefon">
</p>
<p> Fax
<input type="text" name="fax">
</p>
<p> Mobilnummer
<input type="text" name="mobilnummer">
</p>
<p> E-post
<input type="text" name="epost">
</p>
<p> Hemsida
<input type="text" name="hemsida">
</p>
<p> Noteringar
<textarea name="noteringar" cols="40" rows="5"></textarea>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
End Sub
Sub addData()
strCompany = Request.Form("foretag")
strFirstName = Request.Form("namn")
strLastName = Request.Form("efternamn")
strAdress = Request.Form("adress")
strPhone = Request.Form("telefon")
strFax = Request.Form("fax")
strMobile = Request.Form("mobilnummer")
strEmail = Request.Form("epost")
strHomepage = Request.Form("hemsida")
strNotes = Request.Form("noteringar")
INSERT INTO tabell (foretag, namn, efternamn, adress, telefon, fax, mobilnummer, epost, hemsida, noteringar) VALUES ('"& strCompany &"', '"& strName &"', '"& strLastName &"', '"& strAdress &"', '"& strPhone &"', '"& strFax &"', '"& strMobile &"', '"& strEmail &"', '"& strHomepage &"', '"& strNotes &"')
End Sub
%>
Tilläggas kan att jag med ovanstående kod får internt Serverfel. Hohoho...
Men det bör du råda bot på nu då.
------------------
There is no challenge more challenging than the challenge to improve yourself.
Prova nu då, det ändringarna jag gjort är fetmarkerade:
(apropå interna serverfelet så var det antagligen för att du glömt <% och %> vid forumlärfältet) ;)
<%
action = Request.Querystring("action")
' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select
Sub addForm()
[b]%>[/b]
<form name="contact" method="post" action="default.asp?action=add">
<p> Företag
<input type="text" name="foretag">
</p>
<p> Namn
<input type="text" name="namn">
</p>
<p> Efternamn
<input type="text" name="efternamn">
</p>
<p> Adress
<input type="text" name="adress">
</p>
<p> Telefon
<input type="text" name="telefon">
</p>
<p> Fax
<input type="text" name="fax">
</p>
<p> Mobilnummer
<input type="text" name="mobilnummer">
</p>
<p> E-post
<input type="text" name="epost">
</p>
<p> Hemsida
<input type="text" name="hemsida">
</p>
<p> Noteringar
<textarea name="noteringar" cols="40" rows="5"></textarea>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
[b]<%[/b]
End Sub
Sub addData()
strCompany = Request.Form("foretag")
strFirstName = Request.Form("namn")
strLastName = Request.Form("efternamn")
strAdress = Request.Form("adress")
strPhone = Request.Form("telefon")
strFax = Request.Form("fax")
strMobile = Request.Form("mobilnummer")
strEmail = Request.Form("epost")
strHomepage = Request.Form("hemsida")
strNotes = Request.Form("noteringar")
[b]
SQL = "INSERT INTO kontakter (foretag, namn, efternamn, adress, telefon, fax, mobilnummer, epost, hemsida, noteringar) VALUES ('"& strCompany &"', '"& strName &"', '"& strLastName &"', '"& strAdress &"', '"& strPhone &"', '"& strFax &"', '"& strMobile &"', '"& strEmail &"', '"& strHomepage &"', '"& strNotes &"')"
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DIN DATABAS!")
Connection.Execute (SQL)
[/b]
End Sub
%>
------------------
Peter D
[Redigerat av Pace den 07 aug 2001]
[Redigerat av Pace den 07 aug 2001]
OBS! Glöm givetvis inte att stänga
"Connection" igen efter Connection.Execute (SQL):
Connection.Close
Set Connection = nothing
------------------
Peter D
Ok, nu matas uppgifterna in i databasen. Wohaa! :)
Det här börjar bli riktigt kul!
Moment 2 Steg 1
Hur läser jag ur databasen?
------------------
There is no challenge more challenging than the challenge to improve yourself.
[Redigerat av Binaryian den 07 aug 2001]
Va? Ska du läsa också? ;)
Då går vi så här, lägg till följande subb som heter förslagsvis "viewData()":
Sub viewData()
' Hämta data.
SQL = "SELECT * FROM kontakter"
Set Connection = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.RecordSet")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DIN DATABAS!")
Connection.Execute (SQL)
' Kontrollera om den är tom.
If rs.Eof Or rs.Bof Then
errMsg = "Det finns inget i databasen pundhuvud!"
End If
' Skriv ut eventuella fel.
If errMsg <> "" Then
Response.Write errMsg
Else
' Skriv ut innehållet ur db:n.
Do Until rs.Eof
Response.Write "Företag: " & rs("foretag")
Response.Write "Namn: " & rs("namn")
Response.Write "Efternamn: " & rs("efternamn")
Response.Write "Adress: " & rs("adress")
Response.Write "Telefon: " & rs("telefon")
Response.Write "Fax: " & rs("fax")
Response.Write "Mobilnummer: " & rs("mobilnummer")
Response.Write "E-post: " & rs("epost")
Response.Write "Hemsida: " & rs("hemsida")
Response.Write "Noteringar: " & rs("noteringar")
Loop
End If
' Stäng och rensa upp.
rs.Close
Connection.Close
Set rs = nothing
Set Connection = nothing
End Sub
------------------
Peter D