📄 admin_addnews.aspx

📁 ASP_NET程序设计教程源代码冶金工业出版社肖金秀冯沃辉　陈少涌
💻 ASPX
字号:
<% @ Import Namespace="System.Xml" %>
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Globalization" %>
<% @ 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" /> 
  <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>&nbsp;</td></tr>
</table>
</div>

<pb:Footer id="footer" runat="server" />

</form>

</body>

</html>
<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>
<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
	End Sub

	Sub Init()
		type.SelectedIndex=0
		title.text=""
		content.text=""
		general.text=""
		original.text=""
		author.text=Context.User.Identity.Name
		htmlable.checked=false
	End Sub

	Sub Submit_OnClick(Sender As Object, e As EventArgs)
		Dim MyNews As News=New News()
		MyNews.NewsCat=CInt(type.SelectedItem.value)
		MyNews.NewsTitle=title.text
		MyNews.NewsContent=content.text
		MyNews.NewsGeneral=general.text
		MyNews.NewsFrom=Original.text
		MyNews.NewsAuthor=author.text
		MyNews.IsHTML=Htmlable.checked

		Dim MyNewsDB As NewsDB=New NewsDB()
		Try
			MyNewsDB.AddNews(MyNews)
			success.text="『" & MyNews.NewsTitle & "』已经添加完成！"
			success.Visible=true
			Init()
		Catch exp As Exception
			success.text="添加失败！<br>错误信息：" & exp.ToString()
			success.Visible=true
		End Try
	End Sub

</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -