admin_news_class_di3.asp

一套企业全站

<!--#include file=inc/conn.asp-->
<!--#include file=../../inc/checkadmin.asp-->
<!--#include file=../../../ajaxLIB/ajaxLIB.asp-->

<SCRIPT LANGUAGE="JavaScript">
<!--
function alertreadme(str,url){
{if(confirm(str)){
location.href=url;
return true;
}return false;}
}
//-->
</SCRIPT>
<link rel="stylesheet" href="../../css/mycss1.css" type="text/css">




<%
AJAXshowLoader()
AJAXshowSweetTitles2()
%>













<%


set rsq=server.createobject("adodb.recordset")
sql = "select * from sys_data_xxprod_di2cen_class"
rsq.open sql,conn,1,1
%>
<script language="javascript">
var onecount;
subcat = new Array();
        <%
        count = 0
        do while not rsq.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rsq("class_name"))%>","<%= trim(rsq("di1_parent_id"))%>","<%= trim(rsq("ID"))%>");
        <%
        count = count + 1
        rsq.movenext
        loop
        rsq.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.SmallClassName.length = 1; 
    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
var dd=0;
            if (subcat[i][1] == locationid)
            { 
dd=dd+1;
 document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
            }     



        }


if( dd==0)  {

document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option("请先添加第二级分类","" );
           


} 
    }  



</script>
















<%





if request("action")="add" then



ClassName=request("title")
ParentId=request("BigClass")
if ClassName<>"" then





if request("BigClassName")="" then
%>


<script language=javascript>alert("请选择第一级分类,第一级分类不能为空");self.location="<%=self%>";</script>

<%
response.end
end if



if request("SmallClassName")="" then
%>


<script language=javascript>alert("请选择第二级分类,第二级分类不能为空");self.location="<%=self%>";</script>

<%
response.end
end if






set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from sys_data_xxprod_di3cen_class",conn,1,3


rs2.addnew
rs2("class_name")=ClassName
rs2("parent_id_of_di1")=request("BigClassName")

rs2("parent_id_of_di2")=request("SmallClassName")

rs2("smallpic")=request("simagePath")

rs2.update
rs2.close
set rs2=nothing
%>
<script language=javascript>alert("添加成功");self.location="admin_news_class_di3.asp?dierid=<%=request("dierid")%>";</script>
<%



else
%>
<script language=javascript>alert("请填写分类名");self.location="<%=self%>";</script>

<%
end if






end if
%>



















<script language=javascript>





function AJAXDelclass(tid){



if(!confirm("该分类下的所有产品都会被删除，你确认删除吗?")){
return false;
}


AJAXshowWoking("正在删除,请稍后...");


var a=AJAXcreateXMLHttp();
a.open("post","admin_newsclassdi3Del.asp?tid="+tid,true)

a.onreadystatechange=function(){
if (a.readyState==4)
{

AJAXcloseWoking();

if(a.responseText=="xmlok")
{
alert("删除成功");
window.location.reload(); 

}


}
}

a.send();


}

</SCRIPT>








<div  id="list" style="filter:blendTrans(duration=1); position:absolute;visibility:hidden; width:774px; z-index:-1; left: 3px; top: 120px; height: 121px;">

<table width="620" border="0" align="center" cellpadding="0" cellspacing="1" class="TABLEBORDER" style="word-break:break-all" >
  <tr align="center">
    <th colspan="3">分类管理</th>
  </tr>
  <tr align="center" bgcolor="#DEDBEF">

    <td width="102" height="25" bgcolor="#DEDBEF"><strong>id</strong></td>

    <td width="202" height="25" bgcolor="#DEDBEF"><strong>分类名称</strong></td>
    <td width="202" height="25" bgcolor="#DEDBEF"><strong>属于哪个第一级分类</strong></td>
    <td width="202" height="25" bgcolor="#DEDBEF"><strong>属于哪个第二级分类</strong></td>
 <td width="302" height="25" bgcolor="#DEDBEF"><strong>模板引用此类产品列表用的标签</strong></td>




    <td width="350"><strong>操作</strong></td>
  </tr>
  <%
	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replacebadchar(request("page"))
 	end if
	end if
	end if

	maxperpage=15
	openconn()




                 	strFileName="admin_news_class_di3.asp?dierid="&request("dierid")
		 set rs=server.CreateObject("adodb.recordset")
		 rs.open "select * from sys_data_xxprod_di3cen_class  where parent_id_of_di2='"&request("dierid")&"' order by parent_id_of_di1 desc,parent_id_of_di2 desc",conn,1,1



		 if not rs.eof then
		rs.pagesize=MaxPerpage
		totalnumber=rs.recordcount
		if totalnumber mod maxperpage=0 then
    	MaxPage= totalnumber \ MaxPerpage
  	else
    	MaxPage= totalnumber \ MaxPerpage+1
  	end if
		if int(CurrentPage)>int(MaxPage) then
		CurrentPage=MaxPage
		else
		CurrentPage=CurrentPage
		end if
		Rs.absolutepage=CurrentPage
		for ni=1 to MaxPerpage
		if rs.eof then exit for
  %>
  <tr onmouseover="this.style.backgroundColor='#F3F3FA';this.style.color='red'" onmouseout="this.style.backgroundColor='';this.style.color=''" align="center">
   



    <td height="25"><%=rs("id")%>


 <td height="25"><%=rs("class_name")%>

<input type=hidden value=<%=request("dierid")%> name=dierid>





</td>



		<% set rs3=server.CreateObject("adodb.recordset")
		 rs3.open "select * from sys_data_xxprod_class where id="&rs("parent_id_of_di1"),conn,1,1

%>



		<% set rs33=server.CreateObject("adodb.recordset")
		 rs33.open "select * from sys_data_xxprod_di2cen_class where id="&rs("parent_id_of_di2"),conn,1,1

%>




    <td height="25"><%=rs3("news_type_name")%></td>

    <td height="25"><%=rs33("class_name")%></td>

    <td height="25">

{$$show_product_class_cen3(<%=rs("id")%>,5,2,4,1,1,1,500,1)}



</td>

   

    <td><a href="edit_class_di3.asp?cid=<%=rs("id")%>&dierid=<%=request("dierid")%>">修改</a>&nbsp;&nbsp;&nbsp;<a href="#" onClick="AJAXDelclass(<%=rs("id")%>);">删除</a></td>
  </tr>
  <%
  rs.movenext
		  next
		  else%>
		 <tr>
        <td colspan="6" height="25" align="center">还没有</td>
      </tr>
		  <%end if%>
		          <tr>
        <td colspan="6" align="center" class="showPage"><%call showpage(strFileName,totalnumber,MaxPerPage,flase,true,"个",CurrentPage)%></td>
      </tr>
</table>





<hr>












<form method="POST" name="myform" action="admin_news_class_di3.asp?action=add&dierid=<%=request("dierid")%>" target="_self">
<table width="650" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr align="center">
    <th height="30" colspan="2"><strong>添加此级分类</strong>&nbsp;      </th>
  </tr>




  <tr bgcolor="#FFFFFF">
    
    <td width=200>&nbsp;属于哪个第一级分类</td>





<td>
<% 		openconn()



set rsff=server.createobject("adodb.recordset")



        sql = "select * from sys_data_xxprod_di2cen_class where id="&request("dierid")
        rsff.open sql,conn,1,1




set rs=server.createobject("adodb.recordset")



        sql = "select * from sys_data_xxprod_class where id="&rsff("di1_parent_id")
        rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			response.write "请先添加一级分类"
		else
		%>
                    <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
                      <option selected value="<%=trim(rs("ID"))%>"><%=trim(rs("news_type_name"))%></option>
                      <%
			dim selclass
		    selclass=rs("ID")
        	rs.movenext
		    do while not rs.eof
			%>
                      <option value="<%=trim(rs("ID"))%>"><%=trim(rs("news_type_name"))%></option>
                      <%
		        rs.movenext
    	    loop
		end if
        rs.close
			%></select>


</td></tr>

  <tr bgcolor="#FFFFFF">
    
    <td>&nbsp;属于哪个第二级分类</td>


<td>
    <select name="SmallClassName">


                      <%
			sql="select * from sys_data_xxprod_di2cen_class where id="&request("dierid")
			rs.open sql,conn,1,1
			if not(rs.eof and rs.bof) then
			%>
                      <option value="<%=rs("ID")%>"><%=rs("class_name")%></option>
                      <% rs.movenext
				do while not rs.eof%>
                      <option value="<%=rs("ID")%>"><%=rs("class_name")%></option>
                      <%
			    	rs.movenext
				loop
else

%>

  <option value="">请先添加第二级分类</option>


<%
			end if
	        rs.close
			%>
    </select></td>
  </tr>












    <tr bgcolor="#FFFFFF">
    <td width="87" height="30" align="right">分类名：</td>
    <td width="560">&nbsp;&nbsp;<input name="title" type="text" id="title"></td>
  </tr>
    


 <tr bgcolor="#FFFFFF">
    <td width="87" height="30" align="right">分类缩略图：</td>
    <td width="560" align="left">



<input type="hidden" name="simagePath" value="no">

&nbsp;&nbsp;<iframe name=ad1 frameborder=0 width=90% height=25  scrolling=no src="sUpimgdododo.htm"></iframe><br>（图片大小在200*200左右）

</td>
</tr>
  <tr bgcolor="#FFFFFF">
    <td height="30" align="right"></td>
    <td>&nbsp;&nbsp;
    <input type="submit" name="Submit" value=" 添 加 "></td>
  </tr>
</table>
</form>









</div>


























<script language=javascript>
AJAXfade(1,'list')
</script>



<%
AJAXcloseLoader()
%>





<%


'============================
sub newsClass(str)
select case str
case 0 response.Write("公司新闻")
case 1 response.Write("媒体报道")
case 2 response.Write("行业新闻")
case 2 response.Write("产品知识")
case else response.Write("公司新闻")
end select
end sub
'=====================================
call closeconn()%>