Mer kod i links.vb, fortsätter där kommentarerna i slutet finns.
Public Class edit_link : Inherits UserControl
protected withevents choose_cat as dropdownlist
protected Withevents tbl_links_edit as repeater
Function fix(str)
str = Replace(str,"'","")
fix = str
End Function
Sub Page_Load(sender as object, e as eventargs)
choose_category()
edit()
End Sub
'lista kategorier
Sub choose_category()
'plocka ut unika kategorier ut länktabellen
Dim SQL As string = "SELECT DISTINCT category FROM tbl_links"
Dim Cn As OleDbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim Cm As OleDbCommand = new OleDbCommand(SQL,Cn)
Cn.Open()
'skapa ett OleDbDataReader-objekt
Dim objDataReader As OleDbDataReader = Cm.ExecuteReader()
'skapa en ny samling av listposter (option-val i dropdownlistan i default.aspx)
Dim ddlBox As new ListItemCollection
ddlBox.Add(new ListItem("Välj"))
ddlBox.Add(new ListItem())
while(objDataReader.Read())
'lägg till val i kategoridropdownlistan
ddlBox.Add(new ListItem(objDataReader("category").toString()))
end while
[b][red]'bind data till dropdownlistan
choose_cat.DataSource = ddlBox
choose_cat.DataBind()[/red][/b]
'stäng objekt
objDataReader.Close()
Cn.Close()
End Sub
'redigera länk
Sub edit()
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim SQL As string = "SELECT url,sitedescription FROM tbl_links WHERE Id=" & fix(Request.Querystring("id"))
Dim Cm As New OleDbCommand(SQL,Cn)
Dim dbRead As OleDbDataReader
Dim Container As object
Cn.Open()
dbRead = Cm.ExecuteReader()
tbl_links_edit.DataSource = dbRead
tbl_links_edit.DataBind()
dbRead.Close()
Cn.Close()
End Sub
'utför redigering av länk
Sub performedit(sender as object,e as eventargs)
Dim eUrl As string = fix(Request.Form("url"))
Dim eDescription As string = fix(Request.Form("description"))
Dim eCategory As string = choose_cat.SelectedItem.toString
If eCategory = "" Then eCategory = fix(Request.Form("alt_category"))
Dim SQL As string = "UPDATE tbl_links SET URL='" & eURL & "',SiteDescription='" & eDescription & "' WHERE Id=" & fix(Request.Querystring("id"))
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim Cm As New OleDbCommand(SQL,Cn)
Cm.Connection.Open()
Cm.ExecuteNonQuery()
Cn.Close
Response.Redirect("default.aspx?action=edit&id=" & Request.Querystring("id") & "&cat=" & Request.Querystring("cat"))
End Sub
End Class
Public Class insert_link : Inherits UserControl
protected withevents choose_cat as dropdownlist
Function fix(str)
str = Replace(str,"'","")
fix = str
End Function
Sub Page_Load(sender as object, e as eventargs)
choose_category()
End Sub
'lista kategorier
Sub choose_category()
'plocka ut unika kategorier ut länktabellen
Dim SQL As string = "SELECT DISTINCT category FROM tbl_links"
Dim Cn As OleDbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim Cm As OleDbCommand = new OleDbCommand(SQL,Cn)
Cn.Open()
'skapa ett OleDbDataReader-objekt
Dim objDataReader As OleDbDataReader = Cm.ExecuteReader()
'skapa en ny samling av listposter (option-val i dropdownlistan i default.aspx)
Dim ddlBox As new ListItemCollection
ddlBox.Add(new ListItem("Välj"))
ddlBox.Add(new ListItem())
while(objDataReader.Read())
'lägg till val i kategoridropdownlistan
ddlBox.Add(new ListItem(objDataReader("category").toString()))
end while
'bind data till dropdownlistan
choose_cat.DataSource = ddlBox
choose_cat.DataBind()
'stäng objekt
objDataReader.Close()
Cn.Close()
End Sub
Sub ins_link(sender as object,e as eventargs)
Dim iURL As string = fix(Request.Form("url"))
Dim iDescription As string = fix(Request.Form("description"))
Dim iCategory As string = choose_cat.SelectedItem.toString()
Dim iDt As string = Now.ToString("d")
If iCategory = "" Then iCategory = fix(Request.Form("alt_category"))
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim SQL As string = "INSERT INTO tbl_links(Category,URL,SiteDescription,dt) VALUES('" & iCategory & "','" & iURL & "','" & iDescription & "','" & iDt & "')"
Dim Cm As New OleDbCommand(SQL,Cn)
Cm.Connection.Open()
Cm.ExecuteNonQuery()
Cn.Close
End Sub
End Class
Public Class cat : Inherits UserControl
protected withevents tbl_links as repeater
protected withevents choose_cat as dropdownlist
protected withevents new_Catname as textbox
Sub Page_Load(sender as object,e as eventargs)
If Not Page.IsPostBack = True Then
choose_category()
End If
End Sub
'lista kategorier
Sub choose_category()
'plocka ut unika kategorier ut länktabellen
Dim SQL As string = "SELECT DISTINCT category FROM tbl_links"
Dim Cn As OleDbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim Cm As OleDbCommand = new OleDbCommand(SQL,Cn)
Cn.Open()
'skapa ett OleDbDataReader-objekt
Dim objDataReader As OleDbDataReader = Cm.ExecuteReader()
'skapa en ny samling av listposter (option-val i dropdownlistan i default.aspx)
Dim ddlBox As new ListItemCollection
ddlBox.Add(new ListItem("Välj kategori"))
ddlBox.Add(new ListItem())
while(objDataReader.Read())
'lägg till val i kategoridropdownlistan
ddlBox.Add(new ListItem(objDataReader("category").toString()))
end while
'bind data till dropdownlistan
choose_cat.DataSource = ddlBox
choose_cat.DataBind()
'stäng objekt
objDataReader.Close()
Cn.Close()
End Sub
Sub Index_Changed(sender as object,e as eventargs)
new_catname.Text = choose_cat.SelectedItem.toString()
End Sub
Sub submit(sender as object,e as eventargs)
Dim SQL As string = "UPDATE tbl_links SET Category='" & new_Catname.Text & "' WHERE Category='" & choose_cat.SelectedItem.toString() & "'"
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("db_links.mdb"))
Dim Cm As New OleDbCommand(SQL,Cn)
Cm.Connection.Open()
Cm.ExecuteNonQuery()
Cn.Close
Response.Redirect("default.aspx?action=cat")
End Sub
End Class
Som skrivet - mycket tacksam för hjälp!
