📄 admin_jsdel.asp
字号:
<!--#include file = admin_JSDel1.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)
'=========================================================
if EnoughPopedom("jsm")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Copyright="\n\n Copyrights Foosun Computer System studios"
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="Http://"&Domain&soFilePath
if request.form("o")="DEL" then
num=request.form("ID").count
for i=1 to num
conn.execute("delete from jsFIle where ID="&request.form("ID")(i)&"")
next
if request.form("type")="文字新闻" then
Call WordNews
else
select case request.form("PhotoCSS")
case "CSS1" Call CSS1
case "CSS2" Call CSS2
case "CSS3" Call CSS3
case "CSS4" Call CSS4
end select
end if
end if
if request.querystring("JSNameCN")="" then response.redirect"admin_JsManage.asp"
set rs=Server.CreateObject("adodb.recordset")
sql="select * from JSFile where JSName='"&request.querystring("JSNameCN")&"' order by id desc"
rs.open sql,conn,1,1
%>
<body bgcolor="#FFFFFF">
<form name="form" method="POST" action="">
<p> </p>
<table width="98%" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#F7FFF4">
<td width="587" height="27" align="center" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0"><b>新闻标题</b></font></b></div></td>
</tr>
</table>
<td width="114" height="27" align="center" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0">修改</font></b></div></td>
</tr>
</table>
</td>
<td width="65" height="27" colspan="2" align="center" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0"><b>删除</b></font></b></div></td>
</tr>
</table>
</td>
</tr>
<% while not rs.eof %>
<tr bgcolor="#F7FFF4">
<td width="587" height="20" valign="middle"><a href="#"> </a>
<%
response.write ("·<a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&rs("Title")&"</a>")
%>
</td>
<td width="114" height="20" align="center" valign="middle">
<%
if request.querystring("type")="图片新闻" then
response.write ("<a href=admin_JSPic.asp?ID="&rs("ID")&"&Type="&request.querystring("type")&"&PhotoCSS="&request.querystring("PhotoCss")&"&JSName="&rs("JSName")&">修改JS</a>")
else
response.write ("没有添加JS")
end if
%>
</td>
<td width="65" height="20" colspan="2" align="center" valign="middle">
<input type=checkbox name=ID value=<%=rs("ID")%>>
</td>
</tr>
<%
JSName=rs("JSName")
rs.movenext
wend
rs.close
set rs=nothing
%>
<tr bgcolor="#F7FFF4">
<td colspan="4" align=right>
<input type=hidden value=<%=request.querystring("type")%> name=Type>
<input type=hidden value=<%=JSName%> name=JSName>
<input type=hidden value=<%=request.querystring("PhotoCss")%> name=PhotoCss>
<input type=hidden value=DEL name=o> <input type=submit value=删除 onclick="return Del()">
</td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -