admin_special.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Special") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action

Action=Trim(request("Action"))
Header
%>
<script language="JavaScript" type="text/javascript">
function unselectall()
{
    if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != "chkAll"&&e.disabled==false)
       e.checked = form.chkAll.checked;
    }
  }
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="2" align="center"><strong>专 题 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td><a href="Admin_Special.asp">专题管理首页</a> | <a href="Admin_Special.asp?Action=Add">添加新专题</a>&nbsp;|&nbsp;<a href="Admin_Special.asp?Action=Order">专题排序</a>&nbsp;|&nbsp;<a href="Admin_Special.asp?Action=Unite">合并专题</a></td>
  </tr>
</table>
<%
Select Case Action
Case "Add"
	call AddSpecial()
Case "SaveAdd"
	call SaveAdd()
Case "Modify"
	call Modify()
Case "SaveModify"
	call SaveModify()
Case "Del"
	call DelSpecial()
Case "Clear"
	call ClearSpecial()
Case "UpOrder"
	call UpOrder() 
Case "DownOrder"
	call DownOrder() 
Case "Unite"
	call ShowUniteForm()
Case "UniteSpecial"
	call UniteSpecial()
Case "Order"
	call ShowOrder()
Case else
	call main()
End Select
if FoundErr=True then Cl.ShowErr(ErrMsg)
Footer

Sub main()
	Set rs=Server.CreateObject("Adodb.RecordSet")
	sql="Select * from Cl_Special"
	if ChannelID>0 then sql=sql & " Where ChannelID="&ChannelID&""
	OpenConn : rs.Open sql,Conn,1,1
%>
<br />
<form name="myform" method="Post" action="Admin_Special.asp?Action=Del" onsubmit="return ConfirmDel();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
	<td height="22" width="30" align="center"><strong>选中</strong></td>
	<td width="25" align="center"  height="22"><strong>ID</strong></td>
    <td width="100" align="center"><strong>专题名称</strong></td>
    <td align="center"><strong>专题说明</strong></td>
    <td width="100" align="center"><strong>所属频道</strong></td>
    <td width="100" height="22" align="center"><strong>常规操作</strong></td>
  </tr>
  <%do while not rs.EOF %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	<td width="30" align="center"><input name='SpecialID' type='checkbox' onclick="unselectall()" id="SpecialID" value='<%=cstr(rs("SpecialID"))%>'></td>
	<td width="25" align="center"><%=rs("SpecialID")%></td>
    <td align="center" width="100"><a href="Admin_Special.asp?action=Modify&SpecialID=<%=rs("SpecialID")%>"><%=rs("SpecialName")%></a></td>
    <td><%=Cl.HTMLEncode(rs("ReadMe"))%></td>
    <td width="100" align="center"><a href="Admin_Special.asp?ChannelID=<%=rs("ChannelID")%>"><%=Cl.GetChannelName(rs("ChannelID"))%></a></td>
    <td width="100" align="center"><%
	response.write "<a href='Admin_Special.asp?action=Modify&SpecialID=" & rs("SpecialID") & "'>修改</a>&nbsp;&nbsp;"
	response.write "<a href='Admin_Special.asp?Action=Del&SpecialID=" & rs("SpecialID") & "' onClick=""return confirm('确定要删除此专题吗？删除此专题后原属于此专题的文章软件等将不属于任何专题。');"">删除</a>&nbsp;&nbsp;" 
    response.write "<a href='Admin_Special.asp?Action=Clear&SpecialID=" & rs("SpecialID") & "' onClick=""return confirm('确定要清空此专题中的所有内容吗？本操作将原属于此专题的文章、软件、等改为不属于任何专题。');"">清空</a>"
	%></td>
  </tr>

  <%
		rs.MoveNext
   	loop
  %>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="250" height="30">&nbsp;&nbsp;<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox"> 选中本页显示的所有专题 </td>
    <td><%
		Response.write "<input name=""submit"" type=""submit"" value=""删除选定专题""  onClick=""return confirm('确定要删除选中的专题吗？注意此操作不可恢复。');"">"
%></td>
  </tr>
</table>
</form>
<%
	rs.Close:Set rs=Nothing
End Sub

Sub ShowOrder()
	dim iCount,j
	Set rs=Server.CreateObject("Adodb.RecordSet")
	sql="select * from Cl_Special"
	OpenConn : rs.Open sql,Conn,1,1
	iCount=rs.recordcount
	j=1
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="4" align="center"><strong> 专 题 </strong><strong>排 
      序</strong></td>
  </tr>
  <%do while not rs.EOF %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
    <td align="center"><a href="Admin_ArticleManageSpecial.asp?SpecialID=<%=rs("SpecialID")%>" title="点击进入管理此专题的文章"><%=rs("SpecialName")%></a></td>
    <form action='Admin_Special.asp?Action=UpOrder' method='post'>
      <td width='120' align="center"> <% 
	if j>1 then 
		response.write "<select name=MoveNum size=1><option value=0>向上移动</option>" 
		for i=1 to j-1 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=SpecialID value="&rs("SpecialID")&">"
		response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&">&nbsp;<input type=submit name=Submit value=修改>" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
    </form>
    <form action='Admin_Special.asp?Action=DownOrder' method='post'>
      <td width='120' align="center"> <%
	if iCount>j then 
		response.write "<select name=MoveNum size=1><option value=0>向下移动</option>" 
		for i=1 to iCount-j 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=SpecialID value="&rs("SpecialID")&">"
		response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&">&nbsp;<input type=submit name=Submit value=修改>" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
      <td width='200' align="center">&nbsp;</td>
    </form>
  </tr>
  <%
     	j=j+1	
		rs.MoveNext
   	loop
  %>
</table> 
<%
	rs.Close:Set rs=Nothing
End Sub

Sub AddSpecial()

%>
<form method="post" action="Admin_Special.asp" name="form1">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center"><strong>添 加 新 专 题</strong></div></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350" class="tdbg"><strong> 专题名称：</strong></td>
      <td class="tdbg"><input name="SpecialName" type="text" id="SpecialName" size="49" maxlength="30"> 
        &nbsp;</td>
    </tr>
    <tr class="tdbg"> 
      <td width="350"><strong>专题所属频道：</strong></td>
      <td><select name="ChannelID" id="ChannelID">
          <%=ShowChannelList(ChannelID)%>
        </select></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350" class="tdbg"><strong>专题说明</strong><br />
        鼠标移至专题名称上时将显示设定的说明文字（不支持HTML）</td>
      <td class="tdbg"><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"></textarea></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350"><strong>专题浏览权限：</strong><br />
        只有具有相应权限的人才能浏览此专题中的内容。</td>
      <td>
	  <input name="ViewGroup" type="hidden" id="ViewGroup" value="5">
	  <input name="ViewGroupView" type="text" id="ViewGroupView" value="<%=Cl.GetUserGroupName(5)%>" size="49" onclick="SelectUserGroup('ViewGroup');" Readonly></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350"><strong>专题录入权限：</strong><br />
        只有具有相应权限的人才能在此专题中录入内容。</td>
      <td>
	  <input name="AddGroup" type="hidden" id="AddGroup" value="1,2,3,4">
	  <input name="AddGroupView" type="text" id="AddGroupView" value="<%=Cl.GetUserGroupName("1,2,3,4")%>" size="49" onclick="SelectUserGroup('AddGroup');" Readonly></td>
    </tr>
    <tr class="tdbg"> 
      <td colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveAdd">
        <input  type="submit" name="Submit" value=" 添 加 ">
        &nbsp; 
        <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Special.asp'" style="cursor:hand;"></td>
    </tr>
  </table>
  </form>
<%
End Sub

Sub Modify()
	dim SpecialID
	SpecialID=Trim(request("SpecialID"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定要修改的专题ID！</li>"
		Exit Sub
	else
		SpecialID=Clng(SpecialID)
	end if
	sql="Select * From Cl_Special Where SpecialID=" & SpecialID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	OpenConn : rs.open sql,Conn,1,3
	if rs.bof and rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>找不到指定的专题，可能已经被删除！</li>"
	else

%>
<form method="post" action="Admin_Special.asp" name="form1">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center"><strong>修 改 专 题</strong></div></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350" class="tdbg"><strong> 专题名称：</strong></td>
      <td class="tdbg"><input name="SpecialName" type="text" id="SpecialName" value="<%=rs("SpecialName")%>" size="49" maxlength="30">
        <input name="SpecialID" type="hidden" id="SpecialID" value="<%=rs("SpecialID")%>"> </td>
    </tr>
    <tr class="tdbg"> 
      <td width="350"><strong>专题所属频道：</strong></td>
      <td><select name="ChannelID" id="ChannelID">
          <%=ShowChannelList(rs("ChannelID"))%>
        </select></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350" class="tdbg"><strong>专题说明</strong><br />
        鼠标移至专题名称上时将显示设定的说明文字（不支持HTML）</td>
      <td class="tdbg"><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"><%=rs("ReadMe")%>
</textarea></td>
    </tr>

    <tr class="tdbg"> 
      <td width="350"><strong>专题浏览权限：</strong><br />
        只有具有相应权限的人才能浏览此专题中的内容。</td>
      <td>
	  <input name="ViewGroup" type="hidden" id="ViewGroup" value="<%=rs("ViewGroup")%>">
	  <input name="ViewGroupView" type="text" id="ViewGroupView" value="<%=Cl.GetUserGroupName(rs("ViewGroup"))%>" size="49" onclick="SelectUserGroup('ViewGroup');" Readonly></td>
    </tr>
    <tr class="tdbg"> 
      <td width="350"><strong>专题录入权限：</strong><br />
        只有具有相应权限的人才能在此专题中录入内容。</td>
      <td>
	  <input name="AddGroup" type="hidden" id="AddGroup" value="<%=rs("AddGroup")%>">
	  <input name="AddGroupView" type="text" id="AddGroupView" value="<%=Cl.GetUserGroupName(rs("AddGroup"))%>" size="49" onclick="SelectUserGroup('AddGroup');" Readonly></td>
    </tr>
    <tr class="tdbg"> 
      <td colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveModify">
        <input  type="submit" name="Submit" value="保存修改结果">
        &nbsp; 
        <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Special.asp'" style="cursor:hand;"></td>
    </tr>
  </table>
</form>
<%
	end if
	rs.close:set rs=Nothing
End Sub

Sub ShowUniteForm()
%>
<br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="3" align="center"><strong>合 并 专 题</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td height="100"><form name="myform" method="post" action="Admin_Special.asp" onSubmit="return ConfirmUnite();">
        &nbsp;&nbsp;将专题 
        <select name="SpecialID" id="SpecialID">
        <%call ShowSpecial()%>
        </select>
        合并到
        <select name="TargetSpecialID" id="TargetSpecialID">
        <%call ShowSpecial()%>
        </select>
        <br /> <br />
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
        <input name="Action" type="hidden" id="Action" value="UniteSpecial">
        <input type="submit" name="Submit" value=" 合并专题 " style="cursor:hand;">
        &nbsp;&nbsp; 
        <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Special.asp'" style="cursor:hand;">
      </form>
	</td>
  </tr>
  <tr class="tdbg"> 
    <td height="60"><strong>注意事项：</strong><br />
      &nbsp;&nbsp;&nbsp;&nbsp;所有操作不可逆，请慎重操作！！！<br />
      &nbsp;&nbsp;&nbsp;&nbsp;不能在同一个专题内进行操作。<br />
      &nbsp;&nbsp;&nbsp;&nbsp;合并后您所指定的专题将被删除，所有内容将转移到目标专题中。</td>
  </tr>
</table> 
<script language="JavaScript" type="text/JavaScript">
function ConfirmUnite()
{
  if (document.myform.SpecialID.value==document.myform.TargetSpecialID.value)
  {
    alert("请不要在相同专题内进行操作！");
	document.myform.TargetSpecialID.focus();
	return false;
  }
}
</script>
<%
End Sub

Sub SaveAdd()
	dim SpecialName,ReadMe,ViewGroup,AddGroup,mrs,MaxOrderID,MaxSID