📄 admin_picmodify.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
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 and PicNews=true 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"> <b>你的位置：>><%=rs1("classcn")%></b><font color="#996600">下图片管理</font></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_input.gif" alt="添加信息" width="86" 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">
<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=<%=rs1("DateColor")%> size=<%=rs1("DateSize")%>><%=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"> <a href="admin_NewsAdd.asp?ClassCN=<%=request.querystring("ClassCN")%>"><img src="pic/news_input.gif" alt="添加信息" width="86" border="0"></a>
<input type="checkbox" name="chkall" onClick="CheckAll(this.form)">
选中所有
<input name="Newsaction" type="radio" value="NewsDel" checked>
删除
<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="topjs" value="<%=rsc("topjs")%>">
<input type=submit value=操作 onclick="return Del()" class=Anbut>
</div></td>
</tr>
</table>
<!--#include file = name.asp-->
<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 + -