📄 admin_web.asp

📁 后台登陆admin.asp
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="mdb.asp"-->
<%Admin="art"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/format.asp"-->
<HTML>
<HEAD>
<TITLE>管理中心—手记管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%
'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if Request.form("MM_insert") then
if request.Form("action")="newartcat" then
dim cat_name,sid
sid=clng(request.form("id"))
cat_name=trim(replace(request.form("cat_name"),"'",""))
if cat_name="" then
  Response.Write("<script language=javascript>alert('你必须填写文章分类');history.back(1);</script>")
  Response.End
else
  conn.Execute ("Insert Into web_cat(cat_name,sid) Values('"&cat_name&"',"&sid&")")
  response.redirect "admin_web.asp"
end if
end if
'================www.ynsky.com.cn===============
if request.Form("action")="editartcat" then
cat_name=trim(replace(request.form("cat_name"),"'",""))
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  Response.End
end if
if not isInteger(request.form("id")) then
  Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
  Response.End
end if
if cat_name="" then
  Response.Write("<script language=javascript>alert('你必须填写文章分类');history.back(1);</script>")
  Response.End
end if
  conn.Execute ("Update web_cat Set cat_name='"&cat_name&"',sid="&clng(request.form("lid"))&" where cat_id="&cint(request.form("id"))&"")
  response.redirect "admin_web.asp"
end if
'================www.ynsky.com.cn===============
if request.Form("action")="delartcat" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  Response.End
end if
if not isInteger(request.form("id")) then
  Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
  Response.End
end if
if request.Form("sid")="0" then
sql="select cat_id from web_cat where sid="&clng(request.form("id"))
set rsd=conn.execute(sql)
do while not rsd.eof
   Conn.Execute "DELETE * FROM web WHERE cat_id="&rsd("cat_id")
rsd.movenext
loop
rsd.close
set rsd=nothing
   Conn.Execute "DELETE * FROM web_cat WHERE sid="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM web_cat WHERE cat_id="&clng(request.form("id"))
else
   Conn.Execute "DELETE * FROM web_cat WHERE cat_id="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM web WHERE cat_id="&clng(request.form("id"))
end if
  response.redirect "admin_web.asp"
end if
end if
'================www.ynsky.com.cn===============
if request.QueryString("action")="" then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
  <tr> 
   <td colspan="4" class=Hxcmsss>文章移动、合并管理(请慎重操作，操作后不可还原!)</font></td>
  </tr>
  <form method="post" action="?action=moves">
  <tr align="center"> 
   <td height=22 align=center class=Hxcmsqs>将：
   <select size="1" name="cat1">
<%
sql="select * from web_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from web_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
  <option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select> 分类文章，移动到： 
<select size="1" name="cat2">
<%
sql="select * from web_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from web_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
  <option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>分类里。
<input type="submit" value="移动合并" name="B2">
</td></tr>
</form>
</table>
<%
sql="select * from web_cat where sid=0 order by cat_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=Hxcmsbk style="border-collapse: collapse">
        <tr> 
          <td colspan="4" class=Hxcmsss>文章分类管理</font></td>
        </tr>
        <tr align="center"> 
          <td width="10%" class=Hxcmsqs>编号</td>
          <td width="50%" class=Hxcmsqs>分类名称</td>
          <td width="20%" class=Hxcmsqs>子栏目</td>
          <td width="20%" class=Hxcmsqs>操作</td>
        </tr>
        <%do while not rs.eof%>
        <tr> 
          <td align="center" class=Hxcmsds><%=rs("cat_id")%></td>
          <td class=Hxcmsds><font color=#008000><%=rs("cat_name")%></font>  [<a href="admin_web.asp?id=<%=rs("cat_id")%>&action=newartcat">添加子分类</a>]</td>
          <td class=Hxcmsds align="center"><%
           sql3 = "select * from web_cat where sid="&rs("cat_id")&""
           Set rs3 = Server.CreateObject("ADODB.RecordSet")
           rs3.Open sql3,conn,1,1
           response.write rs3.recordcount&"个"%></td>
          <td align="center" class=Hxcmsds><a href="admin_web.asp?id=<%=rs("cat_id")%>&action=editartcat">编辑</a> 
            <a href="admin_web.asp?id=<%=rs("cat_id")%>&sid=<%=rs("sid")%>&action=delartcat">删除</a> 
            </td>
        </tr>
<%sql="select * from web_cat where sid="&rs("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=Hxcmsds><td align="right"></td><td>├ <%=rs2("cat_name")%></td>
<td align="left">文章：<%
		    sql4 = "select * from web where cat_id="&rs2("cat_id")&" order by cat_id desc"
		    Set rs4 = Server.CreateObject("ADODB.RecordSet")
		    rs4.Open sql4,conn,1,1
		    response.write rs4.recordcount%>篇</td>
<td align="center"><a href="admin_web.asp?id=<%=rs2("cat_id")%>&action=editartcat">编辑</a> 
            <a href="admin_web.asp?id=<%=rs2("cat_id")%>&sid=<%=rs2("sid")%>&action=delartcat">删除</a></td></tr>
<%
rs2.movenext
loop
response.write "<tr class=Hxcmsqs><td colspan=4 align=center>"
if rs2.bof and rs2.eof then
response.write "此大类没有子分类！"
end if
rs2.close
set rs2=nothing
rs.movenext
loop
if rs.bof and rs.eof then
response.write "<tr align=""center"">" 
response.write "<td colspan=4 class=Hxcmsds>当前没有文章分类！</td>"
response.write "</tr>"
end if
rs.close
set rs=nothing
response.write("</table>")
end if
'================www.ynsky.com.cn===============
if request.QueryString("action")="newartcat" then
%>
  <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
   <form name="form1" method="post" action="admin_web.asp">
   <tr> 
     <td class=Hxcmsss>新的文章分类</td>
   </tr>
   <tr> 
     <td class=Hxcmsds>分类名称：<input type="text" name="cat_name" size="40"></td>
   </tr>
   <tr> 
     <td class=Hxcmsqs align="center" height="30">
     <input type="submit" name="Submit" value="确定新增" class="button">
     <input type="reset" name="reset" value="清空重写" class="button">
     [<a href="admin_web.asp">返回</a>] </td>
   </tr><input type="hidden" name="id" value="<%=clng(request.querystring("id"))%>">
	<input type="hidden" name="action" value="newartcat">
	<input type="hidden" name="MM_insert" value="true">
	</form>
  </table>
<%
end if
'================www.ynsky.com.cn===============
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 web_cat where cat_id="&clng(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=Hxcmsbk style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_web.asp">
          <tr> 
            <td class=Hxcmsss>修改文章分类</font></td>
          </tr>
          <tr> 
            <td class=Hxcmsds>分类名称- 
              <input name="cat_name" type="text" class="textarea" id="cat_name" size="40" value="<%=rs("cat_name")%>"> 
            </td>
          </tr>
          <tr> 
            <td class=Hxcmsds>所属分类- 
            <select size="1" name="lid">
            <option value="<%=rs("sid")%>">默认分类</option><br>
            <option value="0">设为大类</option><br>
<%
sql="select * from web_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
'response.write "<optgroup label='"&rs1("cat_name")&"'>"
%>
              <option value="<%=rs1("cat_id")%>">├ <%=rs1("cat_name")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select> 特别提示：当你要改变分类属性操作时，请确保类下无文章！是大类时，请确保其下无小类！
            </td>
          </tr>
          <tr> 
            <td class=Hxcmsqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input name="reset" type="reset" class="button" id="reset" value="清空重写">
              [<a href="admin_web.asp">返回</a>] </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>
<%
rs.close
set rs=nothing
end if
'================www.ynsky.com.cn===============
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 web_cat where cat_id="&clng(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=Hxcmsbk style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_web.asp">
          <tr> 
            <td class=Hxcmsss>删除文章分类</font></td>
          </tr>
          <tr> 
            <td class=Hxcmsds>分类名称- <%=rs("cat_name")%></td>
          </tr>
          <tr> 
            <td class=Hxcmsds><%if request.querystring("sid")="0" then%>友情提示：你要删除的是文章的大分类，此操作将同时删除其下的小类和所有的类下文章，请慎重！<%else%>友情提示：删除分类，将删除此分类下的所有文章，请慎重！<%end if%></td>
          </tr>
          <tr> 
            <td class=Hxcmsqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
              [<a href="admin_web.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("cat_id")%>">
          <input type="hidden" name="sid" value="<%=clng(request.querystring("sid"))%>">
          <input type="hidden" name="action" value="delartcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%
rs.close
set rs=nothing
end if
end if
'================www.ynsky.com.cn===============
if request.querystring("action")="moves" then
cat1=clng(trim(request("cat1")))
cat2=clng(trim(request("cat2")))
conn.Execute = "update web set art_id="&cat2&" where cat_id="&cat1&""
set conn=nothing
Response.Redirect "admin_web.asp"
end if
if request.QueryString("action")="checkpass" then
sql="select * from web where art_id="&clng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("passed")=0
rs.update
tjuser=rs("tjuser")
rs.close
set rs=nothing
12 3 下一页
💿 文件大小 5969 K
👤 上传用户 luyibo54618
📂 所属分类其他
🏷️ 相关标签

#admin #asp #后台
⌨️ 快捷键说明

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