📄 newsmanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<%
'----------------------------------------------
if request("cur_action")="Hot" then
sql_hot="update tNews set isHot=1 where ID="&request("EditID")
conn.execute sql_hot
response.write "<script>location.replace('NewsManage.asp?PageNo="&request("PageNo")&"&Key="&request("Key")&"&ClassID="&request("ClassID")&"&ClassName="&request("ClassName")&"')</script>"
response.end
end if
if request("cur_action")="unHot" then
sql_hot="update tNews set isHot=0 where ID="&request("EditID")
conn.execute sql_hot
response.write "<script>location.replace('NewsManage.asp?PageNo="&request("PageNo")&"&Key="&request("Key")&"&ClassID="&request("ClassID")&"&ClassName="&request("ClassName")&"')</script>"
response.end
end if
if request("cur_action")="delete" then
conn.cursorlocation=3
set rs_delete=conn.execute("select * from tNews where ID="&request("EditID"))
Set fso = CreateObject("Scripting.FileSystemObject")
strUploadFiles=rs_delete("UploadFile") '删除文章所包括的图片文件
if strUploadFiles<>"" then
if instr(strUploadFiles,"$")>0 then
arrUploadFiles=split(strUploadFiles,"$")
for i=0 to ubound(arrUploadFiles)
if fso.FileExists(server.MapPath("/UploadFile/NewsFile/" & arrUploadfiles(i))) then
fso.DeleteFile(server.MapPath("/UploadFile/NewsFile/" & arrUploadfiles(i)))
end if
next
end if
end if
ProductPicTemp="/UploadFile/NewsFile/"&rs_delete("NewsPic")
if fso.FileExists(server.MapPath(ProductPicTemp)) then fso.DeleteFile(server.MapPath(ProductPicTemp))
Set fso = nothing
rs_delete.close()
set rs_delete=nothing
sql_delete="delete from tNews where ID="&request("EditID")
conn.execute sql_delete
response.write "<script>location.replace('NewsManage.asp?PageNo="&request("PageNo")&"&Key="&request("Key")&"&ClassID="&request("ClassID")&"&ClassName="&request("ClassName")&"')</script>"
response.end '
end if
'----------------------------------------------------------
PageNo=request("PageNo")
if request("ClassID")="" then ClassID=0 else ClassID=request("ClassID")
ClassName=request("ClassName")
Key=request("Key")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
<script src="/include/jchar.js"></script>
<script language="JavaScript" type="text/JavaScript">
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function Edit(EditID){
document.form1.action="NewsManageEdit.asp?EditID="+EditID
document.form1.submit();
}
function Dele(EditID,Title){
if(confirm("你确定要删除"+Title+"吗，删除后数据无法恢复！")){
document.form1.action="?cur_action=delete&EditID="+EditID
document.form1.submit();
}
}
function Hot(EditID,ActionID){
if(ActionID=="0"){
document.form1.action="?cur_action=Hot&EditID="+EditID
document.form1.submit();
}else{
document.form1.action="?cur_action=unHot&EditID="+EditID
document.form1.submit();
}
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="887" height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._新闻/企业文化管理._
<% if ClassName="" then response.write "查询" else response.write ClassName%></td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>新闻/企业文化管理</strong>
</td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#666666"><form name="form2" method="post" action="NewsManage.asp">
<tr>
<td height="25" bgcolor="#FFFFFF"> 关键字：
<input name="Key" type="text" id="Key">
<input type="submit" name="Submit" value="查询"></td>
</tr>
</form></table>
<%'----------------------------
PERPAGE =15
set rs=server.createobject("ADODB.recordset")
if Key<>"" and ClassID<>"" then '如果关键和产品类别都有的同时，筛选产品集
sql="select * from tNews where ClassID='"&ClassID&"' or Title like '%"&Key&"%' or Content like '"&Content&"' order by AddTime desc"
else if Key<>"" then '如果只是关键的时
sql="select * from tNews where Title like '%"&Key&"%' or Content like '"&Content&"' order by AddTime desc"
else if ClassID="-1" then '热点新闻
sql="select * from tNews where IsHot=1 order by AddTime desc"
else if ClassID="0" then
sql="select * from tNews order by AddTime desc"
else
sql="select * from tNews where ClassID='"&ClassID&"' order by AddTime desc"
end if
end if
end if
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form name="form1" method="post" action="" onsubmit="checkdata()">
<tr align="center" bgcolor="#FFFFFF">
<td width="5%" height="22"><strong>ID</strong></td>
<td width="31%"><strong>新闻/企业文化标题</strong></td>
<td width="6%"><strong>点击数</strong></td>
<td width="7%"><strong>热点</strong></td>
<td width="6%"><strong>图片</strong></td>
<td width="18%" height="22"><strong>发布时间</strong></td>
<td width="21%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'" bgcolor="#FFFFFF">
<td height="22"><%=rs("ID")%></td>
<td height="22">
<%response.write "<a href='/Aboutus/ShowNews.asp?ID="&rs("ID")&"' target='_blank'>"&rs("Title")&"</a>"%></td>
<td height="22"><%=rs("Hits")%></td>
<td height="22"> <%if rs("IsHot")=1 then response.write "是" else response.write ""%> </td>
<td height="22"><% if rs("IsPic")=1 then response.write "是" else response.write ""%> </td>
<td height="22"><%=rs("AddTime")%></td>
<td height="22"> <%
response.write "<a href=javascript:Edit('"&rs("ID")&"')>修改</a>|"
response.write "<a href=""javascript:Dele('"&rs("ID")&"','"&rs("Title")&"')"">删除</a>|"
if rs("IsHot")<>1 then response.write "<a href=javascript:Hot('"&rs("ID")&"','0')>热点</a>|" else response.write "<a href=javascript:Hot('"&rs("ID")&"','1')>普通</a>|"
%> </td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
<tr>
<td height="1" colspan="7" bgcolor="#FFFFFF"> <input type="hidden" name="Key" value=<%=Key%>>
<input type="hidden" name="PageNo" value=<%=PageNo%>>
<input name="ClassID" type="hidden" id="ClassID" value=<%=ClassID%>>
<input name="ClassName" type="hidden" id="ClassName" value=<%=ClassName%>>
</td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 页次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页 共<b><%=rs.recordcount %></b>条记录</td>
<td width="67%" align="right">
<%
if CurPage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?PageNo=1&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"'><b>上一页</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一页 | 尾页 "
else
response.write "<a href='?PageNo="&CurPage+1&"&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"'><b>尾页</b> </a>"
end if
%>
跳转到：<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"' selected>第"&i&"页</option>"
else
response.write "<option value='?PageNo="&i&"&Key="&Key&"&ClassID="&ClassID&"&ClassName="&ClassName&"'>第"&i&"页</option>"
end if
next
%>
</select></td>
</tr>
</table>
<%end if%>
<br> <br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -