<% Option Explicit %>
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System 2.0 
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P119") then Call ReturnError1()
Dim Result,TypeStr
Dim OrdinaryID,RsTempObj,OperateType,Sql
OrdinaryID = Request("OrdinaryID")
OperateType = Request("OperateType")
Result = Request.Form("Result")
Select Case Cint(OperateType)
  Case "1" TypeStr="关键字"
  Case "2" TypeStr="来源"
  Case "3" TypeStr="作者"
  Case "4" TypeStr="编辑"
  Case "5" TypeStr="内部链接"
End Select
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>常规管理删除</title>
</head>
<link href="../../CSS/css.css" rel="stylesheet">
<link href="Class.css" rel="stylesheet">
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" align="center">
  <form name="" action="" method="post">
  <tr>
    <td width="32%"><div align="center"><img src="../Images/Question.gif" width="39" height="37"></div></td>
    <td width="68%">确定要删除此<%=TypeStr%>？</td>
  </tr>
  <tr>
    <td colspan="2"><div align="center">
        <input name="Submit" type="submit" id="Submit" value=" 确 定 ">
        <input name="OperateType" value="<% = OperateType %>" type="hidden" id="OperateType">
        <input name="Result" type="hidden" id="Result" value="Submit">
        <input type="hidden" value="<% = OrdinaryID %>" name="OrdinaryID">
        <input name="Submit1"  onClick="window.close();"type="reset" id="Submit1" value=" 取 消 ">
    </div></td>
  </tr>
  </form>
</table>
</body>
</html>
<%
Sql = "Select * from Routine where ID=" & OrdinaryID & " and Type=" & OperateType
Set RsTempObj = Server.CreateObject("ADODB.RecordSet")
RsTempObj.Open Sql,Conn,3,3
if Not RsTempObj.Eof then
	if Result = "Submit" then
		RsTempObj.Delete
		RsTempObj.UpDate
		if Err.Number = 0 then
%>
<script language="JavaScript">
	dialogArguments.location.reload();
	window.close();
</script>
<%
		else
%>
<script language="JavaScript">
	alert('删除失败');
	dialogArguments.location.reload();
	window.close();
</script>
<%
		end if
	end if
else
%>
<script language="JavaScript">
	alert('参数传递错误');
	dialogArguments.location.reload();
	window.close();
</script>
<%
end if
Set RsTempObj = Nothing
Set Conn = Nothing
%>