📄 admin_changenews.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" %>
<% @ Register TagPrefix="pb" TagName="Ubb" Src="admin_ubb.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">
<!--
helpstat=false;
document.onkeydown=kdown;
function kdown(){if(event.keyCode==113){helpstat=!helpstat;return false;}}
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=25>
<td><b><br><font color=green>修改文章</font></b></td>
</tr>
<tr height=120>
<td height="100">
<blockquote><br><asp:Label width=100% id=success Visible=false runat=server style="color:red" />NewsID:
<asp:Label id="newsid" runat="server" /><br>
文章类型：
<asp:DropDownList id="type" runat="server">
<asp:ListItem value="1" selected>本专业动态</asp:ListItem>
<asp:ListItem value="2">Dot.Net动态</asp:ListItem>
<asp:ListItem value="3">ASP.NET知识</asp:ListItem>
<asp:ListItem value="4">考研与就业</asp:ListItem>
<asp:ListItem value="5">其他文章</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator
ControlToValidate="type"
ErrorMessage="*"
Display="Dynamic"
runat=server/><br>
文章标题：
<asp:TextBox id="Title"
maxlength=100
size=50
runat=server/>
<asp:RequiredFieldValidator
ControlToValidate="Title"
ErrorMessage="*"
Display="Dynamic"
runat=server/><br>
UBB 标签： <pb:Ubb runat=server /><br>
文章内容：<!--『<a href=# onclick=window.open("admin_upload.aspx","ul","left=0,top=0,width=400,height=250")>上传图片或文件</a>』--><br>
<asp:TextBox textMode="MultiLine" id="Content"
cols=55
rows=10
runat=server />
<asp:RequiredFieldValidator
ControlToValidate="Content"
ErrorMessage="*"
Display="Dynamic"
runat=server/><br>
编辑：
<asp:TextBox id="Author"
maxlength=20
size=30
runat=server
onfocus="this.select()" />
<asp:RequiredFieldValidator
ControlToValidate="Author"
ErrorMessage="*"
Display="Dynamic"
runat=server />
← [<a href=# onclick="document.myForm.Author.value='未知';document.myForm.Author.focus()">未知</a>]
[<a href=# onclick="document.myForm.Author.value='佚名';document.myForm.Author.focus()">佚名</a>]
<br>
来源：
<asp:TextBox id="Original"
maxlength=50
size=30
runat=server/><br>
IsHTML：
<input type=checkbox id="Htmlable"
runat=server/>选择后文章全部支持HTML语法，UBB语法将没有任何作用
<br><br>
文章概略：[<a href="#" onClick="tmp=document.myForm.Content.value;document.myForm.General.value=tmp.substr(0,300);document.myForm.General.focus()">自动生成概略</a>]<br>
<asp:TextBox textMode="MultiLine" id="General"
cols=55
rows=5
runat=server
onfocus="this.select()" /><br>
<asp:Button id="Submit" text="修 改" onclick="Submit_OnClick" runat=server/>
</textarea></blockquote></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 id 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
Try
id=CInt(Request("id"))
Catch
id=1
End Try
If Not Page.IsPostBack Then
Init()
End If
End Sub
Sub Init()
Dim MyNews As NewsDB=New NewsDB()
Dim DV As DataView=MyNews.GetNewsContent1(id)
If DV.Table.Rows.Count<1 Then
type.SelectedIndex=0
title.text=""
content.text=""
general.text=""
original.text=""
author.text=Context.User.Identity.Name
htmlable.checked=false
newsid.text="ID为" & id & "的文章不存在！"
Else
Dim DR=DV.Table.Rows(0)
newsid.Text=DR("Newsid").ToString()
If DR("NewsCat")<6 Then
type.SelectedIndex=(DR("NewsCat")-1).ToString()
Else
Dim ni As ListItem=New ListItem()
ni.value="6"
ni.text="论坛精华区"
type.Items.add(ni)
type.selectedIndex=5
End If
title.text=DR("NewsTitle")
content.text=DR("NewsContent")
general.text=DR("NewsGeneral")
original.text=DR("NewsFrom")
author.text=DR("NewsAuthor")
htmlable.checked=DR("IsHtml")
newsid.text=id.ToString()
End If
End Sub
Sub Submit_OnClick(Sender As Object, e As EventArgs)
Dim MyNews As News=New News()
MyNews.NewsId=id
MyNews.NewsCat=CInt(type.SelectedItem.value)
MyNews.NewsTitle=title.text
MyNews.NewsContent=content.text
MyNews.NewsGeneral=general.text
MyNews.NewsFrom=Original.text
MyNews.NewsAuthor=Context.User.Identity.Name
MyNews.IsHTML=Htmlable.checked
Dim MyNewsDB As NewsDB=New NewsDB()
Try
MyNewsDB.ChangeNews(MyNews)
success.text="『" & MyNews.NewsTitle & "』已经修改完成！<br>"
success.Visible=true
Init()
Catch exp As Exception
success.text="修改失败！<br>错误信息：" & exp.ToString() & "<br>"
success.Visible=true
End Try
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 + -