?? admin_bbs.aspx
字號:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Globalization" %>
<% @ 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 runat="server">
<pb:Header id="Header" runat="server" />
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" 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">
<br><font color="#FF0000">論壇管理</font><br>
<br><a href="admin_bbsbest.aspx">精華區管理</a>
<asp:Repeater id="BBSList" runat="server" visible="true">
<HeaderTemplate>
<table border="0" cellpadding="0" cellspacing="1" width="90%" align="center">
</HeaderTemplate>
<ItemTemplate>
<tr><td width="100%"<%#CheckLevel1(Container.DataItem("level")) %>>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width="<%#DataBinder.Eval(Container.DataItem, "level")*20 %>"> </td>
<td><img border="0" src="images/face/face<%#DataBinder.Eval(Container.DataItem, "BBSface") %>.gif" width="15" height="15">
<a href="bbsview.aspx?id=<%#DataBinder.Eval(Container.DataItem, "BBSID") %>" target="_blank" class="level<%#CheckLevel2(Container.DataItem("level")) %>">
<%#DataBinder.Eval(Container.DataItem, "BBSTitle") %>
</a></td>
<td width="15%">
<a href="javascript:openwin('info.aspx?name=<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %>',332,320)" class="author">
<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %></a></td>
<td width="26%">
<a href=# onClick="openwin('admin_bbsdelete.aspx?id=<%# DataBinder.Eval(Container.DataItem, "BBSId") %>',100,50)">刪除</a>
<a href=# onClick="openwin('admin_bbsaddbest.aspx?id=<%# DataBinder.Eval(Container.DataItem, "BBSId") %>',100,50)">加入精華區</a>
</td></tr>
</table></td>
</tr>
</ItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</asp:Repeater>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr><td width="100%" align="right">
<input type="hidden" id="pagenow" runat="server" value="1">
<asp:LinkButton id="toFirst" text="轉到第一頁" runat="server" onClick="toFirst_OnClick" />
<asp:LinkButton id="prepage" text="上一頁" runat="server" onClick="prepage_OnClick" />
<asp:LinkButton id="nextpage" text="下一頁" runat="server" onClick="nextpage_OnClick" /></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">
Dim TotalPage As Integer
Dim CurP As Integer
Dim PageSize As Integer
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
PageSize=10
If Not Page.IsPostBack Then
TotalPage=1
End If
CurP=CInt(pagenow.value)
freshlist()
End Sub
Sub freshlist()
Dim MyBBS As BBSDB=New BBSDB()
BBSList.DataSource=MyBBS.GetBBSView(CurP,PageSize,TotalPage)
BBSList.DataBind()
If CurP=1 Then
prepage.Visible=false
toFirst.Visible=false
Else
prepage.Visible=true
toFirst.Visible=true
End If
If CurP=TotalPage Then
nextpage.Visible=false
Else
nextpage.Visible=true
End If
End Sub
Function CheckLevel1(ByVal level As Integer) As String
If level=0 Then
Return " background=images/bar3.gif"
Else
Return ""
End If
End Function
Function CheckLevel2(ByVal level As Integer) As String
If level=0 Then
Return "1"
Else
Return "2"
End If
End Function
Function ShowTime(ByVal t As DateTime) As String
Return t.ToString("MMM.d, H:mm:ss", DateTimeFormatInfo.InvariantInfo)
End Function
Sub toFirst_OnClick(Sender As Object, e As EventArgs)
CurP=1
pagenow.value="1"
freshlist
End Sub
Sub prepage_OnClick(Sender As Object, e As EventArgs)
If CurP>1 Then
CurP-=1
Else
CurP=1
End If
pagenow.value=CurP.ToString()
freshlist
End Sub
Sub nextpage_OnClick(Sender As Object, e As EventArgs)
If CurP<TotalPage Then
CurP+=1
Else
CurP=TotalPage
End If
pagenow.value=CurP.ToString()
freshlist
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.level1:link {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : white;
text-decoration : none;
}
a.level1:visited {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : white;
text-decoration : none;
}
a.level1:hover {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : white;
text-decoration : underline;
}
a.level2:link {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #00A71C;
text-decoration : none;
}
a.level2:visited {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #00A71C;
text-decoration : none;
}
a.level2:hover {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
color : #00A71C;
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 + -