1<%...@ Import namespace="system.data.oledb" %>
 2<%...@ Import namespace="system.data" %>
 3<%...@ Page Language="vb" AutoEventWireup="false"%>
 4<%...
 5        If Session("name") <> ConfigurationSettings.AppSettings("站长") Then Response.Redirect("default.aspx")
 6        Dim ID As String, page As String, conn As OleDbConnection, comd As OleDbCommand, dr As OleDbDataReader
 7        Dim theTime As Date
 8        ID = Request.QueryString("ID")
 9        page = Request.QueryString("page")
10        If ID = "" Or IsNumeric(ID) = False Then Response.redirect("default.aspx")
11        conn = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(ConfigurationSettings.AppSettings("数据库")))
12        comd = New OleDbCommand("Select 时间 From 留言 Where ID=" + ID, conn)
13        comd.Connection.Open()
14        dr = comd.ExecuteReader
15        If dr.Read Then
16            theTime = dr(0)
17        Else
18            Response.Redirect("default.aspx")
19        End If
20        comd.Connection.Close()
21        comd.CommandText = "Delete From 留言 Where ID=" + ID
22        comd.Connection.Open()
23        comd.ExecuteNonQuery()
24        comd.Connection.Close()
25        comd.Dispose()
26        conn.Close()
27        conn.Dispose()
28        Dim ds As DataSet = New DataSet()
29        ds.ReadXml(Server.MapPath("data\count.xml"))
30        If DateValue(theTime) = DateValue(ds.Tables(0).Rows(0)(4)) Then ds.Tables(0).Rows(0)(0) = CInt(ds.Tables(0).Rows(0)(0)) - 1
31        ds.Tables(0).Rows(0)(2) = CInt(ds.Tables(0).Rows(0)(2)) - 1
32        ds.Tables(0).Rows(0)(4) = Date.Now
33        ds.AcceptChanges()
34        ds.WriteXml(Server.MapPath("data\count.xml"))
35        ds.Clear()
36        ds.Dispose()
37        Response.Redirect("default.aspx?page=" + page)
38%>
39