user_publish.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<!--#include file="user_popedom.asp"-->
<!--#include file="ms_start.asp"-->
<%'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="发布信息"
%>
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
<!--#include file="user_lmenu.asp"-->
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<%select case lcase(Request("channel"))
	case lcase("article")%>
<!--#include file="user_article.asp"-->
<%		select case lcase(Request("action"))
			case lcase("maosin_appArticle")
				title="发布文章"
				navTitle
				naviArt
				if ableArtical=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					addArticle
				end if
			case lcase("articleList")
				title="我的文章管理"
				navTitle
				naviArt
				articleList
			case lcase("maosin_SaveArticle")
				title="发布文章"
				navTitle
				naviArt
				if ableArtical=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					saveArticle
				end if
			case lcase("maosin_delArticle")
				title="删除文章"
				navTitle
				naviArt
				deleteArticle
			case lcase("maosin_mdfArticle")
				title="修改文章"
				navTitle
				naviArt
				modifyArticle
			case lcase("maosin_savemdf")
				title="修改文章"
				navTitle
				naviArt
				saveArticle
		end select
	case lcase("news")%>
<!--#include file="user_news.asp"-->
<%		select case lcase(Request("action"))
			case lcase("maosin_appNews")
				title="发布新闻"
				navTitle
				naviNews
				if ableNews=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					addnews
				end if
			case lcase("newsList")
				title="我的新闻管理"
				navTitle
				naviNews
				newsList
			case lcase("maosin_savenews")
				title="发布新闻"
				navTitle
				naviNews
				if ableNews=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					savenews
				end if				
			case lcase("maosin_delnews")
				title="删除新闻"
				navTitle
				naviNews
				deletenews
			case lcase("maosin_mdfnews")
				title="修改新闻"
				navTitle
				naviNews
				modifynews
			case lcase("maosin_savemdf")
				title="修改新闻"
				navTitle
				naviNews
				savenews
		end select
	case lcase("pic")%>
<!--#include file="user_pic.asp"-->
<%		select case lcase(Request("action"))
			case lcase("maosin_appPic")
				title="发布图片"
				navTitle
				naviPic
				if ablePic=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					addpic
				end if				
			case lcase("picList")
				title="我的图片管理"
				navTitle
				naviPic
				picList
			case lcase("maosin_savepic")
				title="发布图片"
				navTitle
				naviPic
				if ablePic=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					savepic
				end if				
			case lcase("maosin_delpic")
				title="删除图片"
				navTitle
				naviPic
				deletepic
			case lcase("maosin_mdfpic")
				title="修改图片"
				navTitle
				naviPic
				modifypic
			case lcase("maosin_savemdf")
				title="修改图片"
				navTitle
				naviPic
				savepic
		end select
	case lcase("down")%>
<!--#include file="user_down.asp"-->
<%		select case lcase(Request("action"))
			case lcase("maosin_appDown")
				title="发布下载"
				navTitle
				naviDown
				if ableDown=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					addDown
				end if				
			case lcase("downList")
				title="我的下载管理"
				navTitle
				naviDown
				downList
			case lcase("maosin_savedown")
				title="发布下载"
				navTitle
				naviDown
				if ableDown=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					saveDown
				end if				
			case lcase("maosin_deldown")
				title="删除下载"
				navTitle
				naviDown
				deleteDown
			case lcase("maosin_mdfdown")
				title="修改下载"
				navTitle
				naviDown
				modifyDown
			case lcase("maosin_savemdf")
				title="修改下载"
				navTitle
				naviDown
				saveDown
		end select
	case lcase("res")%>
<!--#include file="user_res.asp"-->
<%		select case lcase(Request("action"))
			case lcase("maosin_appRes")
				title="发布免费资源"
				navTitle
				naviRes
				if ableRes=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					addRes
				end if				
			case lcase("resList")
				title="我的免费资源管理"
				navTitle
				naviRes
				resList
			case lcase("maosin_saveRes")
				title="发布免费资源"
				navTitle
				naviRes
				if ableRes=0 then
					showMsg "对不起,此栏目暂时禁止发布内容","发布信息出错"
				else
					saveRes
				end if				
			case lcase("maosin_delRes")
				title="删除免费资源"
				navTitle
				naviRes
				deleteRes
			case lcase("maosin_mdfRes")
				title="修改免费资源"
				navTitle
				naviRes
				modifyRes
			case lcase("maosin_savemdf")
				title="修改免费资源"
				navTitle
				naviRes
				saveRes
		end select
end select%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub navTitle()%>
<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="user_center.asp">会员中心</a>→<%=title%></span></td><td class="naviR"></td></tr></table>
<%End Sub%>