sk_checkdatabase.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr> 
      <td height="22" colspan="2" class="title"> <div align="center"><strong>所 有 记 录</strong></div></td>
    </tr>
</table>

 <!--列表-->
 <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
  <form name="form1" method="POST" action="sk_checkDatabase.asp">
    <tr class="tdbg" style="padding: 0px 2px;"> 
      <td width="57" height="22" align="center" class=ButtonList>选择</td>
      <td width="142" align="center" class=ButtonList>文章来源</td>
      <td width="358" align="center" class=ButtonList>新闻标题</td>
      <td width="110" height="22" align="center" class=ButtonList>栏目</td>
      <td width="120" align="center" class=ButtonList>审核结果</td>
      <td width="90" height="22" align="center" class=ButtonList>操作</td>
    </tr>
    <%                          
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from SK_Article" 
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if 

SqlItem=SqlItem  &  " order by ArticleID DESC"
RsItem.open SqlItem,ConnItem,1,1
If (Not RsItem.Eof) and (Not RsItem.Bof) then
   RsItem.PageSize=MaxPerPage
   Allpage=RsItem.PageCount
   If Currentpage>Allpage Then Currentpage=1
   HistrolyNum=RsItem.RecordCount
   RsItem.MoveFirst
   RsItem.AbsolutePage=CurrentPage
   i_His=0
   Do While not RsItem.Eof
%>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;"> 
      <td width="57" align="center"> <input type="checkbox" value="<%=RsItem("ArticleID")%>" name="HistrolyID" onClick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;">      </td>
      <td width="142" align="center"> <%=left(RsItem("CopyFrom"),8)%> </td>
      <td width="358" align="left"><%=RsItem("Title")%></td>
      <td width="110" align="center"><%Call Admin_ShowClass_Name(RsItem("ChannelID"),RsItem("ClassID"))%></td>
      <td align="center"> <%If RsItem("Passed")=True Then
           Response.write "已审核"
        Else
		   Response.Write "<font color=red>未审核</font>"
        End If
      %> </td>
      <td width="90" align="center"> <a href="sk_checkDatabase.asp?Actionl=Del&HistrolyID=<%=RsItem("ArticleID")%>&radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除</a>      </td>
    </tr>
    <%         
           i_His=i_His+1
           If i_His > MaxPerPage Then
              Exit Do
           End If
        RsItem.Movenext         
   Loop         
%>
    <tr class="tdbg"> 
      <td colspan=8 height="30">
        <input name="Action" type="hidden" id="Action" value="ok"> 
		<input name="radiobutton" type="hidden" id="Action" value="<%=lx%>"> 
        <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #E1F4EE;">
        全选 </td>
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30" align=center><input name="DelFlag" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onclick='return confirm("确定要入库选中的记录吗？");' value="审核入库所选记录">
	          &nbsp;&nbsp; <input name="DelFlag" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onclick='return confirm("确定添加全部记录吗？");' value="审核入库全部记录"> 
        &nbsp;&nbsp; <input name="DelFlag" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;"  onclick='return confirm("确定要删除选中的记录吗？");' value="删除所选记录"> 
        &nbsp;&nbsp;&nbsp;&nbsp; <input name="DelFlag" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onclick='return confirm("确定要删除所有的记录吗？");' value="删除全部记录"> 
      &nbsp;&nbsp;
	  </td>
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30"> </td>
    </tr>
    <%Else%>
    <tr class="tdbg"> 
      <td colspan='9' class="tdbg" align="center"><br>
        系统中暂无记录！</td>
    </tr>
    <%End  If%>
    <%         
RsItem.Close         
Set RsItem=nothing           
%>
  </form>
</table>  
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr> 
      <td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("sk_checkDatabase.asp?Action="& Action,HistrolyNum,MaxPerPage,True,True," 个记录")
%>

      </td>
    </tr>
</table>

<!--列表-->       
</body>         
</html>
<%End Sub
'---------文章------------------
%>

<%
'-------------软件列表------------------
Sub Main5
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr> 
      <td height="22" colspan="2" class="title"> <div align="center"><strong>所 有 记 录</strong></div></td>
    </tr>
</table>

 <table class="tableBorder" border="0" align="center" cellspacing="1" width="100%" cellpadding="0">
  <form name="form1" method="POST" action="sk_checkDatabase.asp">
    <tr class="tdbg" style="padding: 0px 2px;"> 
      <td width="57" height="22" align="center" class=ButtonList>选择</td>
      <td width="142" align="center" class=ButtonList>文件所在</td>
      <td width="358" align="center" class=ButtonList>软件标题</td>
      <td width="110" height="22" align="center" class=ButtonList>栏目</td>
      <td width="120" align="center" class=ButtonList>审核结果</td>
      <td width="90" height="22" align="center" class=ButtonList>操作</td>
    </tr>
    <%                         
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from SK_DownLoad" 
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if 
SqlItem=SqlItem  &  " order by ID DESC"
RsItem.open SqlItem,ConnItem,1,1
If (Not RsItem.Eof) and (Not RsItem.Bof) then
   RsItem.PageSize=MaxPerPage
   Allpage=RsItem.PageCount
   If Currentpage>Allpage Then Currentpage=1
   HistrolyNum=RsItem.RecordCount
   RsItem.MoveFirst
   RsItem.AbsolutePage=CurrentPage
   i_His=0
   Do While not RsItem.Eof
%>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;"> 
      <td width="57" align="center"> <input type="checkbox" value="<%=RsItem("ID")%>" name="HistrolyID" onClick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;">      </td>
      <td width="142" align="center"> 

	 <% %> </td>
      <td width="358" align="left"><%=RsItem("Title")%></td>
      <td width="110" align="center"><% Call Admin_ShowClass_Name(5,RsItem("tID")) %></td>
      <td align="center"> 
	  <%If RsItem("Verific")=1 Then
           Response.write "已审核"
        Else
		   Response.Write "<font color=red>未审核</font>"
        End If
      %> </td>
      <td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=<%=Action%>&Del=Del&HistrolyID=<%=RsItem("ID")%>&radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除</a>      </td>
    </tr>
    <%         
           i_His=i_His+1
           If i_His > MaxPerPage Then
              Exit Do
           End If
        RsItem.Movenext         
   Loop         
%>
    <tr class="tdbg"> 
      <td colspan=8 height="30">
        <input name="Action" type="hidden" id="Action" value="ok"> 
		<input name="radiobutton" type="hidden" id="Action" value="<%=lx%>">
        <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #E1F4EE;">
        全选 </td>
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30" align=center> 
     </td>
    </tr>
	<tr class="tdbg"> 
      <td colspan=8 height="30" align=center> <input type="submit" value="审核入库所选记录" name="DelFlag" onclick='return confirm("确定发布选中的记录吗？");' style="cursor: hand;background-color: #cccccc;"> 
        &nbsp;&nbsp; <input type="submit" value="审核入库全部记录" name="DelFlag" onclick='return confirm("确定添加全部记录吗？");' style="cursor: hand;background-color: #cccccc;"> 
        &nbsp;&nbsp; <input type="submit" value="删除所选记录" name="DelFlag"  onclick='return confirm("确定要删除选中的记录吗？");' style="cursor: hand;background-color: #cccccc;"> 
		&nbsp;&nbsp; <input type="submit" value="删除全部记录" name="DelFlag" onclick='return confirm("确定要删除所有的记录吗？");' style="cursor: hand;background-color: #cccccc;"> 
       &nbsp;&nbsp; <input type="button" value="输出全部软件地址" name="DelFlag" onClick="window.location.href='SK_checkDatabase.asp?Urlsc=ok&radiobutton=5'" style="cursor: hand;background-color: #cccccc;">
	   <br>
	   <input name="picurl_th" type="text" class="lostfocus" value="" size="80" maxlength="150">
	   &nbsp;&nbsp; <input type="submit" value="软件地址替换" name="DelFlag" onClick='return confirm("确定要替换所有下载地址吗？");' style="cursor: hand;background-color: #cccccc;">
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30"> </td>
    </tr>
    <%Else%>
    <tr class="tdbg"> 
      <td colspan='9' class="tdbg" align="center"><br>
        系统中暂无记录！</td>
    </tr>
    <%End  If%>
    <%         
RsItem.Close         
Set RsItem=nothing           
%>
  </form>
</table>  
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr> 
      <td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("sk_checkDatabase.asp?Action="& Action &"&radiobutton="& lx,HistrolyNum,MaxPerPage,True,True," 个记录")
%>

      </td>
    </tr>
</table>

        
</body>         
</html>
<%End Sub%>
<%
'-------------自定------------------
Sub Main6
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr> 
      <td height="22" colspan="2" class="title"> <div align="center"><strong>所 有 记 录</strong></div></td>
    </tr>
</table>

 <table class="tableBorder" border="0" align="center" cellspacing="1" width="100%" cellpadding="0">
  <form name="form1" method="POST" action="sk_checkDatabase.asp">
    <tr class="tdbg" style="padding: 0px 2px;"> 
      <td width="57" height="22" align="center" class=ButtonList>选择</td>
      <td width="142" align="center" class=ButtonList>文件所在</td>
      <td width="358" align="center" class=ButtonList>自定标题</td>
      <td width="110" height="22" align="center" class=ButtonList>栏目</td>
      <td width="120" align="center" class=ButtonList>审核结果</td>
      <td width="90" height="22" align="center" class=ButtonList>操作</td>
    </tr>
    <%                          
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from sk_all" 
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if 
SqlItem=SqlItem  &  " order by ID DESC"
RsItem.open SqlItem,ConnItem,1,1
If (Not RsItem.Eof) and (Not RsItem.Bof) then
   RsItem.PageSize=MaxPerPage
   Allpage=RsItem.PageCount
   If Currentpage>Allpage Then Currentpage=1
   HistrolyNum=RsItem.RecordCount
   RsItem.MoveFirst
   RsItem.AbsolutePage=CurrentPage
   i_His=0
   Do While not RsItem.Eof
%>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;"> 
      <td width="57" align="center"> <input type="checkbox" value="<%=RsItem("ID")%>" name="HistrolyID" onClick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;">      </td>
      <td width="142" align="center"> 
	  <%
	  if RsItem("SaveFile")=1 then
		 Response.Write "本地"
	  else
	  	 Response.Write "远程"
	  end if
	  %> </td>
      <td width="358" align="left"><%=RsItem("Title")%></td>
      <td width="110" align="center"><%
	  
	  set lb=ConnItem.execute("select top 1 * from SK_Class where ClassID="& RsItem("TID")) 
	  Response.Write lb("classname")
	  lb.close
	  set lb=nothing
	  %></td>
      <td align="center"> <%If RsItem("Verific")=1 Then
           Response.write "已审核"
        Else
		   Response.Write "<font color=red>未审核</font>"
        End If
      %> </td>
      <td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=<%=Action%>&Del=Del&HistrolyID=<%=RsItem("ID")%>&radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除</a>      </td>
    </tr>
    <%         
           i_His=i_His+1
           If i_His > MaxPerPage Then
              Exit Do
           End If
        RsItem.Movenext         
   Loop         
%>
    <tr class="tdbg"> 
      <td colspan=8 height="30"> <input name="Del" type="hidden" id="Del" value="Del"> 
        <input name="Action" type="hidden" id="Action" value="<%=Action%>"> 
		<input name="radiobutton" type="hidden" id="Action" value="<%=lx%>">
        <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #E1F4EE;">
        全选 </td>
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30" align=center> 
     </td>
    </tr>
    <tr class="tdbg"> 
      <td colspan=8 height="30"> </td>
    </tr>
    <%Else%>
    <tr class="tdbg"> 
      <td colspan='9' class="tdbg" align="center"><br>
        系统中暂无记录！</td>
    </tr>
    <%End  If%>
    <%         
RsItem.Close         
Set RsItem=nothing           
%>
  </form>
</table>  
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
    <tr>