del.aspx

来自「.Net留言本,本程序采用VB.Net与SQL数据库开发」· ASPX 代码 · 共 39 行

<%@ Page Language="VB"%>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="system.configuration" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

    Sub Page_Load(Sender As Object, E As EventArgs)

		If IsNothing(request.cookies("chkadmin")) Then

	 	response.redirect("login.aspx")

		else

		deldata()		 

		end if 

    End Sub
	
	sub deldata()
		dim titleid as Integer
		titleid=Convert.ToInt32(Request.QueryString("id"))

		Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
		Dim InsertCmd As String = "delete from gbdb where id = @id"
		Dim myCommand As New SqlCommand(InsertCmd, myConnection)

		MyCommand.Parameters.Add(New SqlParameter("@id", SqlDbType.Int, 4))
        MyCommand.Parameters("@id").Value = titleid

 	    myCommand.Connection.Open()
 	    myCommand.ExecuteNonQuery()
 	    myCommand.Connection.Close()

	 	response.redirect("default.aspx")
	end sub

</script>