📄 index.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Dim conn As OleDbConnection '定义Connection对象变量
Sub Page_Load(Sender As Object, E As EventArgs)
'建立Connection对象
conn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wwwlink.mdb"))
'启动页面时调用数据绑定子程序
If Not IsPostBack Then
Call BindData()
End If
End Sub
'单击编辑时，执行该事件过程。
Sub MyDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex)
Call BindData()
End Sub
'单击取消时，执行该事件过程。
Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
Call BindData()
End Sub
'单击更新时，执行该事件过程。
Sub MyDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs)
'建立Command对象
Dim txtSiteName,txtURL,txtIntro,txtGrade As textbox '声明文本框控件变量
txtSiteName=e.Item.Cells(3).Controls(0)
txtURL=e.Item.Cells(4).Controls(0)
txtIntro=e.Item.Cells(5).Controls(0)
txtGrade=e.Item.Cells(6).Controls(0)
Dim strSql As String
strSql="Update link Set sitename='" & txtSiteName.Text & "',URL='" & txtURL.Text & "',intro='" & txtIntro.Text & "',grade=" & CInt(txtGrade.Text) & ",submit_date=#" & Now() & "# Where link_id=" & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
Dim cmd As New OleDbCommand(strSql, conn)
Dim Exp As Exception
Try
'执行更新操作
conn.open()
cmd.ExecuteNonQuery()
conn.close()
Catch Exp
message.Text="发生错误，没有正常更新记录"
End Try
'重新绑定
MyDataGrid.EditItemIndex = -1
Call BindData()
End Sub
'单击删除时执行该事件过程
Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
'建立Command对象
Dim strSql As String
strSql="Delete from link Where link_id=" & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
Dim cmd As New OleDbCommand(strSql, conn)
Dim Exp As Exception
Try
'执行删除操作
conn.open()
cmd.ExecuteNonQuery()
conn.close()
Catch Exp
message.Text="发生错误，没有正常删除记录"
End Try
'重新绑定
MyDataGrid.EditItemIndex = -1
Call BindData()
End Sub
'数据绑定子程序，供其它过程调用
Sub BindData()
'直接建立DataAdapter对象
Dim adp As New OleDbDataAdapter("select * from link Order By submit_date DESC", conn)
Dim ds As New DataSet() '建立DataSet对象
adp.Fill(ds, "link") '填充DataSet
MyDataGrid.DataSource=DS.Tables("link").DefaultView '指定数据源
MyDataGrid.DataBind() '执行绑定
End Sub
</script>
<html>
<body>
<h4 align="center">网络导航</h4>
<center>
<a href="add.aspx">插入记录</a>
<form runat="server">
<ASP:DataGrid id="MyDataGrid" Width="95%" HeaderStyle-BackColor="#aaaadd" OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel" OnUpdateCommand="MyDataGrid_Update" OnDeleteCommand="MyDataGrid_Delete" DataKeyField="link_id" runat="server">
<Columns>
<asp:EditCommandColumn EditText="编辑" CancelText="取消" UpdateText="更新" ItemStyle-Wrap="false"/>
<asp:ButtonColumn Text="删除" CommandName="Delete" ItemStyle-Wrap="false"/>
</Columns>
</ASP:DataGrid>
<asp:Label id="message" runat="server"/>
</form>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -