📄 admin_otheradmin.aspx
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Xml" %>
<% @ Register TagPrefix="pb" TagName="Header" Src="header.ascx" %>
<% @ Register TagPrefix="pb" TagName="Footer" Src="footer.ascx" %>
<% @ Register TagPrefix="pb" TagName="Login" Src="login.ascx" %>
<% @ Register TagPrefix="pb" TagName="admin" Src="admin.ascx" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>Dot.Net管理区！</title>
<script language="JavaScript">
<!--
function openwin(url,w,h) {
window.open(url,"","top=50,left=150,height="+h+",width="+w+",toolbar=0,location=0,directories=0,menubar=0,scrollbars=0,resizable=yes,status=0");
}
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);//-->
</script>
<link rel="stylesheet" type="text/css" href="pack.css">
</head>
<body topmargin="6" leftmargin="0" bgcolor="#FFFFFF">
<form id="myForm" runat="server" name="myForm">
<pb:Header id="Header" runat="server" />
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" bgColor="#006699" width="750" height="125">
<tr><td width="25%" valign="top" background="images/bd.gif" rowspan="2" height="125">
<pb:admin id="admin" runat="server" />
<pb:Login id="login" runat="server" />
</td>
<td width="75%" valign="top" bgcolor="#FFFFFF" height="228" background="images/ldb.gif">
<table cellpadding=0 cellspacing=1 width="100%" border="0" align="center">
<tr height=35>
<td><b><br><font color=green>管理员管理</font></b></td>
</tr>
</table>
<asp:Label id="mes" runat="server" /><br>
<ASP:DataGrid id="MyGrid" runat="server"
Width="60%"
ShowHeader="true"
ShowFooter="false"
CellPadding=3
AutoGenerateColumns="false"
DataKeyField="id"
OnDeleteCommand="MyGrid_Delete"
BorderColor="#00A71C"
HeaderStyle-BackColor="#99cc00"
CellSpacing="0"
AllowPaging="false" >
<AlternatingItemStyle BackColor="#B3F0C7" />
<Columns>
<asp:BoundColumn
HeaderText="name"
DataField="name" />
<asp:ButtonColumn
ButtonType="LinkButton"
CommandName="Delete"
Text="删除" />
</Columns>
</ASP:DataGrid>
<asp:Label id="error1" runat="server" style="color:red" /><br>
<table border="0" cellpadding="0" cellspacing="1" width="90%" bgcolor="#006699">
<tr>
<td bgcolor="#CCFF99"> <asp:Textbox id="name" runat=server size=20 maxlength=255 />
<input type="submit" value="添加管理员" id="addadmin" onServerClick="addadmin_Click" runat=server />
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="1" width="90%" bgcolor="#006699">
<tr bgcolor="#99CC00">
<td width="100%" colspan="2"> 图片新闻管理</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">Desc</td>
<td width="78%"> <asp:Textbox id="Desc" runat=server size=40 maxlength=255 />
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">src</td>
<td width="78%"> <asp:Textbox id="src" runat=server size=40 maxlength=255 />
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">url</td>
<td width="78%"> <asp:Textbox id="url" runat=server size=40 maxlength=20 />
</td>
</tr>
<tr><td colspan="2" bgcolor=white>
<input type="submit" value="更改" id="pnchange" onServerClick="pnchange_Click"
runat=server /></td></tr>
</table>
<br>
<table cellpadding=0 cellspacing=1 width="100%" border="0" align="center">
<tr height=35>
<td><b><br><font color=green>滚动公告管理</font></b></td>
</tr>
</table>
<ASP:DataGrid id="MyGrid2" runat="server"
Width="100%"
Align="center"
ShowHeader="true"
ShowFooter="false"
CellPadding=3
DataKeyField="linkid"
OnEditCommand="MyGrid2_Edit"
OnCancelCommand="MyGrid2_Cancel"
OnUpdateCommand="MyGrid2_Update"
OnDeleteCommand="MyGrid2_Delete"
BorderColor="#00A71C"
HeaderStyle-BackColor="#99cc00"
CellSpacing="0"
AllowPaging="false" >
<AlternatingItemStyle BackColor="#ccff99" />
<Columns>
<asp:EditCommandColumn EditText="编辑" CancelText="取消" UpdateText="更新" ItemStyle-Wrap="false"/>
<asp:ButtonColumn ButtonType="LinkButton"
CommandName="delete"
Text="删除" />
</Columns>
</ASP:DataGrid>
<br>
<table border="0" cellpadding="0" cellspacing="1" width="90%" bgcolor="#006699">
<tr bgcolor="#99CC00">
<td width="100%" colspan="2"> 添加公告</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">LinkText</td>
<td width="78%"> <asp:Textbox id="linkText" runat=server size=50 maxlength=200 />
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">LinkUrl</td>
<td width="78%"> <asp:Textbox id="linkUrl" runat=server size=50 maxlength=255 />
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="22%" align="center">LinkRate</td>
<td width="78%"> <asp:Textbox id="linkRate" runat=server maxlength=20 text="0" />
</td>
</tr>
<tr><td colspan="2" bgcolor=white>
<input type="submit" value="添加" id="addlink" onServerClick="addlink_Click"
runat=server /></td></tr>
</table>
</td>
<tr><td width="75%" valign="bottom" bgcolor="#FFFFFF" height="80" align="right" background="images/ldb.gif">
<img border="0" src="images/pen.gif" width="400" height="80"><br> </td></tr>
</table>
</div>
<pb:Footer id="footer" 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
If Not Page.IsPostBack Then
BindGrid
Bindpic
BindGrid2
End If
End Sub
Sub BindGrid()
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 DT As DataTable=New DataTable("My")
DT.Columns.Add("Id", Type.GetType("System.Int32"))
DT.Columns.Add("name", Type.GetType("System.String"))
Dim DR As DataRow
For j=0 To objRootSite.ChildNodes.Count-1
DR=DT.NewRow()
DR("Id")=j
DR("name")=objRootSite.ChildNodes.Item(j).InnerText
DT.Rows.Add(DR)
Next
Dim DV As DataView=New DataView
DV.Table=DT
DV.Rowfilter="name<>'percyboy'"
MyGrid.DataSource=DV
MyGrid.DataBind()
End Sub
Sub Bindpic()
Dim CounterXml As String=ConfigurationSettings.AppSettings("CounterXml")
Dim objXml As XMLDocument=New XMLDocument()
objXml.Load(CounterXml)
Dim objRootSite As XMLNode
objRootSite=objXml.documentElement.SelectSingleNode("picnews")
If objRootSite.ChildNodes.Count>0
Desc.Text=objRootSite.ChildNodes.Item(0).InnerText
src.Text=objRootSite.ChildNodes.Item(1).InnerText
url.Text=objRootSite.ChildNodes.Item(2).InnerText
End If
End Sub
Sub MyGrid_Delete(Sender As Object, e As DataGridCommandEventArgs)
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")
objRootSite.removeChild(objRootSite.ChildNodes(MyGrid.DataKeys(CInt(E.Item.ItemIndex))))
objXml.Save(CounterXml)
BindGrid()
End Sub
Sub addadmin_Click(Sender As Object, e As EventArgs)
If name.Text.Length>0 Then
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 newElem As XmlElement=objXml.CreateElement(Nothing,"editor",Nothing)
newElem.InnerText=name.Text
objRootSite.AppendChild(newElem)
objXml.Save(CounterXml)
BindGrid()
name.Text=""
End If
End Sub
Sub pnchange_Click(Sender As Object, e As EventArgs)
If Desc.Text.Length>0 And src.Text.Length>0 And url.Text.Length>0 Then
Dim CounterXml As String=ConfigurationSettings.AppSettings("CounterXml")
Dim objXml As XMLDocument=New XMLDocument()
objXml.Load(CounterXml)
Dim objRootSite As XMLNode
objRootSite=objXml.documentElement.SelectSingleNode("picnews")
objRootSite.ChildNodes.Item(0).InnerText=Desc.Text
objRootSite.ChildNodes.Item(1).InnerText=src.Text
objRootSite.ChildNodes.Item(2).InnerText=url.Text
objXml.Save(CounterXml)
End If
End Sub
Sub BindGrid2()
Dim MyLink As LinkDB=New LinkDB()
Dim DV As DataView=MyLink.GetAllLinks()
DV.Rowfilter="linkCat<1"
MyGrid2.DataSource=DV
MyGrid2.DataBind()
End Sub
Sub MyGrid2_Delete(Sender As Object, e As DataGridCommandEventArgs)
Dim MyLink As LinkDB=New LinkDB()
Try
Dim Id As Integer=MyGrid2.DataKeys(CInt(E.Item.ItemIndex))
MyLink.DeleteLink(id)
mes.Text="删除完毕!"
BindGrid2
Catch ex As Exception
mes.Text=ex.ToString()
End Try
End Sub
Sub MyGrid2_Edit(Sender As Object, E As DataGridCommandEventArgs)
MyGrid2.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid2()
End Sub
Sub MyGrid2_Cancel(Sender As Object, E As DataGridCommandEventArgs)
MyGrid2.EditItemIndex = -1
BindGrid2()
End Sub
Sub MyGrid2_Update(Sender As Object, E As DataGridCommandEventArgs)
Dim MyLink As Link =New Link()
MyLink.LinkId=MyGrid2.DataKeys(CInt(E.Item.ItemIndex))
Dim CurTextBox As TextBox
CurTextBox=E.Item.Cells(3).Controls(0)
MyLink.LinkUrl=CurTextBox.Text
CurTextBox=E.Item.Cells(4).Controls(0)
MyLink.LinkCat=CInt(CurTextBox.Text)
CurTextBox=E.Item.Cells(5).Controls(0)
MyLink.LinkText=CurTextBox.Text
CurTextBox=E.Item.Cells(6).Controls(0)
Mylink.LinkRate=CInt(CurTextBox.Text)
Dim MyDB As linkDB=New linkDB()
MyDB.ChangeLink(MyLink)
MyGrid2.EditItemIndex = -1
BindGrid2()
End Sub
Sub addlink_Click(Sender As Object, e As EventArgs)
Try
Dim MyLink As Link = new Link()
MyLink.LinkUrl=LinkUrl.Text
MyLink.LinkCat=0
MyLink.LinkText=LinkText.Text
MyLink.LinkRate=CInt(LinkRate.Text)
Dim MyDB As LinkDB=New LinkDB()
MyDB.AddLink(MyLink)
error1.text=""
linkUrl.Text=""
linkText.text=""
linkRate.text=0
Catch ex As Exception
mes.text=ex.Tostring() '"添加失败！请检查"
End Try
BindGrid2()
End Sub
</script>
<style>
td {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 10pt;
}
.whiteB {
color: white;
font-weight : bold;
}
input {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 10pt;
}
td.bar {
color: green; font-weight: bold;
}
a.whiteLink:link {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-weight : bold;
color : white;
text-decoration : none;
}
a.whiteLink:visited {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-weight : bold;
color : white;
text-decoration : none;
}
a.whiteLink:hover {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-weight : bold;
color : white;
text-decoration : none;
}
a.barLink:link {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #CCFF99;
text-decoration : none;
}
a.barLink:visited {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #CCFF99;
text-decoration : none;
}
a.barLink:hover {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #CCFF99;
text-decoration : underline;
}
a.author:link {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : black;
text-decoration : none;
}
a.author:visited {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : black;
text-decoration : none;
}
a.author:hover {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : black;
text-decoration : underline;
}
</style>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -