📄 admin_bbsdelete.aspx
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Xml" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>Dot.Net管理区！</title>
<link rel="stylesheet" type="text/css" href="pack.css">
</head>
<body bgcolor="#B3F0C7">
<form runat="server">
<asp:Label id="mes" runat="server" />
</form>
</body>
</html>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, e As EventArgs)
If Not Request.IsAuthenticated Then
Response.Redirect("login.aspx")
End If
Dim CounterXml As String=ConfigurationSettings.AppSettings("CounterXml")
Dim objXml As XMLDocument=New XMLDocument()
objXml.Load(CounterXml)
Dim objRootSite As XMLNode
objRootSite=objXml.documentElement.SelectSingleNode("admin")
Dim j As Integer
Dim flag As Boolean=false
For j=0 To objRootSite.ChildNodes.Count-1
If objRootSite.ChildNodes.Item(j).InnerText=Context.User.Identity.Name Then
flag=true
End If
Next
If Not flag Then
Response.Redirect("admin.aspx")
End If
Dim id As Integer
Try
id=CInt(Request("id"))
Dim MyGuest As BBSDB=New BBSDB()
MyGuest.DeleteBBS(id)
mes.Text="删除成功！"
Catch
mes.Text="<font color=red>要删除的帖子不存在！</font>"
End Try
End Sub
</script>
<style>
span {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 10pt;
}
</style>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -