www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/road/innclass.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()
sub tssx(sx1,sx2)
if sx1=1 then
Response.Write("<span class=""fontr"">[置顶]<span>")
end if
if sx2=1 then
Response.Write("<span class=""fontr"">[禁用]<span>")
end if
end sub

function ymdh()
if fid=0 then 
ymdh="" 
end if
dim fpath,path,i
fpath=getmc("Jw_innclass","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("Jw_innclass","id",path(i),"mc")&"</a> &gt; "
next
end function

mytit=mytit&"<a href=""?fid=0"">酒店分类管理</a> > "

select case action
case "add"
mytit=mytit&ymdh()&"添加栏目"
call add()
case "del"
call del()
case "show",""
mytit=mytit&ymdh()&"栏目列表"
call show()
case "ups"
mytit=mytit&ymdh()&"编辑栏目"
call ups()
case "px"
mytit=mytit&ymdh()&"栏目排序"
call cdpx()
case "zd"
call zd()
case "qxzd"
call qxzd()
case "jy"
call jy()
case "qy"
call qy()
case "aadd"
call aadd()
case "doup"
call doup()
case "qqzz"
call qqzz()
end select

'显示
sub show()
sql="select * from Jw_innclass where fid="&fid&" order by zd desc,qz asc"
call record(rs,sql,1)
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加栏目 </a>|| <a href="?action=px&fid=<%= fid %>">栏目排序</a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="3%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="32%" bgcolor="#C5E0F3"><strong>栏目名称</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="12%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>属性</strong></td>
<td width="14%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="4%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td>
<% If rs("path")<>"" Then %>
<a href="<%= rs("path") %>?fid=<%= rs("id") %>" target="_blank"><%= rs("mc") %></a>
<% Else %>
<%= rs("mc") %>
<% End If %>
<% call tssx(rs("zd"),rs("show")) %></td>
<td align="center"><%= rs("creater") %>&nbsp;</td>
<td align="center"><%
If fid=0 Then
Response.Write("根目录")
else
Response.Write(getmc("Jw_innclass","id",fid,"mc"))
end if
%></td>
<td align="center"><%= rs("qz") %></td>
<td align="center">
<%
If fid=0 Then
Response.Write("1级")
else
Response.Write(getjs("Jw_innclass")&"级")
end if
%></td>
<td align="center"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td valign="bottom"><a href="?fid=<%= rs("id") %>"><img src="../../images/admin/20060713191005984.gif" alt="子栏目管理" width="16" height="16" border="0" align="absbottom"/></a></td>
<td valign="bottom"><a href="?action=ups&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091537508.gif" alt="编辑信息" width="14" height="15" border="0" align="absbottom" /></a></td>
<td valign="bottom"><a href="inn.asp?fid=<%= rs("id") %>"><img src="../../images/admin/20060713191007148.gif" alt="文章管理" width="16" height="16" border="0" align="absbottom" /></a></td>
<td valign="bottom"><% If rs("show")=0 Then %>
<a href="?action=jy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091539318.gif" alt="锁定" width="13" height="13" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091613193.gif" alt="解锁" width="12" height="13" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("zd")=0 Then %>
<a href="?action=zd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxzd.gif" alt="置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxzd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/zd.gif" alt="取消置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% End If %></td>
</tr>
</table></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td colspan="8" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="7%"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除?此操作无法逆转!','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="93%" align="right"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

'添加
sub add()
call chkqx(9,1)
'继承父栏目属性
dim pxzd,pxgz,perpage,path,newspath,show
if fid=0 then 
pxzd=""
pxgz=""
perpage=20
path=""
newspath=""
show=0
else
pxzd=getmc("Jw_innclass","id",fid,"pxzd")
pxgz=getmc("Jw_innclass","id",fid,"pxgz")
perpage=getmc("Jw_innclass","id",fid,"perpage")
path=getmc("Jw_innclass","id",fid,"path")
newspath=getmc("Jw_innclass","id",fid,"newspath")
show=getmc("Jw_innclass","id",fid,"show")
end if

call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=px&fid=<%= fid %>">栏目排序</a></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="15%" align="right" bgcolor="#D9ECF7">所属分类:</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_innclass",fid) %>" onfocus="this.className='focus'" onblur="this.className='inp'" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_innclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')"/>
<input name="fid" type="hidden" id="fid" value="<%= fid %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_innclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')" /></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目名称:</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="47%"><input name="mc" type="text" class="inp" id="mc" size="50" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'"/></td>
<td width="53%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">每页显示酒店:</td>
<td bgcolor="#D9ECF7">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="301"><input name="perpage" type="text" class="inp" id="perpage" size="20" maxlength="5" value="<%= perpage %>" onfocus="this.className='focus'" onblur="out_perpage();this.className='inp'"/>
条 </td>
<td width="316"><div id="cperpage"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目前台路径:</td>
<td bgcolor="#D9ECF7"><input name="path" type="text" class="inp" id="path" size="50" onfocus="this.className='focus'" onblur="this.className='inp'"/ value="<%= path %>"></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">记录前台路径:</td>
<td bgcolor="#D9ECF7"><input name="newspath" type="text" class="inp" id="newspath" size="50" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= newspath %>"/></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目属性:</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td>审核</td>
<td><input name="show" type="checkbox" id="show" value="0" <% If show=0 Then Response.Write("checked") end if%>/></td>
<td>置顶</td>
<td><input name="zd" type="checkbox" id="zd" value="1" /></td>
<td>排序:</td>
<td>按</td>
<td>
<select name="pxzd" class="inp" id="pxzd" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="qz" <% If pxzd="qz" Then Response.Write("selected") end if%>>权重</option>
<option value="ctim" <% If pxzd="ctim" Then Response.Write("selected") end if%>>发布时间</option>
<option value="lstm" <% If pxzd="lastm" Then Response.Write("selected") end if%>>最后更新时间</option>
<option value="hits" <% If pxzd="hits" Then Response.Write("selected") end if%>>浏览率</option>
</select></td>
<td><select name="pxgz" class="inp" id="pxgz" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="desc" <% If pxgz="desc" Then Response.Write("selected") end if%>>降序</option>
<option value="asc" <% If pxgz="asc" Then Response.Write("selected") end if%>>升序</option>
</select></td>
<td>排列</td>
</tr>
</table></td>
</tr>

<tr>
<td align="right" bgcolor="#D9ECF7">栏目MEAT关键字:</td>
<td bgcolor="#D9ECF7"><textarea name="keywords" cols="60" rows="4" class="inp" id="keywords" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目MEAT描述:</td>
<td bgcolor="#D9ECF7"><textarea name="ms" cols="60" rows="4" class="inp" id="ms" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目简介:</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="4" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=aadd')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=aadd&fid=<%= fid %>');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行添加/////////////////////////////////////////////////////////////////////////////////////
sub aadd()
call chkqx(9,1)
dim mc,qz,fid1,fpath,fpath1,content,xid,pxzd,pxgz,perpage,zd,show,keywords,ms,path,newspath

mc=getform("mc",1,1)
pxzd=getform("pxzd",1,1)
pxgz=getform("pxgz",1,1)
perpage=getform("perpage",2,1)
zd=getform("zd",2,1)
show=getform("show",2,1)
keywords=getform("keywords",1,1)
ms=getform("ms",1,1)
path=getform("path",1,1)
newspath=getform("newspath",1,1)

content=getform("content",1,1)
if perpage="" then 
perpage=0
end if
if zd="" then 
zd=0
end if
if show="" then 
show=0
end if

fid1=getform("fid",2,1)
qz=scpx("Jw_innclass",fid1)
if fid1=0 then
fpath1="0,"
else
fpath1=getmc("Jw_innclass","id",fid1,"fpath")
end if

call record(rs,"select top 1 * from Jw_innclass where 1=1",3)
rs.addnew()
rs("fid")=fid1
rs("fpath")="0"
rs("mc")=mc
rs("ctim")=now()
rs("qz")=qz
rs("content")=content
rs("zd")=zd
rs("show")=show
rs("pxzd")=pxzd
rs("pxgz")=pxgz
rs("perpage")=perpage
rs("zd")=zd
rs("show")=show
rs("keywords")=keywords
rs("ms")=ms
rs("path")=path
rs("newspath")=newspath

rs("creater")=creater
rs.update()
xid=rs("id")
call recordend(rs)

fpath=fpath1&xid&","
conn.execute("update Jw_innclass set fpath='"&fpath&"' where id="&xid)

if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub
'添加END//////////////////////////////////////////////////////////////////////////

'修改
sub ups()
call chkqx(9,2)
set rs=conn.execute("select * from Jw_innclass where id="&id)
if rs.eof then 
call cc("记录不存在!")
end if
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"> <%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加栏目 </a>|| <a href="?action=px&fid=<%= fid %>">栏目排序</a></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="15%" align="right" bgcolor="#D9ECF7">所属分类:</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_innclass",rs("fid")) %>" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_innclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')"/>
<input name="fid" type="hidden" id="fid" value="<%= rs("fid") %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_innclass&fid=<%= fid %>','','scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目名称:</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="47%"><input name="mc" type="text" class="inp" id="mc" size="50" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'" value="<%= rs("mc") %>"/></td>
<td width="53%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">每页显示文章:</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="302"><input name="perpage" type="text" class="inp" id="perpage" size="20" maxlength="5" value="<%= rs("perpage") %>" onfocus="this.className='focus'" onblur="out_perpage();this.className='inp'"/>
条 </td>
<td width="315"><div id="cperpage"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目前台路径:</td>
<td bgcolor="#D9ECF7"><input name="path" type="text" class="inp" id="path" size="50" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("path") %>"/></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">文章前台路径:</td>
<td bgcolor="#D9ECF7"><input name="newspath" type="text" class="inp" id="newspath" size="50" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("newspath") %>"/></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目属性:</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="2">
<tr>
<td>审核</td>
<td><input name="show" type="checkbox" id="show" value="0" <% If rs("show")=0 Then Response.Write("checked") end if%>/></td>
<td>置顶</td>
<td><input name="zd" type="checkbox" id="zd" value="1"<% If rs("zd")=1 Then Response.Write("checked") end if%>/></td>
<td>排序:</td>
<td>按</td>
<td><select name="pxzd" class="inp" id="pxzd" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="qz" <% If rs("pxzd")="qz" Then Response.Write("selected") end if%>>权重</option>
<option value="ctim" <% If rs("pxzd")="ctim" Then Response.Write("selected") end if%>>发布时间</option>
<option value="lstm" <% If rs("pxzd")="lastm" Then Response.Write("selected") end if%>>最后更新时间</option>
<option value="hits" <% If rs("pxzd")="hits" Then Response.Write("selected") end if%>>浏览率</option>
</select></td>
<td><select name="pxgz" class="inp" id="select3" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="desc" <% If rs("pxgz")="desc" Then Response.Write("selected") end if%>>降序</option>
<option value="asc" <% If rs("pxgz")="asc" Then Response.Write("selected") end if%>>升序</option>
</select></td>
<td>排列</td>
</tr>
</table></td>
</tr>

<tr>
<td align="right" bgcolor="#D9ECF7">栏目MEAT关键字:</td>
<td bgcolor="#D9ECF7"><textarea name="keywords" cols="60" rows="4" class="inp" id="keywords" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("keywords") %></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目MEAT描述:</td>
<td bgcolor="#D9ECF7"><textarea name="ms" cols="60" rows="4" class="inp" id="ms" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("ms") %></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">栏目简介:</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="4" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("content") %></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#D9ECF7">最后更新:</td>
<td bgcolor="#D9ECF7"><input name="lastm" type="text" class="inp" id="lastm" size="50" disabled="disabled" value="<%= rs("lastm") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行修改
sub doup()
call chkqx(9,2)
dim mc,fid1,fpath,fpath1,content,pxzd,pxgz,perpage,zd,show,keywords,ms,path,newspath

mc=getform("mc",1,1)
pxzd=getform("pxzd",1,1)
pxgz=getform("pxgz",1,1)
perpage=getform("perpage",2,1)
zd=getform("zd",2,1)
show=getform("show",2,1)
keywords=getform("keywords",1,1)
ms=getform("ms",1,1)
path=getform("path",1,1)
newspath=getform("newspath",1,1)

content=getform("content",1,1)
if perpage="" then 
perpage=0
end if
if zd="" then 
zd=0
end if
if show="" then 
show=0
end if

fid1=getform("fid",2,1)
if fid1=0 then 
fpath1="0,"&id&","
else
fpath1=getmc("Jw_innclass","id",fid1,"fpath")&id&","
end if

dim fidy,fpathy
fidy=getmc("Jw_innclass","id",id,"fid")
fpathy=getmc("Jw_innclass","id",id,"fpath")

'判断所属分类是否改变
if int(fidy)<>int(fid1) then 
if fidy=0 then
call errs("对不起!一级栏目不能移动!")
end if
if instr(fpathy,fpath1)>0 then
call errs("对不起!不能将栏目转移到该栏目的子栏目下!")
end if
end if

'更新记录
call record(rs,"select * from Jw_innclass where id="&id,3)
rs("fid")=fid1
rs("fpath")=fpath1
rs("mc")=mc
rs("content")=content
rs("zd")=zd
rs("show")=show
rs("pxzd")=pxzd
rs("pxgz")=pxgz
rs("perpage")=perpage
rs("zd")=zd
rs("show")=show
rs("keywords")=keywords
rs("ms")=ms
rs("path")=path
rs("newspath")=newspath

rs.update()
call recordend(rs)

'更新子目录
if fidy<>fid1 then
call record(rs,"select * from Jw_innclass where instr(fpath,'"&fpathy&"')>0",3)
if not rs.eof then 
rs("fpath")=replace(rs("fpath"),fpathy,fpath1)
rs.update
end if
call recordend(rs)
'更新文章
call record(rs,"select * from Jw_inn where instr(fpath,'"&fpathy&"')>0",3)
if not rs.eof then 
rs("fpath")=replace(rs("fpath"),fpathy,fpath1)
rs.update
end if
call recordend(rs)
end if
call zhgx("Jw_innclass",id)
if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'删除
sub del()
call chkqx(9,3)
dim fpath,dpic,j,folder
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")

for i=0 to ubound(iid)
fpath=getmc("Jw_innclass","id",iid(i),"fpath") 
'删除文章
set rs=conn.execute("select * from Jw_inn where instr(fpath,'"&fpath&"')>0")
do while not rs.eof 
'删除小图
if not rs("simg")="" then
call delfile(rs("simg"))
end if
'删除大图
if not rs("bimg")="" then
call delfile(rs("bimg"))
end if
'删除编辑器中的图片
if not rs("spic")="" then
dpic=split(rs("spic"),"|")
for j=0 to ubound(dpic)
call delfile(dpic(j))
next
set j=nothing
end if

rs.movenext
loop
call recordend(rs)
'删除文章
conn.execute("delete * from Jw_inn where instr(fpath,'"&fpath&"')>0")
'删除子栏目
conn.execute("delete * from Jw_innclass where instr(fpath,'"&fpath&"')>0")
'删除记录
conn.execute("delete * from Jw_innclass where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'栏目排序
sub cdpx()
call chkqx(9,2)
if fid<>0 then
sql="select * from Jw_innclass where fid="&fid&" order by zd desc,"&order("Jw_innclass",fid)
else
sql="select * from Jw_innclass where fid="&fid&" order by zd desc,qz asc"
end if
set rs=conn.execute(sql)
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加栏目 </a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="2%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td>
<td width="43%" bgcolor="#D9ECF7"><strong>栏目名称</strong></td>
<td width="29%" align="center" bgcolor="#D9ECF7"><strong>权重</strong></td>
<td width="26%" align="center" bgcolor="#D9ECF7"><strong>属性</strong></td>
</tr>
<% 
dim i
i=0
dim bgc

do while not rs.eof
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<form action="?action=qqzz&fid=<%= fid %>&id=<%= rs("id") %>" name="form" id="form" method="post">
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%= rs("mc") %> <% call tssx(rs("zd"),rs("show")) %></td>
<td align="center"><input name="qz" type="text" class="btn2" id="qz" size="8" value="<%= rs("qz") %>">
<input name="Submit" type="submit" class="btn2" value="更新"></td>
<td align="center"><%
If fid=0 Then
Response.Write("1级")
else
Response.Write(getjs()&"级")
end if
%></td>
</tr>
</form>
<% 
i=i+1
rs.movenext 
loop
%>
<tr>
<td colspan="4" bgcolor="#EAF4FB">&nbsp;</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

sub qqzz()
call chkqx(9,2)
if fid="" then 
fid=getmc("Jw_innclass","id",id,"fid")
end if
call dopx("Jw_innclass",fid,id,Trim(Request.Form("qz")))
call zhgx("Jw_innclass",id)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'置顶//////////////////////////////////////////////////////////////////////////////////////
sub zd()
call chkqx(9,2)
dim val
val=1
if id<>"" then
call uptab("Jw_innclass","zd",val,"id",id)
call zhgx("Jw_innclass",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'取消置顶//////////////////////////////////////////////////////////////////////////////////////
sub qxzd()
call chkqx(9,2)
dim val
val=0
if id<>"" then
call uptab("Jw_innclass","zd",val,"id",id)
call zhgx("Jw_innclass",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'停用//////////////////////////////////////////////////////////////////////////////////////
sub jy()
call chkqx(9,2)
dim val
val=1
if id<>"" then
call uptab("Jw_innclass","show",val,"id",id)
call zhgx("Jw_innclass",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'起用//////////////////////////////////////////////////////////////////////////////////////
sub qy()
call chkqx(9,2)
dim val
val=0
if id<>"" then
call uptab("Jw_innclass","show",val,"id",id)
call zhgx("Jw_innclass",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>
<script language="javascript" src="/<%= hturl %>/inc/chk.js"></script>
<script language="javascript">
function goo(act)
{
var chk=true;
if (!out_mc()){chk=false;}
if (!out_perpage()){chk=false;}

if (chk==true){
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var perpage=GE("perpage").value;
var pxzd=GE("pxzd").value;
var pxgz=GE("pxgz").value;
var keywords=escape(GE("keywords").value);
var ms=escape(GE("ms").value);
var content=escape(GE("content").value);
var path=escape(GE("path").value);
var newspath=escape(GE("newspath").value);

var show;
var zd;
if(GE("show").checked==true)
{show=0}
else
{show=1}
if(GE("zd").checked==true)
{zd=1}
else
{zd=0}
//alert(show);
//alert(zd);

var Ajax = new oAjax(act,backs);
var arrKey = new Array("fid","mc","perpage","zd","show","pxzd","pxgz","keywords","ms","content","path","newspath");
var arrValue =new Array(fid,mc,perpage,zd,show,pxzd,pxgz,keywords,ms,content,path,newspath);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>