📄 admin_picmodifyall.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)
'=========================================================
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
Set rs=Server.CreateObject("Adodb.Recordset")
if request.form("action")="Search" then
if request.form("SearchType")="Title" then
sql="Select * from News where Title like '%"&request.form("KeyWord")&"%' and Check=false and PicNews=true order by newsid desc "
else
sql="Select * from News where Content like '%"&request.form("KeyWord")&"%' and Check=false and PicNews=true order by newsid desc "
end if
else
sql="Select * from News where Check=false and PicNews=true order by newsid desc "
end if
rs.open sql,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"> <b>你的位置：>></b><font color="#996600"><strong>所有图片管理</strong></font></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF">
<div align="left">
<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">
<td height="2" bgcolor="#F7FFF4">
<form method=post action=admin_NewsSave.asp?result=Del>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#76B771">
<%
if rs.eof and rs.bof then
%>
<tr bgcolor="#F7FFF4">
<td colspan="3" align="center" bgcolor="#F7FFF4"><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="3%"> <div align="center">
<input type=hidden name=FileName value=<%=rs("FileName")%>>
<input type="checkbox" name=DelId value=<%=rs("NewsId")%>>
</div></td>
<td width="5%"> <div align="center">
<table width="20" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD9C">
<tr>
<td bgcolor="#F7FFF4"><a href="<%=RS("PicNewsa")%>" target="_blank"><img src="<%=RS("PicNewsa")%>" width="30" height="30" border="0"></a></td>
</tr>
</table>
</div></td>
<td width="52%" bgcolor="#F7FFF4"><a href=http://<%=sowinpath%><%=rs("lpath")&rs("fileName")&".html"%> target=_blank><%=rs("title")%></a>
<font color="#006600" size="1">[ <%=rs("date")%>]</font></td>
<td width="21%" height=35 > <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=4 align=right > <div align="left">
<input type="checkbox" name="chkall" onClick="CheckAll(this.form)">
选中所有
<input name="Newsaction" type="radio" value="NewsDel" checked>
删除
<%
for i=1 to rs.PageCount
response.write("<a href=admin_PicModifyAll.asp?Page="&i&"><b>第"&i&"页</a> </b>")
next
rs.close
set rs=nothing
%>
<%
set rsc=server.CreateObject("Adodb.Recordset")
sqlc="select * from config"
rsc.open sqlc,conn,1, 1
%>
<input type=submit value=操作 onclick="return Del()" class=Anbut>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -