📄 hover_news_manage.asp
字号:
<%@language=VBScript codepage=936 %>
<!--#include file="toptable.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<%
'=================================
' 良精科技企业管理系统
' QQ在线客服:65961930 82993936
' 咨询定购Tel:010-81991660
' asp3721@hotmail.com
' www.liangjing.net
' copyright(c)2001-2008 HoverCms 2007特别版
'=================================
%>
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ArticleID
dim Title
dim sql,rs
dim BigClassName,SmallClassName
BigClassName=trim(request("BigClassName"))
SmallClassName=trim(request("SmallClassName"))
strFileName="Hover_News_Manage.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
Title=Trim(request("Title"))
ID=Request("ID")
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from Hover_News where ID>0"
if BigClassName<>"" then
sql=sql & "and BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sql=sql & " and SmallClassName='" & SmallClassName & "' "
end if
end if
if Title<>"" then
sql=sql & " and Title like '%" & Title & "%' "
end if
sql=sql & " order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<SCRIPT language=javascript>
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel()
{
if(confirm("确定要删除选中的新闻吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
</SCRIPT>
<!-- #include file="Inc/Head.asp" -->
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<td colspan="6" align="center" valign="top" class="title" > <strong>新
闻 资 讯 管 理</strong> </td>
</tr>
<tr>
<td class="title2" height="30" colspan="6" >选择您需要更改的新闻信息。</td>
</tr>
<tr> <tr class="title">
<td height="25" colspan="6" align="center" bgcolor="#A4B6D7" class="title2" >|
<%
dim sqlBigClass,sqlSmallClass,rsBigClass,rsSmallClass
sqlBigClass="select * from Hover_BigClass_New "
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1
if rsBigClass.eof then
response.Write("还没有任何栏目，请首先添加栏目。")
end if
do while not rsBigClass.eof
if rsBigClass("BigClassName")=BigClassName then
response.Write("<a href='Hover_News_Manage.asp?BigClassName=" & rsBigClass("BigClassName") & "'><font color='red'>" & rsBigClass("BigClassName") & "</font></a> | ")
else
response.Write("<a href='Hover_News_Manage.asp?BigClassName=" & rsBigClass("BigClassName") & "'>" & rsBigClass("BigClassName") & "</a> | ")
end if
rsBigClass.movenext
loop
rsBigClass.close
set rsBigClass=nothing
%> </td>
</tr>
<%
if BigClassName<>"" then
sqlSmallClass="select * from Hover_SmallClass_New where BigClassName='" & BigClassName & "'"
Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
rsSmallClass.open sqlSmallClass,conn,1,1
if not (rsSmallClass.bof and rsSmallClass.eof) then
response.write "<tr class='tdbg'><td align='center' colspan='6'>"
do while not rsSmallClass.eof
if rsSmallClass("SmallClassName")=SmallClassName then
response.Write(" <a href='Hover_News_Manage.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'><font color='red'>" & rsSmallClass("SmallClassName") & "</font></a> ")
else
response.Write(" <a href='Hover_News_Manage.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'>" & rsSmallClass("SmallClassName") & "</a> ")
end if
rsSmallClass.movenext
loop
response.write "</td></tr>"
end if
rsSmallClass.close
set rsSmallClass=nothing
end if
%>
<form name="del" method="Post" action="Hover_News_Del.asp" onSubmit="return ConfirmDel();">
<tr bgcolor="#A4B6D7">
<td height="25" colspan="4" class="table" ><a href="Hover_News_Manage.asp"> 新闻资讯管理</a> >>
<%
if request.querystring="" then
response.write "所有新闻"
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='Hover_News_Manage.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a> >> "
if SmallClassName<>"" then
response.write "<a href='Hover_News_Manage.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
else
response.write "所有小类"
end if
end if
end if
end if
%> </td>
<td colspan="2" class="table" >
<%
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>
<%
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
%>
<tr bgcolor="#A4B6D7" class="title">
<td width="74" height="25" align="center" class="items">选中</td>
<td width="83" height="25" align="center" class="items">ID</td>
<td width="336" align="center" bgcolor="#A4B6D7" class="items" >新闻标题</td>
<td width="170" align="center" class="items" >所属一级分类</td>
<td width="171" align="center" class="items" >所属二级分类</td>
<td width="108" align="center" class="items" >操作</td>
</tr>
<%do while not rs.eof%>
<tr class="tdbg">
<td width="74" height="22" align="center" bgcolor="#A4B6D7" class="table">
<input name='ID' type='checkbox' onClick="unselectall()" id="ID" value='<%=cstr(rs("ID"))%>'> </td>
<td width="83" align="center" bgcolor="#ECF5FF" class="table"><%=rs("id")%></td>
<td bgcolor="#ECF5FF" class="table"><a href="Hover_Shownews.asp?ID=<%=rs("id")%>"><%=left(rs("title"),18)%></a></td>
<td bgcolor="#ECF5FF" class="table">
<div align="center"><%=rs("BigClassName")%></div></td>
<td bgcolor="#ECF5FF" class="table">
<div align="center"><%=rs("SmallClassName")%></div></td>
<td width="108" align="center" bgcolor="#ECF5FF" class="table"> <a href="Hover_News_modi.asp?ID=<%=rs("id")%>">修改</a>
<a href="Hover_News_Del.asp?ID=<%=rs("ID")%>&Action=Del" onClick="return ConfirmDel();">删除</a> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td height="30" colspan="3" class="table" ><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有新闻</td>
<td colspan="3" class="table" ><input name="submit" type='submit' class="btn2" value='删除选定的新闻'>
<input name="Action" type="hidden" id="Action" value="Del"></td>
</tr>
<%
end sub
%>
</form>
<tr class="tdbg" >
<form name="searchsoft" method="get" action="Hover_News_Manage.asp">
<td height="30" colspan="6" class="table" > <strong>查找新闻：</strong> <input name="Title" type="text" class=smallInput id="Title3" size="20" maxlength="50">
<input name="Query" type="submit" id="Query" value="查 询"> 请输入新闻名称。如果为空，则查找所有新闻。</td>
</form>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.close
set rs=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -