<!-- #Include File="Con_User.asp" -->
<!-- #Include File="../Include/Inc_Post.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Dim nsort,Data_Name,session_for,dim_down,types,true_hidden,true_put,class_td,put_uppath
session_for=Cls.web_cookies&"_put_"
go_back="<input class=btn type=button name=go_back value='返回上一页' onclick=""javascript:history.back(1);"">"
class_td=" "

tit="发布信息"

Call DoWebHead(2,1)
'----------------------------中间 开始----------------------------
Dim pChannelData,pChannelName,pChannelPath,pChannelTit
pChannelData="<Table border=0><tr>"
SQL = "SELECT ChannelName,ChannelDir,ChannelTit FROM [AsaiMHChannel] WHERE ModuleType In (1,2,5,7,8,9,12) Order By ChannelOrder" 
Set Rs = Cls.Exec(SQL,1)
Do While not rs.eof
	pChannelName = rs(0)
	pChannelPath = InstallDir & rs(1) & "/Put.asp"
	pChannelTit = rs(2)
	pChannelData=pChannelData&"<td>"&img_skin("h_")&"<a href="&pChannelPath&" title='在"&pChannelName&"中发表"&pChannelTit&"'>发表"&pChannelTit&"</a></td><td width=5></td>"
	Rs.MoveNext
	Loop
Rs.Close
pChannelData=pChannelData&"</tr></Table>"

Cls.HtmlRcod "body",Cls.ReadTemplate ("user_Put")
Cls.HtmlRcod "tit",tit
Cls.HtmlRcod "putlist",pChannelData
Cls.HtmlRcod "img_skin",img_skin("h_")
Cls.HtmlRcod "Path",Cls.Web_Dir
Cls.OutPage
'----------------------------中间 结束----------------------------
Call DoWebEnd()
%>
