www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/qundo.asp
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
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="WWW.2KY.CN 共享世纪">
<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>
<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>