📄 del.aspx

📁 asp做的新闻系统
💻 ASPX
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<html>
<script language="VB" runat="server">
    '建立数据连接和命令对象 
Dim SConn As SQLConnection
    
    '在页面装入时用此方法
    Sub Page_Load(Src As Object, E As EventArgs) 
       '建立数据库的连接
        SConn = New SQLConnection("server=localhost;uid=NetBBS;pwd=;database=NETBBS")
        If Not (IsPostBack)
            BindGrid()
        End If
    End Sub

    '删除记录的方法：
    Sub SDel(Sender As Object, E As DataGridCommandEventArgs)
         '设置命令对象
        Dim SComm As SQLCommand
        Dim DeleteCmd As String = "DELETE from FORUM where [ID] = @fid"
        SComm = New SQLCommand(DeleteCmd, SConn)
           '获得要删除的记录的ID号码
        SComm.Parameters.Add(New SQLParameter("@fid", SQLDataType.VarChar, 4))
        SComm.Parameters("@fid").Value = SDG.DataKeys(CInt(E.Item.ItemIndex))
           '激活数据连接
        SComm.ActiveConnection.Open()
        Try
            SComm.ExecuteNonQuery()
            Message.InnerHtml = "删除成功！" & DeleteCmd
        Catch Exp As SQLException
            Message.InnerHtml = "不能删除记录！"
            Message.Style("color") = "red"
        End Try
           '关闭数据连接！
        SComm.ActiveConnection.Close()
        BindGrid()
    End Sub

    '数据绑定方法:
    Sub BindGrid() 
           '定义数据集
        Dim DS As DataSet
        Dim SComm As SQLDataSetCommand
        SComm = New SQLDataSetCommand("select * from FORUM", SConn)
           '填充数据集
        DS = new DataSet()
        SComm.FillDataSet(DS, "FORUM")
           '打包
        SDG.DataSource=DS.Tables("FORUM").DefaultView
        SDG.DataBind()
    End Sub

</script>
<title>
     Delete!!
<title>
<body style="font: 10pt verdana">
   <br><br><br>
   <center>

  <form runat="server">
    <h3><font face="Verdana">.NET->删除数据记录！</font></h3><br><br>
    <span id="Message" MaintainState="false" style="font: arial 11pt;" runat="server"/><p>

    <ASP:DataGrid id="SDG" runat="server"
      Width="800"
      BackColor="#ffffff" 
      BorderColor="black"
      ShowFooter="false" 
      CellPadding=3 
      CellSpacing="0"
      Font-Name="Verdana"
      Font-Size="8pt"
      HeaderStyle-BackColor="#ffffff"
      DataKeyField="ID"
      OnDeleteCommand="SDel"
    >
      <property name="Columns">
         <asp:ButtonColumn Text="删除数据" CommandName="Delete"/>
      </property>
    </ASP:DataGrid>

  </form>

</center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -