📄 user_article.asp
字号:
WhereStr = WhereStr & " and ClassID=0"
Else
arrIDStr = Left(arrIDStr,Len(arrIDStr)-1)
WhereStr = WhereStr & " and ClassID in (" & arrIDStr & ")"
end If
end if
if Action="Special" then
if SpecialID>0 then
WhereStr=WhereStr & " and SpecialID Like '%," & SpecialID & ",%'"
else
WhereStr=WhereStr & " and SpecialID<>'0'"
end if
end if
if ManageType="MyInfo" then
WhereStr=WhereStr & " and Editor='" & Cl.MemberName & "' "
else
if keyword<>"" and keyword<>"关键字" then
keyword = Cl.ReplaceBadChar(keyword&"")
select case Field
case "ID"
WhereStr=WhereStr & " and InfoID = "&Cl.GetClng(keyword)&" "
case "Title"
WhereStr=WhereStr & " and Title like '%" & keyword & "%' "
case "Keyword"
WhereStr=WhereStr & " and Keyword like '%" & keyword & "%' "
case "Intro"
WhereStr=WhereStr & " and Content like '%" & keyword & "%' "
case "CopyFrom"
WhereStr=WhereStr & " and CopyFrom like '%" & keyword & "%' "
case "Author"
WhereStr=WhereStr & " and Author like '%" & keyword & "%' "
case "Editor"
WhereStr=WhereStr & " and Editor='" & keyword & "' "
case "Censor"
WhereStr=WhereStr & " and Censor='" & keyword & "' "
case "Point"
WhereStr=WhereStr & " and InfoPoint <= "&Cl.GetClng(keyword)&" "
case else
WhereStr=WhereStr & " and Title like '%" & keyword & "%' "
end select
'=================
Set rsMove=Cl.Execute(SQL & WhereStr & " order by UpDateTime desc,InfoID desc")
if Not rsMove.Eof then
Dim Tvalue,Ti
Tvalue=rsMove.GetRows(-1)
arrInfoID=Tvalue(0,0)
For Ti=1 To Ubound(Tvalue,2)
arrInfoID=arrInfoID&","&Tvalue(0,Ti)
Next
end if
Set rsMove=Nothing
'=================
end if
end if
'==================
If OnTop then WhereStr=WhereStr & " and OnTop="&TrueType&" "
If Elite then WhereStr=WhereStr & " and Elite="&TrueType&" "
If Hot then WhereStr=WhereStr & " and Hot="&TrueType&" "
'===================
SQL=SQL & WhereStr & " order by UpDateTime desc,InfoID desc"
Dim JumpClassStr,ShowPageStr
JumpClassStr = InfoManegeJumpClass
Set rsList=Cl.Execute(SQL)
'Set rsList= Server.CreateObject("ADODB.Recordset")
'OpenConn : rsList.open sql,Conn,1,1
if rsList.eof and rsList.bof then
TotalPut=0
response.write "<p align='center'><br />当前没有任何记录！</p>"
rsList.close:set rsList=Nothing
JumpClassStr = Replace(JumpClassStr,"{$showpage}","")
else
Dim rsTotalPut
Set rsTotalPut= Cl.Execute("Select count(InfoID) from Cl_Article " & WhereStr)
TotalPut = rsTotalPut(0)
rsTotalPut.Close : Set rsTotalPut=Nothing
'TotalPut = rsList.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
else
rsList.move (CurrentPage-1)*PageSize
end if
SQL=rsList.GetRows(PageSize)
rsList.close:set rsList=Nothing
Rem Page
ShowPageStr = Cl.ShowPage(strFileName & "&OnTop="&OnTop&"&Hot="&Hot&"&Elite="&Elite&"&Status="&Status,TotalPut,PageSize,Cl.ChannelItemUnit,Cl.ChannelItemName)
JumpClassStr = Replace(JumpClassStr,"{$showpage}",ShowPageStr)
Rem Page END
Response.write JumpClassStr
Call InfoManegeListContent()
end If
Response.write JumpClassStr
SQL=Empty
Call InfoManegeExplain()
End Sub
Sub InfoManegeListContent()
Dim TitleStr,Attribute,tStatus
%>
<table class="border" border="0" cellspacing="1" cellpadding="0" align="center">
<form name="myform" method="Get" action="User_InfoDel.asp">
<tr class="title" height="22">
<td height="22" width="30" align="center"><strong>选</strong></td>
<td width="50" align="center" height="22"><strong>ID</strong></td>
<td align="center"><strong>标题</strong></td>
<td width="80" align="center"><strong>添加人</strong></td>
<td width="80" align="center"><strong>审核人</strong></td>
<td width="50" align="center"><strong>点击数</strong></td>
<td width="80" align="center"><strong>属性</strong></td>
<td width="50" align="center"><strong>状态</strong></td>
<td width="100" align="center"><strong>操作</strong></td>
</tr>
<%
for i=0 to Ubound(SQL,2)
'InfoID, ChannelID, ChannelDir, ClassID, Prefixion, Title=5, FontColor, FontType, TitleIntact, Keyword, Author=10, CopyFrom, Editor, UpdateTime, Censor, CensorTime=15, Stars, OnTop, Hot, Elite, Hits=20, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint=25, InfoMoney, PicUrl, Intro, PaginationType, MaxCharPerPage=30, Receive, ReceiveType, IsLink, IsHtml, HtmlFileUrl=35, NoPassNum, NoPasstxt, LastHitTime, CommentCount, Status, Deleted=41
InfoID = SQL(0,i)
if SQL(17,i)=True then
Attribute = "<font color='#0000ff'>顶</font>"
else
Attribute = "<font color='#C5C5C5'>顶</font>"
end if
if SQL(18,i)=True then
Attribute = Attribute & " <font color='#ff0033'>热</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>热</font>"
end if
if SQL(19,i)=True then
Attribute = Attribute & " <font color='#006600'>荐</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>荐</font>"
end If
if SQL(33,i)=True then
Attribute = Attribute & " <font color='#ff0033'>转</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>转</font>"
end if
if SQL(34,i)=True then
Attribute = Attribute & " <font color='#0000ff'>H</font>"
Else
Attribute = Attribute & " <font color='#C5C5C5'>H</font>"
End If
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td align="center" onMouseOut="showlayer('showinfo_<%=SQL(0,i)%>',0)" onMouseOver="showlayer('showinfo_<%=SQL(0,i)%>',1)"><input name="InfoID" type="checkbox" onclick="unselectall()" id="InfoID" value="<%=SQL(0,i)%>"></td>
<td align="center" onMouseOut="showlayer('showinfo_<%=SQL(0,i)%>',0)" onMouseOver="showlayer('showinfo_<%=SQL(0,i)%>',1)"><%=SQL(0,i)%>
<span id="showinfo_<%=SQL(0,i)%>" class="hidden">
<table border="0" cellspacing="1" align="center" cellpadding="0" style="width:500px;">
<tr class="title">
<td colspan="3" align="left"><%
Response.write " [<a href='"&FileName&"&ClassID=" & SQL(3,i) & "' class='red'>" & Cl.GetClassName(SQL(3,i)) & "</a>] " & SQL(5,i)
%></td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right" nowrap><strong>可用操作：</strong></td>
<td width="85%" colspan="2">
<%
Rem BEGIN
response.write "<a href='User_Article.asp?Action=Modify&ChannelID="& SQL(1,i) &"&InfoID=" & InfoID &"' class='blue'>修改</a>"
response.write " <a href='User_InfoDel.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=Del' onclick='return ConfirmDel();'>删除</a>"
response.write " <a href='User_InfoMove.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "'>移动</a>"
if SQL(17,i)=False then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetOnTop'>固顶</a>"
else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelOnTop'>解固</a>"
end if
if SQL(19,i)=False then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetElite'>设为推荐</a>"
else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelElite'>取消推荐</a>"
end if
If SQL(40,i)=1 Then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
response.write " <font color='blue'>HTML</font>(<a href='User_Create_Article.asp?ChannelID="& SQL(1,i) &"&Action=CreateInfo&InfoID=" & InfoID & "'>生成</a>"
if SQL(34,i)=True then
response.write " <a href='User_Create_Article.asp?ChannelID="& SQL(1,i) &"&Action=DelInfoHTML&InfoID=" & InfoID & "'>删除</a>"
response.write " <a href='" & Cl.WebDir & SQL(35,i) & "' target='_blank'>浏览</a>"
end If
response.write ")"
Else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过审核</a>"
response.write " <a href='User_NoPass.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "'>退回</a>"
End If
REM END
%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>完整标题：</strong></td>
<td colspan="2"><%=SQL(8,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><%=SQL(9,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>录入用户：</strong></td>
<td><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(12,i)%>"><%=SQL(12,i)%></a>(<font color='#0000ff'><%=SQL(13,i)%></font>)[<a href="User_User.asp?Action=Modify&UserName=<%=SQL(12,i)%>" class="blue">信息</a>] [<a href="../User/User_Message.Asp?Action=new&touser=<%=SQL(12,i)%>" class="blue">短消息</a>]</td>
<td width="25%" align="center" rowspan="5"><%
If SQL(27,i)<>"" Then
Response.write "<img src='"&Cl.ReplaceDir(SQL(27,i))&"' border='0' width='110' height='90' style='border:1px solid #C5C5C5;' />"
End if
%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>作 者：</strong></td>
<td><%=SQL(10,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>来 源：</strong></td>
<td><%=SQL(11,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>等 级：</strong></td>
<td><%=Cl.GetStar(SQL(16,i))%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>属 性：</strong></td>
<td><%
Response.write Attribute
Response.write " "
if SQL(31,i)=True then
response.Write "<font color=""#FF00FF"">签收</font>"
if SQL(32,i)=1 then
response.Write "(<font color=""#0000FF"">专属</font>)"
else
response.Write "(公众)"
end If
Else
response.Write "<font color=""#C5C5C5"">签收</font>"
end if
%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看<%=Cl.Web_Setting(28)%>：</strong></td>
<td colspan="2"><b class="red"><%=SQL(25,i)%></b><%=Cl.Web_Setting(29)%> <%=Cl.Web_Setting(26)%>：<b class="red"><%=SQL(26,i)%></b><%=Cl.Web_Setting(27)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看用户：</strong></td>
<td colspan="2"><%=Cl.GetUserGroupName(SQL(24,i))%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>点击次数：</strong></td>
<td colspan="2">本日：<strong><%=SQL(21,i)%></strong> 本周：<strong><%=SQL(22,i)%></strong> 本月：<strong><%=SQL(23,i)%></strong> 累计：<strong><%=SQL(20,i)%></strong></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>分页方式：</strong></td>
<td colspan="2"><%
Select Case SQL(29,i)
Case 0 : response.write "不分页"
Case 1 : response.write "自动分页"
Case 2 : response.write "手动分页"
End Select
%></strong></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>内容简介：</strong></td>
<td colspan="2" style="word-wrap:break-word;"><%=Server.HTMLEnCode(Left(Cl.NoHTML(SQL(28,i)&""),500))%></strong></td>
</tr>
</table>
</span>
</td>
<td align="left"> <%
TitleStr=Cl.GetTitleFont(SQL(5,i),SQL(7,i))
TitleStr=Cl.FormatColor(TitleStr,SQL(6,i))
if Clng(SQL(3,i))<>ClassID then
response.write "[<a href='"&FileName&"&ClassID=" & SQL(3,i) & "' class='blue'>" & Cl.GetClassName(SQL(3,i)) & "</a>] "
end if
if Not (IsNull(SQL(4,i)) or SQL(4,i)="") then
response.write "<font color='blue'>"&SQL(4,i)&"</font>"
end if
response.write "<a href='User_Article.asp?Action=Show&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>" & TitleStr & "</a>"
%></td>
<!------------------------>
<td align="center"><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(12,i)%>"><%=SQL(12,i)%></a><br />(<font color='#0000ff' title='<%=SQL(13,i)%>'><%=FormatDateTime(SQL(13,i),2)%></font>)</td>
<td align="center"><%
Select Case SQL(40,i)
Case 1
response.write "<a href='"&FileName&"&Field=Censor&Keyword="&SQL(14,i)&"'>" & SQL(14,i) & "</a><br />(<font color='#0000ff' title='" & SQL(15,i) & "'>" & Cl.Format_Time(SQL(15,i),3) & "</font>)"
tStatus = "<font color='#0000ff'>已审</font>"
Case 0
response.write "<font color='#888888'>等待审核</font>"
tStatus = "<font color='#888888'>待审</font>"
Case Else
response.write "<a href='"&FileName&"&Field=Censor&Keyword="&SQL(14,i)&"'>" & SQL(14,i) & "</a><br />(<font color='#0000ff' title='" & SQL(15,i) & "'>" & Cl.Format_Time(SQL(15,i),3) & "</font>)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -