arnig fyrir 21 árum, 11 mánuðum Fjöldi lestra: 1114

Gestabók skrifuð í VB.NET

Þar sem ég var að henda upp gestabók fyrir síðuna
mína um daginn datt mér í hug að láta ykkur njóta þess líka. Ég ákvað
því að henda saman smá grein um það hvernig gestabókin er unnin.<o:p>
</o:p>

<o:p>
 </o:p>

Ég nota Access gagnagrunn til að geyma gögnin á
netinu. Gestabókin er tvískipt, ein síða þar sem notandinn skráir sig í
gestabókina og önnur sem birtir lista yfir alla sem hafa skráð sig í gestabókina.<o:p>
</o:p>

<o:p>
 </o:p>

Til að geta opnað fyrir tengingu við gagnagrunna
í gegnum netið þarf að setja þessar tvær línur efst í skrána.<o:p>
</o:p>

<o:p>
 </o:p>

<%@ Import Namespace="System.Data"
%><o:p>
</o:p>

<%@ Import
Namespace="System.Data.OleDB" %><o:p>
</o:p>

<o:p>
 </o:p>

<o:p>
 </o:p>

Ég ætla að byrja á því að fjalla um síðuna
þar sem notandir skráir sig í gestabókina. Þessi kóði keyrist þegar ýtt
er á “Send” hnappinn. Fyrst er tengingu við gagnagrunninn komið á og síðan
er því sem er í forminu fleygt inní grunninn með “INSERT INTO”
skipuninni.<o:p>
</o:p>

<o:p>
 </o:p>

sub OnBtnSendClicked (s As Object, e As EventArgs)<o:p>
</o:p>

    &nbsp ; 
Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=&qu ot; &     &nbsp ; 
server.mappath("guestbook.mdb&quot ;) & ";"<o:p>
</o:p>

    &nbsp ; 
<o:p>
</o:p>

    &nbsp ; 
Dim MySQL as string = "INSERT INTO Guestbook (Name, EMail, URL,
Comment)     &nbsp ;           
VALUES ('" & txtName.Text & "','" &
txtEMail.Text & "','" &     &nbsp ;               
txtURL.Text & "','" & txtComment.Text &
"')"<o:p>
</o:p>

    &nbsp ; 
Dim MyConn as New OleDBConnection (strConn)<o:p>
</o:p>

    &nbsp ; 
Dim cmd as New OleDBCommand (MySQL, MyConn)<o:p>
</o:p>

    &nbsp ; 
MyConn.Open ()<o:p>
</o:p>

    &nbsp ; 
cmd.ExecuteNonQuery ()<o:p>
</o:p>

    &nbsp ; 
MyConn.Close ()<o:p>
</o:p>

    &nbsp ; 
<o:p>
</o:p>

    &nbsp ; 
Response.Redirect ("guestlog.aspx")<o:p>
</o:p>

end sub<o:p>
</o:p>

<o:p>
 </o:p>

Þessi kóði keyrist þegar ýtt er á “Clear”
hnappinn, hann sér um að frumstilla formið.<o:p>
</o:p>

<o:p>
 </o:p>

sub OnBtnClearClicked (s As Object, e As EventArgs)<o:p>
</o:p>

    &nbsp ; 
txtName.Text = ""<o:p>
</o:p>

    &nbsp ; 
txtEMail.Text = "yourname@somebody.com"<o:p>
</o:p>
 
    &nbsp ; 
txtURL.Text = "http://"<o:p>
</o:p>

    &nbsp ; 
txtComment.Text = ""<o:p>
</o:p>

end sub<o:p>
</o:p>

<o:p>
 </o:p>

<o:p>
 </o:p>

Hérna er síðan kóðinn fyrir formið sjálft. Ég
nota absolute staðsetningar, en það er sjálfsögðu ekki nauðsynlegt.<o:p>
</o:p>

<o:p>
 </o:p>

<form
id="For m1" method="post" runat="server"><o:p>
</o:p>

<asp:label
id=&quo t;Label5" runat="server" font-names="Tahoma"
font-size="X-Large& quot; style="LEFT: 54px; POSITION: absolute; TOP:
24px">My ASP.NET Guestbook</asp:label><o:p>
</o:p>

<o:p>
 </o:p>

<asp:textbox
id=&q uot;txtName" runat="server" font-size="X-Small"
font-names="Tahoma& quot; width="174px" height="24px"
tabindex="1" style="LEFT: 136px; POSITION: absolute; TOP:
114px"></asp:textbox><o:p>
</o:p>

<o:p>
 </o:p>

<asp:label
id=&quo t;Label1" runat="server" font-names="Tahoma"
font-size="X-Small& quot; style="LEFT: 54px; POSITION: absolute; TOP:
119px">Name:</asp:label><o:p>
</o: p>

<o:p>
 </o:p>

<asp:textbox
id=&q uot;txtEMail" runat="server" font-size="X-Small"
font-names="Tahoma& quot; width="174" height="24"
tabindex="2" style="LEFT: 134px; POSITION: absolute; TOP:
155px">yourname@somebody.com</asp:text box><o:p>
</o:p>

<o:p>
 </o:p>

<asp:label
id=&quo t;Label2" runat="server" font-size="X-Small"
font-names="Tahoma& quot; style="LEFT: 54px; POSITION: absolute; TOP:
159px">E-mail:</asp:label><o:p>
</ o:p>

<o:p>
 </o:p>

<asp:textbox
id=&q uot;txtURL" runat="server" font-names="Tahoma"
font-size="X-Small& quot; width="174px" height="24px"
tabindex="3" style="LEFT: 135px; POSITION: absolute; TOP:
194px">http://</asp:textbox><o:p>
</o:p>

<o:p>
 </o:p>

<asp:label
id=&quo t;Label3" runat="server" font-size="X-Small"
font-names="Tahoma& quot; style="LEFT: 54px; POSITION: absolute; TOP:
199px">Webpage:</asp:label><o:p>
< /o:p>

<o:p>
 </o:p>

<asp:label
id=&quo t;Label4" runat="server" font-size="X-Small"
font-names="Tahoma& quot; style="LEFT: 55px; POSITION: absolute; TOP:
234px">Comment:</asp:label><o:p>
< /o:p>

<o:p>
 </o:p>

<asp:textbox
id=&q uot;txtComment" runat="server" font-names="Tahoma"
width="179px" height="81px" textmode="MultiLine"
tabindex="4" style="LEFT: 134px; POSITION: absolute; TOP:
234px" maxlength="250"></asp:textbox><o:p>
</o:p>

<o:p>
 </o:p>

<asp:button
id=&qu ot;btnSend" onclick="OnBtnSendClicked"
runat="serve r" font-names="Tahoma" text="Send"
backcolor="Navy" tabindex="5" font-size="X-Small"
forecolor="White&qu ot; style="LEFT: 212px; POSITION: absolute; TOP:
328px"></asp:button><o:p>
</o:p>

<o:p>
 </o:p>

<asp:button
id=&qu ot;btnClear" onclick="OnBtnClearClicked"
runat="serv er" text="Clear" backcolor="Navy"
tabindex="6" font-names="Tahoma"
font-size="X-Small& quot; forecolor="White" style="LEFT:
267px; POSITION: absolute; TOP: 328px"></asp:button></form><o:p>
< /o:p>

<o:p>
 </o:p>

<o:p>
 </o:p>

Þá er það síðan sem birtir allt draslið. Hún
verður einsog hin fyrri að innihalda þessar tvær línur efst:<o:p>
</o:p>

<%@ Import Namespace="System.Data"
%><o:p>
</o:p>

<%@ Import
Namespace="System.Data.OleDB" %><o:p>
</o:p>

<o:p>
 </o:p>

Þetta er kóðinn sem les úr skránni. Hann er nánast
einsog hinn fyrri nema að því leyti að núna er “SELECT” skipunin notuð
til að nálgast gögnin. Ég nota Repeater stýringuna sem fylgir með Visual
Studio .NET til að forma gögnin á einfaldan hátt.<o:p>
</o:p>

<o:p>
 </o:p>

Sub Page_Load (Source As Object, E as EventArgs)<o:p>
</o:p>

    &nbsp ; 
Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=&qu ot; & server.mappath("guestbook.mdb") &
";"<o:p>
</o:p>

    &nbsp ; 
Dim MySQL as string = "SELECT Name, EMail, URL, Comment FROM
Guestbook"<o:p>
</o:p>

    &nbsp ; 
Dim MyConn as New OleDBConnection (strConn)<o:p>
</o:p>

    &nbsp ; 
Dim Cmd as New OleDBCommand (MySQL, MyConn)<o:p>
</o:p>

    &nbsp ; 
MyConn.Open ()<o:p>
</o:p>

    &nbsp ; 
rptGuestbook.DataSource =
Cmd.ExecuteReader(System.Data.CommandBehavior.CloseC onnection)<o:p>
</o:p>

    &nbsp ; 
rptGuestbook.DataBind()<o:p>
</o:p>

End Sub<o:p>
</o:p>

<o:p>
 </o:p>

<o:p>
 </o:p>

Hérna er svo kóðinn sem birtir allt draslið.
Hyperlink stýringin býr til, einsog nafnið gefur til kynna, tengil á síðuna
sem notandi gaf upp í innsláttarforminu.<o:p>
</o:p>

<o:p>
 </o:p>

<asp:Repeater ID="rptGuestbook"
Runat="Server"><o:p>
</o:p>

<HeaderTemplate><o:p>
</o:p>

      
<table border=0 cellpadding=5
cellspacing=0 width=50%><o:p>
</o:p>

</HeaderTemplate><o:p>
</o:p>

<o:p>
 </o:p>

<ItemTemplate><o:p>
</o:p>

<tr bgcolor=RGB(51,102,204) height=25><td
colspan="2">Tahoma size=4><%# Container.DataItem ("Name") %></td></tr><o:p>
</o:p>

<o:p>
 </o:p>

<tr><td width=20%><spa n style=“font-size:9.0pt;font-family:"Courier New";color:black;
mso-ansi-language:IS;mso-fareas t-language:IS”>Tahoma size=2>E-mail:</td></s pan> <o:p>
</o:p>

<td>Tahoma size=2><%#
Container.DataItem ("EMail") %></td></tr><o:p>
</o:p>

<tr><td width=20%><spa n style=“font-size:9.0pt;font-family:"Courier New";color:black;
mso-ansi-language:IS;mso-fareas t-language:IS”>Tahoma size=2>Website:</td> <o:p>
</o:p>

<td>Tahoma size=2><asp:hyperlink id="HyperLink" runat="server"font-names="Tahoma" ont-size="X-Small" avigateurl=<%#
Container.DataItem ("URL") %>><%#
Container.DataItem URL") %></asp:hyperlink>&l t;/td></tr>    &nbsp ;                   & nbsp;  
<o:p>
</o:p>

<tr><o:p>
</o:p>

<td width=20%><s pan style=“font-size:9.0pt;font-family:"Courier New";color:black;
mso-ansi-language:IS;mso-fareas t-language:IS”>Tahoma size=2>Comment:</td> <o:p>
</o:p>

<td>Tahoma size=2><%#
Container.DataItem ("Comment") %></td></tr>    &nbsp ;       
<o: p>
</o:p>

</ItemTemplate><o:p>
</o:p>

    &nbsp ;        
</sp an><o:p>
</o:p>

<SeparatorTemplate><o:p>
</o:p>

      
<tr height=25><td></td></tr><o:p>
</o:p>

</SeparatorTemplate><spa n style=“font-size:9.0pt;font-family:"Courier New";color:black;mso-ansi-language:
IS;mso-fareas t-language:IS”><o:p>
</o:p>

    &nbsp ; 
<o:p>
</o:p>

<FooterTemplate><o:p>
</o:p>

      
</table><o:p>
</o:p>

</FooterTemplate><o:p>
</o:p>

</asp:Repeater><o:p>
</o:p>

<o:p>
 </o:p>

Ég hef að sleppt öllu HTML dóti úr þessu, til
að greinin færi ekki alveg úr böndunum. Fólki mun eflaust þykja nóg um
hvort sem er.<o:p>
</o:p>

<o:p>
 </o:p>

En allavega, ég vona að þetta hafi hjálpað
einhverjum. Ef þið hafið einhverjar ábendingar endilega látið mig vita !!<o:p>
</o:p>
</p

Vefsíðugerð

Vefsíðugerð

Ofurhugar

Stjórnendur

Hverjir eru inni

Greinar

Gestabók skrifuð í VB.NET

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi