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

dim titl,Data_Name,titl_fir,tit_unit,tit_urls,tit_record,tmp_color
action=Cls.ChkNumeric(action)
if action=0 then action=1
Cls.LoadChannel(action)
tit="查看我添加的"&Cls.ChannelModule
call DoWebHead(2,0)
'----------------------------左边 开始----------------------------
'----------------------------左边 结束----------------------------
'----------------------------中间 开始----------------------------
tit_urls=Cls.ChannelPath
Data_Name=Cls.ChannelDBTable
titl_fir=Cls.ChannelModule
tit_record="id,name,username,tim,counter,tcolor"

select case Cls.ChannelModType
case 2
   tit_unit="个"
case 5
   tit_unit="个"
case 9
   tit_unit="个"
case 12
   tit_unit="个"
   tit_record="id,Company,username,tim,counter,tcolor"
case else
   tit_unit="篇"
   tit_record="id,topic,username,tim,counter,tcolor"
end select

call putview()
'----------------------------中间 结束----------------------------
call DoWebEnd()

sub putview()
dim sTmp
sTmp= "<table cellspacing=1 cellpadding=4 width='96%' class=table>" & _
vbcrlf&"<tr align=center>" & _
vbcrlf&"<td width='8%' class=td><b>序号</b></td>" & _
vbcrlf&"<td width='92%' class=td><b>"&titl_fir&"标题</b></td>" & _
vbcrlf&"</tr>"
	Dim obj_page
	Set obj_page=new Cls_PageCute
	obj_page.pageurl="?action="&action&"&"		
	obj_page.nummer=Format_Mid_Num(12)						
	obj_page.page_t=1									
	obj_page.page_p=5									
	obj_page.page_unit=tit_unit
	obj_page.page_tit=titl_fir
	obj_page.v_id="id"
	Call obj_page.p_init(tit_record,Data_Name,"channelids="&action&" and username='"&login_username&"'","id desc")
	SQL = obj_page.sql_count
	Set rs=Cls.Exec(SQL,1)
	obj_page.rssum=rs(0)
	Rs.Close
	Call obj_page.p_main(tit_record,Data_Name,"channelids="&action&" and username='"&login_username&"'","id desc")
	For i=1 To obj_page.page_num
	tmp_color="style=""color:"&rs(5)&";"""
sTmp=sTmp&"<tr class=tr align=center >" & _
vbcrlf&"<td class=tims>"&i+obj_page.page_now&"</td>" & _
vbcrlf&"<td align=left><a href='"&tit_urls&"View.asp?id="&rs(0)&"' "&tmp_color&" target=_blank>"&rs(1)&"</a>&nbsp;<font class=tims>("&Cls.time_type(rs(3),4)&"，<font class=red>"&rs(4)&"</font>次)</td>" & _
vbcrlf&"</tr>"
    rs.movenext
  next
  rs.close
sTmp=sTmp&"<tr><td class=trs colspan=6>" & _
vbcrlf&"<div id=""asaipage"">"&obj_page.page_var&"分页："&obj_page.page_cute&obj_page.page_shortcut&"</div>" & _
vbcrlf&"</td></tr>" & _
vbcrlf&"</table>"
    Cls.HtmlRcod "body",Cls.ReadTemplate("user_Putview")
          Dim pChannelIds,pChannelData,pChannelName,pChannelPath,pChannelTit 
           pChannelData="<div class=""dvaco"">"
	SQL = "SELECT ChannelIds,ChannelName,ChannelTit FROM [AsaiMHChannel] WHERE ModuleType In (1,2,5,7,9,12) Order By ChannelOrder"  
	Set Rs = Cls.Exec(SQL,1)
           Do While not rs.eof
              pChannelIds=rs(0)
              pChannelPath="?Action="&pChannelIds
               pChannelName = rs(1)
	    pChannelTit = rs(2)
               pChannelData=pChannelData&"  "&img_skin("h_")&"<a href="&pChannelPath&" title='查看我在"&pChannelName&"中发表的"&pChannelTit&"'>查看"&pChannelTit&"</a> "
               Rs.MoveNext
           Loop
           Rs.Close
          pChannelData=pChannelData&"</div>"
	Cls.HtmlRcod "tit",tit
           Cls.HtmlRcod "putlist",pChannelData
	Cls.HtmlRcod "img_skin",img_skin("h_")
	Cls.HtmlRcod "body",sTmp
	Cls.OutPage
end sub
%>
