⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_art.asp

📁 主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
document.addart.art_content.value+=ToAdd;
document.addart.art_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.addart.art_content.value+=ToAdd;
document.addart.art_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.addart.art_content.value+=ToAdd;
document.addart.art_content.focus();
}
function Cmarquee() {
fontbegin="[move]";
fontend="[/move]";
fontchuli();
}
function Cfly() {
fontbegin="[fly]";
fontend="[/fly]";
fontchuli();
}

function paste(text) {
	if (opener.document.addart.art_content.createTextRange && opener.document.addart.art_content.caretPos) {      
		var caretPos = opener.document.addart.art_content.caretPos;      
		caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?
		text + ' ' : text;
	}
	else opener.document.addart.art_content.value += text;
	opener.document.addart.art_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.addart.art_content.value=fontbegin+document.addart.art_content.value+fontend;
document.addart.art_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.addart.art_content.value+=ToAdd;
document.addart.art_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.addart.art_content.value+=ToAdd;
document.addart.art_content.focus();
}

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

function insertsmilie(smilieface){

	document.addart.art_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> 
          <td colspan="3" class=lanyuss>文章分类管理</font></td>
        </tr>
        <tr align="center"> 
          <td width="10%" class=lanyuqs>编号</td>
          <td width="70%" class=lanyuqs>分类名称</td>
          <td width="20%" class=lanyuqs>操作</td>
        </tr>
        <%do while not rs.eof%>
        <tr> 
          <td align="center" class=lanyuds><%=rs("cat_id")%></td>
          <td class=lanyuds><a href="#"><%=rs("cat_name")%></a></td>
          <td align="center" class=lanyuds><a href="admin_art.asp?id=<%=rs("cat_id")%>&action=editartcat">编辑</a> 
            <a href="admin_art.asp?id=<%=rs("cat_id")%>&action=delartcat">删除</a> 
            <a href="art.asp?cat_id=<%=rs("cat_id")%>" target="_blank">查看</a></td>
        </tr>
        <%rs.movenext
loop
if rs.bof and rs.eof then%>
        <tr align="center"> 
          <td colspan="3" class=lanyuds>当前没有文章分类！</td>
        </tr>
        <%end if%>
      </table>
      <%end if%>
	  <%if request.QueryString("action")="newartcat" 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="admin_art.asp">
		<tr> 
            <td class=lanyuss>新的文章分类</td>
        </tr>
        <tr> 
          <td class=lanyuds>分类名称
              <input type="text" name="cat_name" size="40">
          </td>
        </tr>
        <tr> 
            <td class=lanyuqs align="center" height="30">
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="reset" value="清空重写" class="button">
<input type="button" value="返回"  onClick="location.href='admin_art.asp'" class="button"></td>
        </tr>
		<input type="hidden" name="action" value="newartcat">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
	  <%end if
	  if request.QueryString("action")="editartcat" 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 a_cat where cat_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="admin_art.asp">
          <tr> 
            <td class=lanyuss>修改文章分类</font></td>
          </tr>
          <tr> 
            <td class=lanyuds>分类名称- 
              <input name="cat_name" type="text" class="textarea" id="cat_name" size="40" value="<%=rs("cat_name")%>"> 
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
<input type="button" value="返回"  onClick="location.href='admin_art.asp'" class="button"></td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("cat_id")%>">
		  <input type="hidden" name="action" value="editartcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  	  if request.QueryString("action")="delartcat" 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 a_cat where cat_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="admin_art.asp">
          <tr> 
            <td class=lanyuss>删除文章分类</font></td>
          </tr>
          <tr> 
            <td class=lanyuds>分类名称- <%=rs("cat_name")%>
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
<input type="button" value="返回"  onClick="location.href='admin_art.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("cat_id")%>">
          <input type="hidden" name="action" value="delartcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
end if
if request.QueryString("action")="cat" then
dim totalart,Currentpage,totalpages,i,colname
sql="select * from art order by art_id DESC"
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">
        <tr> 
          <td colspan="4" class=lanyuss>文章管理</td>
        </tr>
        <tr align="center"> 
          <td class=lanyuqs width="10%">编号</td>
          <td class=lanyuqs width="60%">文章标题</td>
          <td class=lanyuqs width="10%">评论</td>
<td class=lanyuqs width="20%">操作</td>
        </tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=articleperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalart=rs.recordcount
   if currentpage<>1 then
      if(currentpage-1)*articleperpage<totalart then
	     rs.move(currentpage-1)*articleperpage
		 dim bookmark
		 bookmark=rs.bookmark
	  end if
   end if
   if (totalart mod articleperpage)=0 then
      totalpages=totalart\articleperpage
   else
      totalpages=totalart\articleperpage+1
   end if
   i=0
do while not rs.eof and i<articleperpage%>
        <tr> 
          <td class=lanyuds align="center"><%=rs("art_id")%>　</td>
          <td class=lanyuds><a href="#"><%=rs("art_title")%></a></td>
<td class=lanyuds align="center"><font color=red><%=rs("reviewcount")%></font></td>
          <td class=lanyuds align="center"> <a href="admin_view.asp?action=art&art_id=<%=rs("art_id")%>">评论</a> <a href="admin_art.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>&action=editart">编辑</a> 
<a href="admin_art.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>&action=delart">删除</a> 
<a href="showart.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>" target="_blank">查看</a></td>
        </tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr align="center"> 
          <td class=lanyuds colspan="4">当前没有文章！</td>
        </tr>
<%end if
end if%>
          <tr> 
            <td class=lanyuqs colspan="4" align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalart%>条记录/<%=articleperpage%>篇每页. 
              <%
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_art.asp?page=<%=i%>&action=cat"><%=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_art.asp?page=<%=page%>&action=cat" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp;
123

⌨️ 快捷键说明

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