<%@ Language=VBScript %>
<!--#include File="../Functions2.asp"-->
<!--#include File="../Functions2.asp"-->
<!--#include file="../../yns_chklogin.asp" -->
<%
Dim TypeID
TypeID = Request("TypeID")
SitcomTypeName = Request("SitcomTypeName")
If IsNull(TypeID) Or IsEmpty(TypeID) Then
	Response.End
End If

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

SqlDelete = "Delete From SitcomType Where TypeID=" & TypeID

MyConn.Execute SqlDelete

MyConn.Close
Set MyConn = Nothing
%>
<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>删除成功！</b><font>
    </td>
  </tr>
  <tr><td align=center><HR></td></tr>
  <tr>
	<td align=center>
	  产品类别“<%=Server.HTMLEncode(SitcomTypeName)%>”已被成功删除！
	</td>
  </tr>
  <tr height=40 valign=bottom>
    <td align=center>
    <INPUT type="button" value="确定" id=button1 name=button1 class=buttonmanager onclick="window.history.go(-2)">
    </td>
  </tr>
</table>
</BODY>
</HTML>
