user_myreceivelist.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Inc/Const.asp"-->
<!--#include file="../Inc/Cl_Receive.asp"-->
<%
if ChannelID=0 then Cl.ShowErr("<li>参数错误")
const PageSize=20
Dim rsRev,Action
Dim InfoID,sInfoID
Dim rsUser,WaitReceive,Received
Set RsUser = CL.Execute_U("select "&Db.WaitReceive & "," & Db.Received & " from "&Db.UserTable&" Where "&Db.UserID&"="&Cl.UserID&"")
If Not RsUser.Eof Then
	WaitReceive = RsUser(0)
	Received	= RsUser(1)
End If
Set RsUser = Nothing
Action=Trim(request("Action"))
Select Case Action
Case "Receive"
	sInfoID=Trim(Received)
Case "NoReceive"
	sInfoID=Trim(WaitReceive)
Case Else
	Action="All"
	sInfoID=Trim(WaitReceive & Received)
End Select
if sInfoID="" then
	sInfoID=0
else
	sInfoID=Replace(sInfoID," ","")
	sInfoID=DelHeadTail(Replace(sInfoID,"||","|"))
	sInfoID=Replace(sInfoID,"|",",")
	if Not IsNumeric(Replace(sInfoID,",","")) then
		sInfoID=0
	end if
end if
Cl.Load_ChannelSetting(ChannelID)
CurrentPage=Cl.GetClng(request("page"))
FileName="User_MyReceiveList.asp?ChannelID="&ChannelID&"&Action="&Action
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
	<td height="22" colspan="2"  align="center"><strong>我 的 签 收 文 章 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
	  <td width="70" height="30"><strong>文章选项：</strong></td>
	<td > <a href="User_MyReceiveList.asp?ChannelID=<%=ChannelID%>&Action=All"><%if Action="All" then%><font color="#FF0033">所有签收文章</font><%else%>所有签收文章<%end if%></a>&nbsp;|&nbsp;<a href="User_MyReceiveList.asp?ChannelID=<%=ChannelID%>&Action=Receive"><%if Action="Receive" then%><font color="#FF0033">已签收文章</font><%else%>已签收文章<%end if%></a>&nbsp;|&nbsp;<a href="User_MyReceiveList.asp?ChannelID=<%=ChannelID%>&Action=NoReceive"><%if Action="NoReceive" then%><font color="#FF0033">未签收文章</font><%else%>未签收文章<%end if%></a>
	</td>
  </tr>
</table>
<br />
<%
sql="select InfoID, ChannelID, ChannelDir, ClassID, Prefixion, Title, FontColor, FontType, TitleIntact, Keyword, Author, CopyFrom, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, PicUrl, Intro, PaginationType, MaxCharPerPage, Receive, ReceiveType, IsLink, IsHtml, HtmlFileUrl, NoPassNum, NoPasstxt, LastHitTime, CommentCount, Status, Deleted from Cl_Article where ChannelID="&ChannelID&" and InfoID in (" & sInfoID & ") and Receive=True order by UpDateTime desc,InfoID desc"
Set rsRev= Server.CreateObject("ADODB.Recordset")
OpenConn : rsRev.open sql,Conn,1,1
if rsRev.eof and rsRev.bof then
	TotalPut=0
	response.write "<p align='center'><br />没有任何签收文章！<br /></p>"
else
	TotalPut=rsRev.recordcount
	if (TotalPut mod PageSize)=0 then
		TotalPages = TotalPut \ PageSize
	else
		TotalPages = TotalPut \ PageSize + 1
	end if
	if CurrentPage > TotalPages then CurrentPage=TotalPages
	if CurrentPage < 1 then CurrentPage=1
	rsRev.move (CurrentPage-1)*PageSize
	ShowContent
	Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"篇","文章")
end if
rsRev.close
set rsRev=Nothing  


sub ShowContent()
	dim ArticleNum,TitleStr,sIsHTML,sLinkUrl
	ArticleNum=0
%>
<table width='100%' border="0" cellpadding="0" cellspacing="0"><tr>
	<form name="myform" method="Post" action="User_ArticleDel.asp" onsubmit="return ConfirmDel();">
	 <td><table class="border" border="0" cellspacing="1" width="100%" cellpadding="0">
		  <tr class="title" height="22"> 
			<td width="25" align="center"  height="22"><strong>ID</strong></td>
			<td align="center" ><strong>文章标题</strong></td>
			<td width="60" align="center" ><strong>录入</strong></td>
			<td width="40" align="center" ><strong>点击数</strong></td>
			<td width="80" align="center" ><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>属性</strong></td>
			<td width="40" align="center" ><strong>已审核</strong></td>
			<td width="60" align="center" ><strong>签收状态</strong></td>
			<td width="60" align="center" ><strong>操作</strong></td>
		  </tr>
		  <%do while not rsRev.eof
			InfoID=rsRev("InfoID")
		  %>
		  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
			<td width="25" align="center"><%=InfoID%></td>
			<td> <%
			TitleStr=Cl.GetTitleFont(rsRev("title"),rsRev("FontType"))
			TitleStr=Cl.FormatColor(TitleStr,rsRev("FontColor"))
			response.write "[" & Cl.GetClassName(rsRev("ClassID")) & "]&nbsp;"
			if Not (IsNull(rsRev("Prefixion")) or rsRev("Prefixion")="") then
				response.write "<font color=""blue"">"&rsRev("Prefixion")&"</font>"
			end if
			response.write "<a href='../"&Cl.Channel.selectSingleNode("@channeldir").text&"/ShowInfo.asp?InfoID="&InfoID&"' target='_blank'>" & TitleStr & "</a>"
			%></td>
			<td width="60" align="center"><%
			response.write "<font color='#ff33ff'>" & rsRev("Editor") & "</font>"
			%></td>
			<td width="40" align="center"><%= rsRev("Hits") %></td>
			<td width="80" align="center"> <%
			if rsRev("ReceiveType")=1 then
				response.Write "(<font color=""#0000FF"">专属文档</font>)<br />"
			else
				response.Write "(公众文档)<br />"
			end if
			if rsRev("OnTop")=True then
				response.Write "<font color=blue>顶</font> "
			else
				response.write "&nbsp;&nbsp;&nbsp;"
			end if
			if rsRev("Hot")=True then
				response.write "<font color=red>热</a> "
			else
				response.write "&nbsp;&nbsp;&nbsp;"
			end if
			if rsRev("Elite")=True then
				response.write "<font color=green>荐</a> "
			else
				response.write "&nbsp;&nbsp;&nbsp;"
			end if
			if rsRev("IsHTML")=True then
				response.write "<font color=blue>H</a>"
			else
				response.write "&nbsp;&nbsp;"
			end if
			%> </td>
			<td width="40" align="center"> <%
			if rsRev("Passed")=True then
				response.write "是"
			else
				response.write "<font color='#ff0033'>否"
			end if%></td>
			<td width="60" align="center"> <%
			if Instr(Received,"|"&InfoID&"|")>0 then
				response.write "已签收"
			else
				response.write "<font color='#ff0033'>未签收</font>"
			end if%></td>
			<td width="60" align="lift"> &nbsp;<%
			response.write "<a href='../"&Cl.Channel.selectSingleNode("@channeldir").text&"/ShowInfo.asp?InfoID="&InfoID&"' target='_blank'>查看文章</a>"
			%></td>
		  </tr>
		  <%
		ArticleNum=ArticleNum+1
		if ArticleNum>=PageSize then exit do
		rsRev.movenext
	loop
%>
		</table>
</td>
</form></tr></table>
<%
end sub
Call InfoManegeExplain()
Footer

Sub ManegeOption()
	if rsRev("Passed")=False then
		response.write "<a href='User_ArticleModify.asp?ChannelID="&ChannelID&"&InfoID=" & rsRev("InfoID") &"'>修改</a>&nbsp;"
		response.write "<a href='User_ArticleDel.asp?ChannelID="&ChannelID&"&InfoID=" & rsRev("InfoID") & "&Action=Del' onclick='return ConfirmDel();'>删除</a>&nbsp;"
		if rsRev("nopass")=True then
			response.write "<a href='User_Articlerepass.asp?ChannelID="&ChannelID&"&Action=Pass&InfoID="&rsRev("InfoID")&"'>重新提交</a>&nbsp;"
			response.write "<a href='User_Articlerepass.asp?ChannelID="&ChannelID&"&Action=Why&InfoID="&rsRev("InfoID")&"'><font color=blue>退稿原因</font></a>"
		end if
	end if
End Sub
%>
<%
'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: [e-mail], [e-mail]
' Q  Q: 3315263, 596197794
' Msn : [e-mail], [e-mail]
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>