📄 qundo.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:

<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
set rs=Server.CreateObject("adodb.recordset")
set rs1=Server.CreateObject("adodb.recordset")
edittype=request("edittype")
edit=request("edit")
rs.open "select * from infotype where id="&request("tid"),conn,1,1
  if not rs.eof then
    ts=rs("ts")
end if
rs.close

sql="select * from infotype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
   sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
if request("k")<>"" then
sss=" and title like '%"&request("k")&"%'"
sql="select * from info where tid in("&sqqq&")"&sss&" order by date desc"
rs.open sql,conn,1,1
else
sql="select * from info where tid in("&sqqq&") order by date desc"
rs.open sql,conn,1,1
end if

if edittype="1" and edit<>"" then
    f=edit
    Numc=request.form("ID").count
    for xc=1 to Numc
     conn.execute("update info set mbname="&f&" where id="&request("id")(xc)&"")
     next
  end if
if edittype="2" and edit<>"" then
    f=edit
    Numc=request.form("ID").count
    for xc=1 to Numc
     conn.execute("update info set tid="&f&" where id="&request("id")(xc)&"")
     next
  end if
if edittype="3" and edit<>"" then
    f=edit
    Numc=request.form("ID").count
    for xc=1 to Numc
     conn.execute("update info set sid="&f&" where id="&request("id")(xc)&"")
     next
  end if
%>
<html>
<head>
<title>■管理中心 - 晓宇听幽 网站内容管理系统</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>

<body>
<%if rs.EOF then
	   response.write "暂时没有文章"
else
%>

<form method=post action="" name="xoYuStudioH">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
    {alert(name+"应填有效数字！");
    val.value="";
     val.focus();}
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">

  <tr valign="middle" align="center"> 
    <th height="2" colspan="4" background="images/BLogo.gif" >
     <b><img border="0" src="images/t_log.gif">文章批量管理</b></th></tr>
    <tr>
      <td class=forumHeaderBackgroundAlternate height=20 width="5%" align=center>
      ID</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="50%" align=center>
      文章标题</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="20%" align=center>
      <% if edittype="1" then %>文章捆绑模版<% end if%>
      <% if edittype="2" then %>文章所属栏目<%end if%>
      <% if edittype="3" then %>文章所属专题<%end if%></td>
      <td class=forumHeaderBackgroundAlternate height=20 width="7%" align=center>
      选择</td>
    </tr>
<%  for i=1 to rs.recordcount
    if rs.eof then exit for
    tkid=rs("tid")
    sid=rs("sid")
    mbname=rs("mbname")
if edittype="1" then
rs1.open "select * from mb where id="&mbname,conn,1,1
mb=rs1("mbname")
rs1.close
end if
if edittype="2" then
rs1.open "select * from infotype where id="&tkid,conn,1,1
TN=split(rs1("tname"),"|")
for k = 0 to ubound(TN)-1
if k=ubound(TN)-2 and ubound(TN)>1 then
TTY_name=TN(k)
end if
next
mb=TTY_name
rs1.close
end if
if edittype="3" then
if sid=0 then mb="不属于任何专题" end if
if sid<>0 then
rs1.open "select * from specialx where id="&sid,conn,1,1
SN=split(rs1("sname"),"|")
for k=0 to ubound(SN)-1
if k=ubound(SN)-2 and ubound(SN)>1 then
STY_name=SN(k)
end if
next
mb=STY_name
rs1.close
end if
end if 
%>
    <tr>
      <td class=forumrow height=20 width="5%" align="center"><%=rs("id")%></td>
      <td class=forumrow height=20 width="50%"><%=rs("title")%></td>
      <td class=forumrow height=20 width="20%" align=center><%=mb%></td>
      <td class=forumrow height=20 width="7%" align=center><input type="checkbox" name=ID value=<%=rs("ID")%>></td>
    </tr>
          <%
  rs.movenext
  next    
 end if
 %> 
  <tr>
     <td class=forumrow height=20 width="100%" colspan=4 align=right>
     &nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中所有       
     <font color="#FF0000">相关操作：</font>
     <% if edittype="1" then 
     sql="select * from Mb where mbtype='2' order by ID"
rs1.Open sql,conn,1,1
if rs1.EOF then
choose1=choose1&"<option value=""无"">暂无模版可捆绑</option>"
else
MbName=rs1("mbname")
while not rs1.EOF
choose1=choose1&"<option value="""&rs1("id")&""">"&rs1("MbName")&"</option>"                       
rs1.MoveNext
wend
end if	
rs1.close
%> 
<select name="edit" size="1">
                        <%if MbName="" then %>
                        <option value="未捆绑" selected>暂无模版可被捆绑</option>
                        <%else%>
<%=choose1%>
<%end if%>
                      </select>
<% end if%>
<% if edittype="2" then
TT=TT & "<a class=xoYuStudioSort href=html_listLB.asp><font color=""#FFFFFF"">文章首页</font></a>"
if request("id")<>"" then
  rs1.open "select * from infotype where id="&request("tid"),conn,1,1
    if not rs1.EOF then
        TN=split(rs1("tname"),"|")
        TI=split(rs1("ts"), ",")
          for s = 0 to ubound(TN)-1
            TT=TT & ">> <a class=xoYuStudioSort href=html_listLB.asp?id="&TI(s)&"><font color=""#FFFFFF"">"&TN(s)&"</font></a>"
          next
    tj=rs1("tj")
    end if
    rs1.close
end if
thistype=TT
rs1.open ("select * from infotype where tj>1 order by ts"),conn,1,1
tn=""
do while not rs1.eof
tname=replace(rs1("tname"),"|","->")
if rs1("tj")=2 and rs1("tn")<>tn then
i=i+1
  if i=2 then
  i=0
     color="#808000"
  else
     color="#000000"
  end if
end if
tn=rs1("tn")
typelist=typelist&"<option style='COLOR:"&color&"' value='"&rs1("id")&"'>"&tname&"</option>"
rs1.MoveNext
loop
rs1.close %>
<select size="1" name="edit">
<%if request("id")<>"" then
response.write("<option selected value='"&request("id")&"'>"&thistype&"("&request("id")&")</option>")
else
response.write("<option selected value=''>- - = = = 请选择文章分类 = = = - -</option>")
end if%><%=typelist%>
</select>
<% end if %>
<% if edittype="3" then
SS=SS & "<a class=xoYuStudioSort href=SpecialLB.asp>专题首页</a>"
if request("SPid")<>"" then
  rs1.open "select * from specialx where id="&request("spid"),conn,1,1
    if not rs1.EOF then
        TNs=split(rs1("sname"),"|")
        TIs=split(rs1("ts"), ",")
          for f = 0 to ubound(TNs)-1
            SS=SS & ">> <a class=xoYuStudioSort href=SpecialLB.asp?id="&TIs(f)&">"&TNs(f)&"</a>"
          next
    tjs=rs1("tj")
    end if
    rs1.close
end if
thisSPtype=SS
SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='0'>不属于任何专题</option>"
rs1.open ("select * from specialx where tj>1 order by ts"),conn,1,1
tns=""
do while not rs1.eof
sname=replace(rs1("sname"),"|","->")
if rs1("tj")=2 and rs1("tn")<>tns then
i=i+1
  if i=2 then
  i=0
     color="#808000"
  else
     color="#000000"
  end if
end if
tns=rs1("tn")
SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='"&rs1("id")&"'>"&sname&"</option>"
rs1.MoveNext
loop
rs1.close%>
<select size="1" name="edit">
<%if request("spid")<>"" then
response.write("<option selected value='"&request("spid")&"'>"&thisSPtype&"("&request("spid")&")</option>")
else
response.write("<option selected value=''>- - = = = 请选择专题分类 = = = - -</option>")
end if%><%=SPtypelist%>
</select>
<% end if%>
<input type=hidden value="<%=edittype%>" name="edittype">
<input type=hidden value="<%=request("tid")%>" name="tid">
<% if request("k")="" then %>
<input type=hidden value="" name="k">
<% else %>
<input type=hidden value="<%=request("k")%>" name="k">
<% end if %>
     <input type=submit value=执行 onclick="return Del()">     
     </td>    
  </tr>
  <tr> 
     <td class=forumHeaderBackgroundAlternate height=20 width="100%" colspan=4>
<%
  rs.close
  set rs=nothing
%>
     </td>
  </tr>

</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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