admin_subclass.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<br><br>

<%
if Request("updateorder") <> "" then

	set rs=server.createobject("adodb.recordset")
	sql = "Select Unid,orderflag from article_class where flag <> 0 order by Unid asc"
	rs.open sql,conn,2,3
	Do While NOT rs.EOF
		rs.Fields("orderflag") = CInt(Request.Form("OrderFlag" & rs(0)))
		rs.update
		rs.movenext
	loop	

	rs.close
	Response.Redirect "admin_subclass.asp"
end if
Select case Request("method")
	Case 1
		Call AddClass()
	Case 2
		Call DelClass()
	Case 3
		Call EditClass()
End Select

sub AddClass()
	if Trim(Request.form("Classname")) = "" or Request.form("big_Class") = "" then
		Errmsg = "<li>请输入小栏目名称。<li>或未选择所属的大栏目名称。"
		call Qcdn.Err_List(errmsg,1)
		Response.end
	end if
	Classname = Qcdn.checkStr(Request.form("Classname"))
	big_Class = Request.form("big_Class")
	sql = "insert into article_class(classname,flag)values('"& Classname &"',"& big_Class &")"
	Conn.execute(sql)
	Response.write "<script>alert(""添加成功"");location.href=""admin_subclass.asp"";</script>"
	Response.end
end sub
Sub DelClass()
	if Trim(Request.form("classid")) = "" then
		Errmsg = "<li>发现异常错误。<li>错误编号为: error 102。<li>请和青创网络联系解决问题。"
		call Qcdn.Err_List(errmsg,1)
		Response.end
	end if
	classid = Request.form("classid")
	sql = "Delete from article_class where Unid in ("& classid &")"
	Conn.execute(sql)
	sql = "Delete from article_info where Nclassid in ("& classid &")"
	Conn.execute(sql)
	Response.write "<script>alert(""删除成功"");location.href=""admin_subclass.asp"";</script>"
	Response.end
End Sub
Sub EditClass()
	if Trim(Request.form("Classname")) = "" then
		Errmsg = "<li>选择要修改的小栏目名称。"
		FoundErr = true
	end if
	if Request("big_Class") = "" then
		Errmsg = "<li>选择要修改的小栏目所属大栏目名称。"
		FoundErr = true
	end if
	if Request("classunid") = "" then
		Errmsg = Errmsg + "<li>发现异常错误。<li>错误编号为: error 103。<li>请和青创网络联系解决问题。"
		FoundErr = true
	end if
	if FoundErr = true then
		call Qcdn.Err_List(errmsg,1)
		Response.end
	end if
	Classname = Qcdn.checkStr(Request.form("Classname"))
	classunid = Request.form("classunid")
	big_Class = Request.form("big_Class")
	sql = "Update article_Class set Classname='"& Classname &"' ,flag = "& big_Class &" where Unid = " & classunid
	Conn.execute(sql)
	Response.write "<script>alert(""修改成功"");location.href=""admin_subclass.asp"";</script>"
	Response.end
End Sub
Unid = Request("unid")
sid = Request("sid")
%>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
  <form action="" name="form1" method="post">
    <tr> 
      <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>
	  <%if Unid<>"" then response.write "修 改 " else response.write "添 加 " end if%>文 章 小 栏 目 </b> </td>
    </tr>
	<form name="form1" method="post" action="">
    <tr> 
      <td width="15%" height="25" colspan="2" valign="middle" align="center">小栏目名称：<input type="text" name="Classname" size="15" value="<%=Qcdn.HTMLcode(Qcdn.Classlist(Unid))%>">&nbsp;
	  所属大栏目：
	  <select name="big_Class">
	  <option value="">选择栏目</option>
		<%
		Sql = "Select Unid,classname from article_class where flag=0 order by unid asc"
		set rs = conn.execute(sql)
		if not rs.eof then
			do while not rs.eof
				if sid<>"" then
					%>
					<option value="<%=rs(0)%>" <%if Cint(sid) = Cint(rs(0)) then response.write "selected"%>><%=Qcdn.HTMLcode(rs(1))%></option>"
					<%
				else
					Response.write "<option value="&rs(0)&">"& Qcdn.HTMLcode(rs(1)) &"</option>"
				end if
			rs.movenext
			loop
			rs.close
		end if
		%>
	  </select>
	  <input type="submit" name="submit" value="提交" class="tbutton"></td>
	  <input type="hidden" name="classunid" value="<%=Unid%>">
    </tr>
	<%
	if Unid = "" then
		Response.write "<input type=hidden name=method value=1>"
	else
		Response.write "<input type=hidden name=method value=3>"
	end if
	%>
	</form>
	<form name="form2" method="post" action="">
	<%
	

	Sql = "Select Unid,ClassName from article_class where flag = 0 order by Unid asc"
	set rs = conn.execute(sql)
	if not rs.eof then
		do while not rs.eof
	%>
	<tr valign="middle"> 
      <td height="25"  colspan=2><b><%=rs(1)%></b></td>
    </tr>
	<tr valign="middle"> 
      <td height="25" colspan=2>
	  <%
	
	SqlStr = "Select Unid,ClassName,flag,orderflag from article_class where flag <> 0 and flag = "& rs(0) &" order by OrderFlag asc"
	set RsStr = conn.execute(SqlStr)

	if not RsStr.eof then
		do while not RsStr.eof
		
		Sqlc = "Select Count(Unid) from article_class where flag = "& rs(0)
		Set Rsc = conn.execute(Sqlc)
			CountClass = Rsc(0)
		Rsc.close : set Rsc = nothing
	
			for i = 1 to 7
				Response.write "<input name=classid type=checkbox value=" & RsStr(0) & "><a href=admin_subclass.asp?unid="& RsStr(0)&"&sid="& RsStr(2) &">" &RsStr(1) & "</a>&nbsp;"
				Response.write "<select name=orderflag"& RsStr(0) &">"
				for j = 1 to CountClass
					Response.write("<option ")
					if RsStr(3) = j then Response.write("selected")
						Response.write(" value="& j &">"& j &"</option>")
				next
				Response.write "</select>"
				RsStr.movenext
				if RsStr.eof then exit for
			next
			Response.write "<br>"
		loop
	else
		Response.write "该栏目下还没有小栏目。"
	end if
		RsStr.close
	%>
	</td>
    </tr>
	<%
		rs.movenext
		loop
	else
		Response.write "<tr><td align=center colspan=2 height=25>还没有添加大栏目</td></tr>"
	end if
		rs.close
	%>
	<tr>
	  <td height=25 align=center width="15%">删除操作</td>
	  <td height=25>
		全部选择 
        
		<input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)">
		
		<input onClick="{if(confirm('此操作同时将删除该分类下的全部文章！\n\n确定要执行此项操作吗？')){this.document.form2.submit();return true;}return false;}" type=submit value=删除 name=action2 class="tbutton"> 
        <input type="submit" name="updateorder" value="刷新排序" class="tbutton">
		<input type="hidden" name="Counts" value="<%=CountClass%>">
		<input type="Hidden" name="method" value="2"> <font color="#FF0000">删除操作同时将删除该分类下的全部文章</font>
	  </td>
	</tr>
	</form>
</table>
<!--#include file="admin_copy.asp"-->