articlecheck.asp

关于网络渗透技术的详细讲解

						next
					else
						if trim(strAdmin)=session("Admin") then
							PurviewChecked=True
						end if
					end if
				end if
			else
				response.Write("&nbsp;<a href='ArticleCheck.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'>" & rsSmallClass("SmallClassName") & "</a>&nbsp;&nbsp;")
			end if
			rsSmallClass.movenext
		loop
		response.write "</td></tr>"
	end if
	rsSmallClass.close
	set rsSmallClass=nothing
end if
%>
      </table>
      <form action="ArticleCheckSet.asp" method="Post" name="Check" id="Check">
        <table width="620" height="22" border="0" cellpadding="0" cellspacing="2">
          <tr> 
            <td width="453" height="22" bgcolor="#CCCCCC"><a href="ArticleCheck.asp">&nbsp;产品审核</a>&nbsp;&gt;&gt;&nbsp; 
              <%
if Title="" and BigClassName="" and SmallClassName="" and SpecialName="" then
	if Passed="False" then
		response.write "所有未审核的产品"
	else
		response.write "所有已审核的产品"
	end if
else
	if request("Query")<>"" then
		if Title<>"" then
			response.write "标题中含有“<font color=blue>" & Title & "</font>”并且未审核的产品"
		else
			response.Write("所有未审核的产品")
		end if
 	else
		if BigClassName<>"" then
			response.write "<a href='ArticleCheck.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
			if SmallClassName<>"" then
				response.write "<a href='ArticleCheck.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
			else
				response.write "所有小类"
			end if
		end if
		if SpecialName<>"" then
			response.write "<font color=red>[专题]</font> " & SpecialName
		end if
	end if
end if
%>
            </td>
            <td width="161" bgcolor="#CCCCCC"> &nbsp; 
              <%
  	if rs.eof and rs.bof then
		response.write "共找到 0 个产品</td></tr></table>"
	else
    	totalPut=rs.recordcount
    	if currentpage<1 then
       		currentpage=1
    	end if
    	if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     		currentpage= totalPut \ MaxPerPage
		  	else
		      	currentpage= totalPut \ MaxPerPage + 1
	   		end if

    	end if
		response.Write "共找到 " & totalPut & " 个产品"
%>
            </td>
          </tr>
        </table>
        <%		
	    if currentPage=1 then
        	showContent
        	showpage strFileName,totalput,MaxPerPage,true,false," 个产品"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark
            	showContent
            	showpage strFileName,totalput,MaxPerPage,true,false," 个产品"
        	else
	        	currentPage=1
           		showContent
           		showpage strFileName,totalput,MaxPerPage,true,false," 个产品"
	    	end if
		end if
	end if
%>
        <%  
sub showContent
   	dim i
    i=0
%>
        <table class="border" border="0" cellspacing="2" width="620" cellpadding="0" style="word-break:break-all">
          <tr bgcolor="#C0C0C0" class="title"> 
            <td width="30" height="25" align="center" bgcolor="#C0C0C0"><strong>选择</strong></td>
            <td width="37"  height="20" align="center"><strong>ID</strong></td>
            <td width="317" align="center" ><strong>产品名称</strong></td>
            <td width="63" align="center" ><strong>加入时间</strong></td>
            <td width="57" align="center" ><strong>点击数</strong></td>
            <td width="40" align="center" ><strong>已审核</strong></td>
            <td width="60" align="center" ><strong>操作</strong></td>
          </tr>
          <%do while not rs.eof%>
          <tr class="tdbg"> 
            <td width="30" height="22" align="center" bgcolor="#C0C0C0"> 
              <input name='ArticleID' type='checkbox' onclick="unselectall()" id="ArticleID2" value='<%=cstr(rs("articleID"))%>'>
            </td>
            <td width="37" align="center" bgcolor="#E3E3E3"><%=rs("articleid")%></td>
            <td bgcolor="#E3E3E3"> <a href="../ArticleShow.asp?ArticleID=<%=rs("articleid")%>" title="<%=replace(left(nohtml(rs("Content")),200),chr(34),"") & "……"%>">&nbsp;<%=rs("title")%></a></td>
            <td width="63" align="center" bgcolor="#E3E3E3"><%= FormatDateTime(rs("UpdateTime"),2) %></td>
            <td width="57" align="center" bgcolor="#E3E3E3"><%=rs("Hits")%> 
            </td>
            <td width="40" align="center" bgcolor="#E3E3E3">
              <%if rs("Passed")=true then response.write "是" else response.write "否" end if%>
            </td>
            <td width="60" align="center" bgcolor="#E3E3E3"> 
              <%
	  if session("purview")<=2 or PurviewChecked=True then
	  	If rs("Passed")=False Then %>
              <a href="ArticleCheckSet.asp?Action=Check&ArticleID=<%=rs("ArticleID")%>">通过审核</a> 
              <% Else %>
              <a href="ArticleCheckSet.asp?Action=CancelCheck&ArticleID=<%=rs("ArticleID")%>">取消通过</a> 
              <%
	    End If
	  end if %>
            </td>
          </tr>
          <%
	i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	loop
%>
        </table>
        <table width="620" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              选中本页显示的所有产品</td>
            <td><input name="submit" type='submit' value="<%if Passed="True" then response.write "取消"%>审核选定的产品" <%if session("purview")>=3 and session("purview")<=4 and PurviewChecked=False then response.write "disabled"%>> 
              <input name="Action" type="hidden" id="Action" value="<% if Passed="False" then
			  	response.write "Check"
			  else
			    response.write "CancelCheck"
			  end if%>"></td>
          </tr>
        </table>
        <%
   end sub 
%>
      </form>
      <table width="620" class="border">
        <tr class="tdbg"> 
          <form name="searchsoft" method="get" action="ArticleCheck.asp">
            <td height="30"> <strong>查找产品：</strong> 
              <input name="Title" type="text" class=smallInput id="Title3" size="20"> 
              <input name="Query" type="submit" id="Query" value="查 询">
              &nbsp;&nbsp;请输入产品名称。如果为空，则查找所有产品。 </td>
          </form>
        </tr>
      </table></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.close
set rs=nothing  
call CloseConn()

sub CheckArticle(id)
    dim sql
    sql="update article set Passed = True where articleid="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
		err.clear
		'response.write "删 除 失 败 !<br>"
    else
        'response.write "删除成功！<br>"
    end if	
End sub
sub CancelCheckArticle(id)
    dim sql
    sql="update article set Passed = False where articleid="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
		err.clear
		'response.write "删 除 失 败 !<br>"
    else
        'response.write "删除成功！<br>"
    end if	
End sub
%>