<!--#include file="../Inc/Cls_DB.asp" -->
<!--#include file="../Inc/Const.asp" -->
<% dim  dbc,conn
   set  dbc=new databaseclass
   set  conn=dbc.openconnection()
   set  dbc=nothing
'==============================================================================
'产品目录：风讯产品N系列
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System V1.0.0
'最新更新：2004.8
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071 
'技术支持QQ：66252421 
'程序开发：风讯开发组 & 风讯插件开发组
'Email:service@cooin.com
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：www.cooin.com    开发者园地：www.aspsun.cn
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'风讯在线保留此程序的法律追究权利
'==============================================================================
   %>
<!--#include file="../Inc/MemberCheck.asp" -->
<% 
Dim TempStr
TempStr = ClassList	
Function ClassList()
	Dim Rs,Temp
	Set Rs = server.createobject("adodb.recordset")
	Rs.source = "select * from NewsClass where ParentID='0' and Contribution=1"
	Rs.open Rs.source,Conn,1,1
	if Rs.Eof then
       ClassList = "<font color=red>暂时没有允许投稿的栏目</font>"
    	Exit Function	
	end if
	do while Not Rs.Eof
		Temp = ""
		ClassList = ClassList & ""
		if Rs("ChildNum") = 0 then
			Temp = Temp & " ├ <img src=images/NewsPr1.gif> "
		else
			Temp = Temp & " ├ <img src=images/NewsPr.gif> "
		end if
		if PopManage=true then
		ClassList = ClassList & Temp & "<A href=News_ManageAdd.asp?ClassID="&Trim(Rs("ClassID"))&"><font color=red>"&Rs("ClassCName")&"</font></A>" & "<br>"
		else
		ClassList = ClassList & Temp & "<A href=News_UserAdd.asp?ClassID="&Trim(Rs("ClassID"))&"><font color=red>"&Rs("ClassCName")&"</font></A>" & "<br>"
		end if
		ClassList = ClassList & ChildClassList(Rs("ClassID"),"")
		Rs.MoveNext	
	loop
	Rs.Close
	Set Rs = Nothing
End Function
Function ChildClassList(ClassID,Temp)
	Dim TempRs,TempStr
	TempStr = Temp & " │ "
	Set TempRs = Conn.Execute("Select * from NewsClass where ParentID = '" & ClassID & "' and Contribution=1")
	do while Not TempRs.Eof
		if TempRs("ChildNum") = 0 then
		    if PopManage=true then
			ChildClassList = ChildClassList & TempStr & "├ <img src=images/NewsPr1.gif> " & "<A href=News_ManageAdd.asp?ClassID="&Trim(TempRs("ClassID"))&"><font color=red>"&TempRs("ClassCName")&"</font></A>" & "<br>"
		    else
			ChildClassList = ChildClassList & TempStr & "├ <img src=images/NewsPr1.gif> " & "<A href=News_UserAdd.asp?ClassID="&Trim(TempRs("ClassID"))&"><font color=red>"&TempRs("ClassCName")&"</font></A>" & "<br>"
			end if
		else
		    if PopManage=true then
			ChildClassList = ChildClassList & TempStr & "├ <img src=images/NewsPr.gif> " & "<A href=News_ManageAdd.asp?ClassID="&Trim(TempRs("ClassID"))&"><font color=red>"&TempRs("ClassCName")&"</font></A>" & "<br>"
		    else
			ChildClassList = ChildClassList & TempStr & "├ <img src=images/NewsPr.gif> " & "<A href=News_UserAdd.asp?ClassID="&Trim(TempRs("ClassID"))&"><font color=red>"&TempRs("ClassCName")&"</font></A>" & "<br>"
			end if
		end if
		ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
		TempRs.MoveNext
	loop
	TempRs.Close
	Set TempRs = Nothing
End Function
%>
<head>
<title>会员投稿</title>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor=#F9FBFD leftmargin=0 topmargin="40">
<tr> 
  <td width="148">&nbsp; <table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFEFEF" class="mainmiddle">
      <tr> 
        <td width="1%" height="32"> <div align="left"> 
            <p class="maindaohang">&nbsp;</p>
          </div></td>
        <td width="97%" valign="middle"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td height="5"></td>
            </tr>
          </table>
          <div align="right"><b><strong><font color="#990000">请选择要管理栏目下稿件&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="UserMain.asp">&lt;&lt;返回会员中心</a></font></strong></b></div></td>
        <td width="2%" valign="middle" class="mainrights">&nbsp;</td>
      </tr>
    </table>
    <table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="tabbgcolor">
      <tr> 
        <td bgcolor="#FFFFFF"> <table width="470" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td> </td>
            </tr>
            <tr> 
              <td>
                <% =TempStr %>
              </td>
            </tr>
          </table>
          
        </td>
      </tr>
    </table>