📄 admin_news.asp

📁 本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、教育科研、教师之窗、学生园地、学校党建、校园相册、校内论坛(导航内容后台生成,可随
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[MP=500,350]"+enterURL+"[/MP]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}

function Cfanzi() {
fontbegin="[xray]";
fontend="[/xray]";
fontchuli();
}

function Cwma() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_wma, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[wma]"+enterURL+"[/wma]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}
function Cmov() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_mov, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[QT=500,350]"+enterURL+"[/QT]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}
function Cdir() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_sw, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[DIR=500,350]"+enterURL+"[/DIR]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}
function Cmarquee() {
fontbegin="[move]";
fontend="[/move]";
fontchuli();
}
function Cfly() {
fontbegin="[fly]";
fontend="[/fly]";
fontchuli();
}

function paste(text) {
	if (opener.document.form1.news_content.createTextRange && opener.document.form1.news_content.caretPos) {      
		var caretPos = opener.document.form1.news_content.caretPos;      
		caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?
		text + ' ' : text;
	}
	else opener.document.form1.news_content.value += text;
	opener.document.form1.news_content.focus(caretPos);
}

function showsize(size){
fontbegin="[size="+size+"]";
fontend="[/size]";
fontchuli();
}

function showfont(font){
fontbegin="[face="+font+"]";
fontend="[/face]";
fontchuli();
}

function showcolor(color){
fontbegin="[color="+color+"]";
fontend="[/color]";
fontchuli();
}

function fontchuli(){
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = fontbegin + ch_text + fontend;
} 
else {
document.form1.news_content.value=fontbegin+document.form1.news_content.value+fontend;
document.form1.news_content.focus();
}
}

function Cguang() {
var FoundErrors = '';
var enterSET   = prompt(text_enter_guang1, "255,red,2");
var enterTxT   = prompt(text_enter_guang2, "文字");
if (!enterSET)    {
FoundErrors += "\n" + error_no_gset;
}
if (!enterTxT)    {
FoundErrors += "\n" + error_no_gtxt;
}
if (FoundErrors)  {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[glow="+enterSET+"]"+enterTxT+"[/glow]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}

function Cying() {
var FoundErrors = '';
var enterSET   = prompt(text_enter_guang1, "255,blue,1");
var enterTxT   = prompt(text_enter_guang2, "文字");
if (!enterSET)    {
FoundErrors += "\n" + error_no_gset;
}
if (!enterTxT)    {
FoundErrors += "\n" + error_no_gtxt;
}
if (FoundErrors)  {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[SHADOW="+enterSET+"]"+enterTxT+"[/SHADOW]";
document.form1.news_content.value+=ToAdd;
document.form1.news_content.focus();
}

ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form1.submit();}}
}
function DoTitle(addTitle) { 
var revisedTitle; 
var currentTitle = document.form1.subject.value; 
revisedTitle = currentTitle+addTitle; 
document.form1.subject.value=revisedTitle; 
document.form1.subject.focus(); 
return; }

function insertsmilie(smilieface){

	document.form1.news_content.value+=smilieface;
}
//-->
</script>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%if request.QueryString("action")="" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss> <td colspan="4">校内新闻管理</font></td></tr>
<tr align="center" class=lanyuqs><td width="10%">编号</td><td width="60%">标题&amp;发表时间</td><td width="10%">评论</td><td width="20%">操作</td></tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalnews=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*newsperpage<totalnews then
	       rs.move(currentpage-1)*newsperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalnews mod newsperpage)=0 then
      totalpages=totalnews\newsperpage
   else
      totalpages=totalnews\newsperpage+1
   end if
i=0
do while not rs.eof and i<newsperpage%>
<tr class=lanyuds><td align="center"><%=rs("news_id")%></td><td><a href="shownews.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a> <span class="date"><%=rs("news_date")%></span></td><td align="center"><font color=red><%=rs("reviewcount")%></font></td><td align="center"> <a href="admin_view.asp?action=news&news_id=<%=rs("news_id")%>">评论</a> <a href="admin_news.asp?id=<%=rs("news_id")%>&action=editnews#editnews">编辑</a> <a href="admin_news.asp?id=<%=rs("news_id")%>&action=delnews#delnews">删除</a></td></tr>
<%i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>
<tr align="center" class=lanyuds><td colspan="4">当前没有校内新闻！</td></tr>
<%end if
end if%>
</table>
<table align="center" width="98%" align="center" border="0" cellspacing="0" cellpadding="0"><form name="form2" method="post" action="admin_news.asp">
<tr class=lanyuds><td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>篇每页. 
              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%> 
<%else%>
<a href="admin_news.asp?page=<%=i%>"><%=i%></a> 
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
              <a href="admin_news.asp?page=<%=page%>" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button"></td>
        </tr>
		</form>
      </table>
      <br>
	  <%end if
if request.QueryString("action")="newnews" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="<%=MM_editAction%>">
          <tr class=lanyuss> 
            <td><a name="newnews">新的校内新闻</a></font></td>
          </tr>
          <tr class=lanyuds> 
            <td>标题-<select name="news_color"><%call lanyucolor()%></select>
              <input type="text" name="news_title" class="textarea" size="50">  <select name="news_keyword">
<option value="0">校内新闻类型</option>
<option value="站内公告">站内公告</option>
<option value="本校新闻">本校新闻</option>
<option value="其它类型">其它类型</option>
</select>
            </td>
          </tr>
          <tr class=lanyuds> 
            <td><%call ubbshow()%>　</td>
          </tr>
          <tr class=lanyuds> 
            <td>
              <textarea name="news_content" cols="85" rows="12" class="textarea"></textarea>
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td align="center">
              <input type="submit" name="Submit2" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">
 <input type="button" value="返回"  onClick="location.href='admin_news.asp'" class="button">
            </td>
          </tr>
		  <input type="hidden" name="action" value="newnews">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
if request.QueryString("action")="editnews" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的校内新闻ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from news where news_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="<%=MM_editAction%>">
          <tr class=lanyuss> 
            <td><a name="editnews">修改校内新闻</a></font></td>
          </tr>
          <tr class=lanyuds> 
            <td>标题-<select name="news_color"><%call lanyucolor()%></select>
              <input type="text" name="news_title" class="textarea" size="50" value="<%=rs("news_title")%>">  <select name="news_keyword">
<option value="0">校内新闻类型</option>
<option value="站内公告"<%if rs("news_keyword")="站内公告" then response.write "selected"%>>站内公告</option>
<option value="本校新闻"<%if rs("news_keyword")="本校新闻" then response.write "selected"%>>本校新闻</option>
<option value="其它类型"<%if rs("news_keyword")="其它类型" then response.write "selected"%>>其它类型</option>
</select>
            </td>
          </tr>
          <tr class=lanyuds> 
            <td>
              <%call ubbshow()%> 　</td>
          </tr>
          <tr class=lanyuds> 
            <td> <textarea name="news_content" cols="85" rows="12" class="textarea" id="news_content"><%=rs("news_content")%></textarea> 
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td align="center"> 
              <input type="submit" name="Submit" value="确定修改" class="button"> 
 <input type="button" value="返回"  onClick="location.href='admin_news.asp'" class="button"></td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("news_id")%>">
		  <input type="hidden" name="action" value="editnews">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
if request.QueryString("action")="delnews" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的校内新闻ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from news where news_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="<%=MM_editAction%>">
          <tr class=lanyuss> 
            <td><a name="delnews" id="delnews">删除校内新闻</a></font></td>
          </tr>
          <tr class=lanyuds> 
            <td>标题-<%=rs("news_title")%> 校内新闻类型- <%=rs("news_keyword")%>
            </td>
          </tr>
          <tr class=lanyuds> 
            <td><%=ubb2html(formatStr(autourl(rs("news_content"))), true, true)%> 　</td>
          </tr>
          <tr class=lanyuqs> 
            <td align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除"> 
 <input type="button" value="返回"  onClick="location.href='admin_news.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("news_id")%>">
          <input type="hidden" name="action" value="delnews">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
rs.close
set rs=nothing
end if
%>
上一页 12
⌨️ 快捷键说明

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