<%@ Language=VBScript %>
<!--#include File="../Functions2.asp"-->
<!--#include file="../../yns_chklogin.asp" -->
<%
Dim MyConn, SqlUpdate
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection

Dim TypeID
Dim TypeName

TypeID = Request("TypeID")
If IsNull(TypeID) Or IsEmpty(TypeID) Or Trim(Cstr(TypeID))="" Then
	Response.End
End If

TypeName = Request("TypeName")

sTypeName = SqlStr(TypeName)

SqlUpdate = "Update SitcomType Set "
SqlUpdate = SqlUpdate & "TypeName=" & sTypeName & " "
SqlUpdate = SqlUpdate & "Where TypeID=" & TypeID

MyConn.Execute SqlUpdate

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=2>
  <tr>
    <td align=center colspan=2><font size=4><b>修改成功</b></font></td>
  </tr>
  <tr>
    <td align=center colspan=2>以下是您刚修改的产品类别</td>
  </tr>
  <tr>
    <td align=center colspan=2><hr></td>
  </tr>
  <tr>
    <td align=right>产品类别：</td>
    <td align=left><%=Server.HTMLEncode(TypeName)%></td>
  </tr>
  <tr><td colspan=2><HR></td></tr>
  <tr>
    <td colspan=2 align=right>
  <tr>
    <td colspan=2 align=right>
     <INPUT type="button" value="继续修改" id=button1 name=button1 class=buttonmanager onclick="window.history.go(-2)">
    <INPUT type="button" value="返回" id=button1 name=button1 class=buttonmanager onclick="window.history.go(-2)">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
</table>

</BODY>
</HTML>
