📄 act.manage.asp
字号:
.Write " <td width=""50"" align=""center"" class=""bg_tr"">已生成</td>"
%>
<td width="20%" colspan="2" align="center" class="bg_tr">常规管理操作</td>
</tr>
<%
Dim bgColor
If IsArray(arrRecordInfo) Then
For i = 0 to UBound(arrRecordInfo, 2)
bgColor="#FFFFFF"
if i mod 2=0 then bgColor="#DFEFFF"
Dim Rs ,ClassName,ClasseName
Set Rs = server.CreateObject("adodb.recordset")
Rs.Open "select ClassName,ClasseName from Class_Act where ClassID='"& arrRecordInfo(6,i) &"'",Conn,1,1
if Not Rs.bof then
ClassName =Rs("ClassName")
ClasseName =Rs("ClasseName")
Else
ClassName ="<font color=red>程序出现错误</font>"
ClasseName ="<font color=red>意外错误</font>"
End if
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td align="center" >
<input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>"> </td>
<td align="center" ><%= arrRecordInfo(0,i) %></td>
<td ><a target="_blank" href="<%
If arrRecordInfo(8,i) = 1 Then
.write arrRecordInfo(7,i)
Else
.write ACTCMS.ActCMSDM&"Article/TypeArticle.asp?ID="&arrRecordInfo(0,i)&"&ModeID="&ModeID
End if%>"><%= arrRecordInfo(1,i) %></a> <%
If arrRecordInfo(12,i)=1 Then
response.write "<font color=red title=""图片文章"" style=""cursor:default"">图</font>"
End If
If arrRecordInfo(13,i)=1 Then
response.write " <font color=green title=""幻灯片文章"" style=""cursor:default"">幻</font>"
End If
If arrRecordInfo(8,i)=1 Then
response.write " <font color=green title=""转向链接"" style=""cursor:default"">转</font>"
End If
%></td>
<td align="center" >
<a href="?Action=ListID&ModeID=<%=ModeID%>&ClassID=<%= arrRecordInfo(6,i) %>"><%= classname %></a> </td>
<td align="center" ><%= arrRecordInfo(2,i) %></td>
<td align="center" ><%= arrRecordInfo(3,i) %></td>
<td align="center" ><% '0审核通过 1草稿 2待审核 3退稿
Select Case(arrRecordInfo(4,i))
Case 0
.Write "审核通过"
Case 1
.Write "<font color=red>草稿</font>"
Case 2
.Write "<font color=red>待审核</font>"
Case 3
.Write "<font color=red>退稿</font>"
End Select
%></td>
<td align="center" >
<%IF arrRecordInfo(9,i) = 1 Then
.Write "<font color=red><b>√</b></font>"
ElseIf arrRecordInfo(10,i) <> "" Or arrRecordInfo(11,i) > "0" Then
.Write "<font color=#008000 title='因为设置了阅读权限,所以不用生成HTML'><b>¤</b></font>"
Else
.Write "<font color=red><b>×</b></font>"
End If %>
</td>
<td colspan="2" align="center" >
<%if request.QueryString("action") ="sh" then %>
<a href="ACT.Add.asp?Action=edit&actcms=sh&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>">审核</a>
<a href="ACT.Manage.asp?Action=del&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>" onClick="return confirm('确认删除此文章吗?删除后您可以从回收站还原!')">删除</a>
<a href="ACT.Manage.asp?Action=tg&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>">退稿</a>
<%Else %>
<a href="ACT.Add.asp?Action=edit&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>">修改</a>
<a href="ACT.Manage.asp?Action=del&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>" onClick="return confirm('确认删除此文章吗?删除后您可以从回收站还原!')">删除</a>
<% if arrRecordInfo(5,i) = 1 Then %>
<a title="解除固顶" href="ACT.Manage.asp?Action=Notop&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>">解固</a>
<% ELse
%><a href="ACT.Manage.asp?Action=Istop&ID=<%= arrRecordInfo(0,i) %>&ModeID=<%=ModeID%>">固顶</a>
<%
end if%>
<%End If %>
</td>
</tr>
<%
Next
End If
%>
<tr >
<td height="30" colspan="11" >
<input name="ChkAll" type="checkbox" id="ChkAll" onClick="CheckAll(this.form)" value="checkbox">
<label for="chkAll"> 选中本页显示的所有文章</label>
<input type="button" class="act_btn" name="Submit" value="批量删除" onClick="delpost()">
<input type="button" class="act_btn" name="isAccept" value="审核通过" onClick="isAcceptpost()">
<input type="button" class="act_btn" name="NoAccept" value="取消审核" onClick="NoAcceptpost()">
<%if request.QueryString("action") ="sh" then %>
<input type="button" class="act_btn" name="tg" value=" 退稿 " onClick="tgpost()">
<%end if %>
<input type="button" class="act_btn" name="setarticle" value="批量设置" onClick="setarticlepost()"> </td>
</tr>
<tr >
<td height="25" colspan="11" align="center" ><%= strPageInfo%></td>
</tr></form>
</table>
<script language="javascript">
function SelectIterm(form,sign){
for (var i=0; i<form.elements.length;i++ ){
if (form.elements[i].type == "checkbox"){
var e=form.elements[i];
if (sign==0) e.checked= true;
if (sign==1) e.checked= !e.checked;
if (sign==2) e.checked= false;
}
}
}
//CSS背景控制
function overColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg1"
Obj.bgColor="";
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = Article.elements[i];
if (e.name != 'ChkAll'&&e.type=="checkbox")
e.checked = Article.ChkAll.checked;
}
}
function outColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg";
Obj.bgColor="";
}
}
function setarticlepost(){
document.Article.method="post";
document.Article.action="ACT.SetArticle.asp?ModeID=<%=ModeID%>&Action=SetArticle";
document.Article.submit();
return true;
}
function isAcceptpost(){
document.Article.method="post";
document.Article.action="ACT.Manage.asp?ModeID=<%=ModeID%>&Action=isAccept";
document.Article.submit();
return true;
}
function NoAcceptpost(){
document.Article.method="post";
document.Article.action="ACT.Manage.asp?ModeID=<%=ModeID%>&Action=NoAccept";
document.Article.submit();
return true;
}
function tgpost(){
document.Article.method="post";
document.Article.action="ACT.Manage.asp?ModeID=<%=ModeID%>&Action=tg";
document.Article.submit();
return true;
}
function delpost(){
document.Article.method="post";
document.Article.action="ACT.Manage.asp?ModeID=<%=ModeID%>&Action=del";
{
if(confirm('确认要删除选中的文章吗?<%=item%>')){
this.document.Article.submit();
return true;}return false;
}
}
</script>
<% End With
Function ACT_CL(ID)
ACT_CL=ACTCMS.ACTEXE("Select ClassID From "&ACTCMS.ACT_C(ModeID,2)&" Where ID=" & ID)(0)
End Function
Function Classmake(ModeID)
Dim FolderRS,selected
Set FolderRS = actcms.actexe("Select * from Class_act where ParentID='0' And ModeID="&ModeID&" and ChangesLinkUrl='' Order by Orderid desc,ID desc")
IF FolderRS.Eof Then
Classmake=("<option value='?ModeID="&ModeID&"'>还没有添加任何栏目</option>")
Else
do while Not FolderRS.Eof
If Request("ClassID")=FolderRS("ClassID") Then selected=" selected=""selected""" Else selected=""
Classmake=Classmake&"<option value='?Action=ListID&ModeID="&ModeID&"&ClassID="&FolderRS("ClassID")&"' "&selected&">"& FolderRS("ClassName") & "</option>"& vbCrLf
Classmake=Classmake&(GetChildClassList(FolderRS("ClassID"),""))
FolderRS.MoveNext
Loop
End IF
End Function
Function GetChildClassList(ClassID,Str)
Dim Sql,RsTempObj,TempImageStr,ImageStr,CheckStr,selected
TempImageStr = " └"
Sql = "Select * from Class_act where ParentID='" & ClassID & "' and ChangesLinkUrl=''"
ImageStr = Str & " └"
Set RsTempObj = Conn.Execute(Sql)
do while Not RsTempObj.Eof
If Request("ClassID")=RsTempObj("ClassID") Then selected=" selected=""selected""" Else selected=""
GetChildClassList = GetChildClassList & "<option value='?Action=ListID&ModeID="&ModeID&"&ClassID="&RsTempObj("ClassID")&"' "&selected&">"& ImageStr & TempImageStr &" "& RsTempObj("ClassName")& "</option>"& vbCrLf
GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("ClassID"),ImageStr)
RsTempObj.MoveNext
loop
Set RsTempObj = Nothing
End Function
CloseConn
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -