www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/JSDel.asp

    <%Admin="InfoJS"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file = JSDelSave.asp-->  
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址:http://www.xoYu.com
'
'==========================================
'程序名称:晓宇听幽新闻文章管理系统
'英文名称:xoYu News 2004 Professional
'程序创建时间:2003-7-10
'程序完成时间:2003-9-11
'最后修改时间:2003-10-10
'==========================================
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath="Http://"&Domain&gfilepath

  if request.form("operation")="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
	  end select
	end if
  end if

  if request.querystring("JSNameCN")="" then response.redirect"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
  FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
%>
<html>
<head>
<title>管理中心 - 共享世纪新闻文章管理系统</title>
<meta copy="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body background="images/BLogo.gif">
<form name="form" method="POST" action="">  
  <p> </p>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr> 
      <th colspan="4">
      <p align="center"><b>JS内部文件管理</b></th>
    </tr>
    <tr> 
      <td class=forumHeaderBackgroundAlternate height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="472"><b>新闻标题</b><b></b></td>
      <td class=forumHeaderBackgroundAlternate height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="41">修改</td>
      <td class=forumHeaderBackgroundAlternate height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" colspan="2" width="47"><b>删除</b></td>
    </tr>
    <% while not rs.eof %> 
    <tr> 
      <td height="20" class="forumrow" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; width="472"><a href="#"> 
        </a><%
  response.write ("<a href="&AllPath&"html/"&FileName&"-1.html target=_blank>"&rs("Title")&"</a>")
%> </td>
      <td height="20" class="forumrow" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="41">
	  <%
        if request.querystring("type")="图片新闻" then 
          response.write ("<a href=JSModifyPic.asp?ID="&rs("ID")&"&Type="&request.querystring("type")&"&PhotoCSS="&request.querystring("PhotoCss")&"&JSName="&rs("JSName")&">修改</a>")
		else
          response.write ("<font color=#c0c0c0>修改</font>")
		end if
	  %>
	  </td>
      <td height="20" class="forumrow" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; colspan="2" align="center" width="47"> 
        <input type=checkbox name=ID value=<%=rs("ID")%>>
      </td>
    </tr>
    <% 
	 JSName=rs("JSName")
     rs.movenext     
   wend
   rs.close
   set rs=nothing
%> 
    <tr> 
      <th align=right colspan="4"> 
        <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=operation>
        <input type=submit value=删除 onclick="return Del()">
      </th>
    </tr>
  </table>
</form>
</body>
</html>