📄 admin_newsmodify_f1.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
classen = Request("classen")
if EnoughPopedom(classen)=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<%
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
totoln=len(soFilePath)
soFilePath=lcase(left(soFilePath,totoln-1))
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
page=request.querystring("page")
classcn=request.querystring("classcn")
classen=request.querystring("classen")
if page<=1 or page="" then page=1
if request.querystring("ClassCN")="" then response.redirect"admin_right.asp"
Set rs=Server.CreateObject("Adodb.Recordset")
if request.form("action")="Search" then
if request.form("SearchType")="Title" then
sql="Select * from News where ClassCN='"&request.querystring("ClassCN")&"' and Title like '%"&request.form("KeyWord")&"%' and Check=false order by newsid desc "
else
sql="Select * from News where ClassCN='"&request.querystring("ClassCN")&"' and Content like '%"&request.form("KeyWord")&"%' and Check=false order by newsid desc "
end if
else
sql="Select * from News where ClassCN='"&request.querystring("ClassCN")&"' and Check=false order by newsid desc "
end if
rs.open sql,conn,1,1
Set rs1=Server.CreateObject("Adodb.Recordset")
sql1="Select * from newsClass where ClassCN='"&request.querystring("ClassCN")&"' order by ID desc "
rs1.open sql1,conn,1,1
rs.pagesize=20
for i=1 to rs.pagesize*(page-1)
if not rs.eof then
rs.movenext
end if
next
%>
<body bgcolor="#F9FBFD" topmargin="10">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#76B771">
<form method="post" action="">
<tr bgcolor="7897E0">
<td height="25" bgcolor="#97C893"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="left"><b>你的位置：>><%=rs1("classcn")%></b></div></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF">
<div align="left"> <a href="admin_NewsAdd.asp?ClassCN=<%=request.querystring("ClassCN")%>"><img src="pic/news_input1.gif" alt="添加信息" width="86" height="18" border="0"></a>
<select name="SearchType" class=Anbut1>
<option value="Title">标题</option>
<option value="Content">内容</option>
</select>
<input type="text" name="KeyWord">
<input type="hidden" name=action value="Search">
<input type="submit" value="搜索" class=Anbut>
</div></td>
</tr>
</form>
<tr bgcolor="#F0F5FB" valign="middle" align="center"> <form method=post action=admin_NewsSave.asp?result=kimove>
<td height="2" bgcolor="#F7FFF4">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#76B771">
<%
if rs.eof and rs.bof then
%>
<tr bgcolor="#F7FFF4">
<td width="2%" align="center"> </td>
<td colspan="2" align="center"> </td>
<td width="18%" align="center"><font color=red>暂时没有信息</font></td>
</tr>
<%
response.end
end if
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr bgcolor="#F7FFF4">
<td width="2%"> <div align="center">
<input type=hidden name=FileName value=<%=rs("FileName")%>>
<input type="checkbox" name=DelId value=<%=rs("NewsId")%>>
</div></td>
<td width="2%">
<%if rs("NCBution")=true then
response.Write("<img src=images/cbution.gif alt='网友投稿文章' border=0 style=""CURSOR: hand"">")
elseif rs("PicNews")=true then
response.Write("<img src=images/cbution2.gif alt='图片新闻' style=""CURSOR: hand"">")
else
response.Write("<img src=images/cbution1.gif alt='信息文章' style=""CURSOR: hand"">")
end if
%>
</td>
<td width="51%"><%if rs("BiaotiNews")=true then%><font color="#FF0000">[标]</font><a href=<%=rs("UBiaotiNews")%> target=_blank><%else%><a href=http://<%=sowinpath%><%=rs("lpath")&rs("fileName")&".html"%> target=_blank><%end if%><%=rs("title")%></a><font color=<%=rs1("DateColor")%> size=<%=rs1("DateSize")%>><%=rs("date")%></font></td>
<td width="18%" height=18>[<font color="#006600">专题：</font><font color="#FF0000"><%=rs("speicalcn")%></font>] </td>
<td width="7%" height=18 > <div align="center"><a href="admin_NewstoJS.asp?FileName=<%=rs("FileName")%>"><img src="pic/js.gif" width="73" height="18" border="0"></a></div>
<div align="center"></div></td>
<td width="20%" height=18 > <div align="center"><a href="admin_NewsModify.asp?NewsID=<%=rs("NewsID")%>&action=Modify"><img src="pic/xiu.gif" width="73" height="18" border="0"></a></div></td>
</tr>
<%
rs.movenext
next
%>
<tr bgcolor="#F7FFF4">
<td height=28 colspan=6 align=right >
<div align="left"><a href="admin_NewsAdd.asp?ClassCN=<%=request.querystring("ClassCN")%>"><img src="pic/news_input1.gif" alt="添加信息" width="86" height="18" border="0"></a>
<input type="checkbox" name="chkall" onClick="CheckAll(this.form)">
选中所有
<input type=hidden name=ClassEN value=<%=rs1("ClassEN")%>>
<input type=hidden name=ClassCN value=<%=rs1("ClassCN")%>>
<%
for i=1 to rs.PageCount
response.write("<a href=admin_NewsModify_f1.asp?Page="&i&"&ClassCN="&request.querystring("ClassCN")&"><b>第"&i&"页</a> </b>")
next
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
<%
set rsc=server.CreateObject("Adodb.Recordset")
sqlc="select * from config"
rsc.open sqlc,conn,1, 1
%>
<input name="topjs" type="hidden" id="topjs2" value="<%=rsc("topjs")%>">
<input type="radio" name="Newsaction" value="Move">
移动信息
<select name="objectclass" class=Anbutc id="objectclass">
<option value="">选择转移目标分类 </option>
<%
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select Max(id) from newsclass where child=0"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
classnum=1
else
classnum=rs1(0)+1
end if
if isnull(classnum) then classnum=1
rs1.close
set rs1=nothing
set rs = server.createobject("adodb.recordset")
rs.source = "select * from newsclass where child=0 order by RootID asc,orders asc"
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("classen")%>">
<%for i=1 to rs("depth")%>
－
<%next%>
<%=rs("classcn")%> </option>
<%
rs.movenext
wend
rs.close
%>
</select>
<input name="Newsaction" type="radio" value="NewsDel" checked>
删除
<input type=submit value=操作 onclick="return zhixing()" class=Anbut>
<br>
<font color="#FF0000">注意：如果转移了信息，你需要重新生成目标栏目的新闻及分类。JS调用自动生成</font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5">
<!--#include file = name.asp-->
</td>
</tr>
</table>
</td></form>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -