📄 sk_checkdatabase.asp
字号:
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr class="tdbg">
<td height="30" width="65"><strong>管理导航：</strong></td>
<td height="30"><a href="sk_checkDatabase.asp">管理首页</a> | 数据查看 </td>
</tr>
</table>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" class="tableBorder">
<tr>
<td height=30 align="center">
选择采集模块：
<%
Set Rs=server.createobject("adodb.recordset")
Rs.Open "select * from SK_cj where Flag=1 order by id asc", ConnItem, 1, 3
while not rs.eof
If Skcj.ChkNumeric(rs("ID"))=Skcj.ChkNumeric(lx) then
Response.Write "<input name=""radiobutton"" type=""radio"" value="""& rs("ID") &""" checked onClick=""location.href='?radiobutton="& rs("ID") &"';"" >"
Else
Response.Write "<input name=""radiobutton"" type=""radio"" value="""& rs("ID") &""" onClick=""location.href='?radiobutton="& rs("ID") &"';"" >"
End if
Response.Write(Rs("CjName")&"采集")
rs.movenext
wend
rs.close : Set rs=nothing
%> </td>
</tr>
</table>
<%end sub %>
<%
'---------文章------------------
Sub Main1
%>
<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="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"><a href="show.asp?id=<% = RsItem("ArticleID") %>&lx=1" target="_blank"><%=RsItem("Title")%></a></td>
<td width="110" align="center"><%Call Admin_ShowClass_Name(RsItem("ChannelID"),RsItem("ClassID"))%></td>
<td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=Del&Page=<%= CurrentPage %>&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="page" type="hidden" value="<%=CurrentPage %>">
<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="删除所选记录">
<input name="DelFlag" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onclick='return confirm("确定要删除所有的记录吗？");' value="删除全部记录">
</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 Main3
%>
<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="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"><a href="show.asp?id=<% = RsItem("ID") %>&lx=3" target="_blank"><%=RsItem("Title")%></a></td>
<td width="110" align="center"><% Call Admin_ShowClass_Name(3,RsItem("tID")) %></td>
<td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=Del&Page=<%= CurrentPage %>&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="page" type="hidden" value="<%=CurrentPage %>">
<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"class="lostfocus" value="删除所选记录" name="DelFlag" onclick='return confirm("确定要删除选中的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="submit" value="删除全部记录" name="DelFlag" onclick='return confirm("确定要删除所有的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="button" class="lostfocus" 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">
<input type="submit" class="lostfocus" 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 Main4
%>
<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="90" height="22" align="center" class=ButtonList>操作</td>
</tr>
<%
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from SK_Flash"
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"><a href="show.asp?id=<% = RsItem("ID") %>&lx=4" target="_blank"><%=RsItem("Title")%></a></td>
<td width="110" align="center"><% Call Admin_ShowClass_Name(4,RsItem("tID")) %></td>
<td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=Del&Page=<%= CurrentPage %>&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="page" type="hidden" value="<%=CurrentPage %>">
<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"class="lostfocus" value="删除所选记录" name="DelFlag" onclick='return confirm("确定要删除选中的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="submit" value="删除全部记录" name="DelFlag" onclick='return confirm("确定要删除所有的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="button" class="lostfocus" 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">
<input type="submit" class="lostfocus" 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%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -