<%@ Language=VBScript %>
<!--#include file="../../yns_chklogin.asp" -->
<!--#include File="../Functions.asp"-->
<%
Dim SitcomID
SitcomID = Request("SitcomID")


Dim MyConn, RS, SqlSelect, SqlDelete
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection
Set RS = Server.CreateObject("Adodb.RecordSet")

SqlSelect = "Select SitcomName From SitcomInfo Where SitcomID=" & SitcomID

RS.Open SqlSelect, MyConn

If RS.BOF Then
	RS.Close
	Set RS = Nothing
	MyConn.Close
	Set MyConn = Nothing
	Response.End
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<link rel="stylesheet" href="../../zf.css">

<TITLE>删除连续剧</TITLE>
</HEAD>
<BODY bgcolor="#ffffff">

<P>&nbsp;</P>
<table align=center cellpadding=0 cellspacing=0 width=68%>
  <tr>
    <td align=center>
      <font size=4><b><font color=red>删除</font> <%=RS("SitcomName")%>？</b><font>
    </td>
  </tr>
  <tr><td align=center><HR></td></tr>
  <tr>
	<td align=left>
	  &nbsp;&nbsp;&nbsp;&nbsp;
	  您的操作即将彻底删除连续剧“<%=RS("SitcomName")%>”的信息，
	  如果您不想删除，而只是不想让用户看到“<%=RS("SitcomName")%>”的信息，
	  您可以修改该连续剧的状态为“无效”。
	</td>
  </tr>
  <tr height=40 valign=bottom>
    <td align=center><font size=3><b>确信要删除吗？</b></font></td>
  </tr>
  <tr height=40 valign=bottom>
    <td align=center>
    <a href='DoDeleteSitcom.asp?SitcomID=<%=SitcomID%>&SitcomName=<%=RS("SitcomName")%>' id=deletesitcom></a>
    <INPUT type="button" value="删除" id=button1 name=button1 class=buttonmanager onclick="document.all('deletesitcom').click();">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <INPUT type="button" value="不删除" id=button2 name=button2 class=buttonmanager onclick="window.history.back()">
    </td>
  </tr>
</table>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>