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

If IsNull(TypeID) Or IsEmpty(TypeID) Then
	Response.End
End If

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

SqlSelect = "Select * From SitcomType Where TypeID=" & TypeID

RS.Open SqlSelect, MyConn, 1, 3

If RS.BOF Then
	RS.Close
	Set RS = Nothing
	MyConn.Close
	Set MyConn = Nothing
	
	Response.Redirect("..//Unexpectable_Error.htm")
	Response.End
End If

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

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

<TITLE>修改产品类别</TITLE>
</HEAD>

<script language="javascript">
<!--
function loginfocus()
	{
	document.FormAddSitcomType.TypeName.focus();
	return;
	}
	
function persubmit()
	{
	return (
		validate(document.FormAddSitcomType.TypeName, "产品类别",1,6));
	}
//-->
</script>

<BODY onload="loginfocus();" bgcolor="#ffffff">

<P>&nbsp;</P>
<form name=FormAddSitcomType method=post action=DoModifySitcomType.asp onsubmit="return persubmit();">
<table align=center cellpadding=0 cellspacing=0>
  <input type=hidden name=TypeID value=<%=TypeID%>>
  <tr>
    <td align=middle colspan=2><font size=4><b>修改产品类别</b></font></td>
  </tr>
  <tr>
    <td align=right colspan=2>带<font color=red>*</font>的为必填项</td>
  </tr>
  <tr>
    <td align=middle colspan=2><hr></td>
  </tr>
  <tr>
    <td align=right><font color=red>*</font>产品类别：</td>
    <td align=left><INPUT name=TypeName class=text value="<%=Server.HTMLEncode(RS("TypeName"))%>"></td>
  </tr>
  <tr><td colspan=2><HR></td></tr>
  <tr>
    <td colspan=2 align=right>
    <INPUT type="submit" value="确定" id=submit1 name=SubmitModify class=buttonmanager>
    <INPUT type="button" value="取消" id=button1 name=button1 onclick="window.history.back()" class=buttonmanager>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
</table>
</form>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>