<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file="../inc/function.asp"-->
<%
dim rs,sql,class1,paixu
if request("jle")="ok" then
call ok()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<li>参数错误！"
response.end
end if
class1=rs("class1")
paixu=rs("paixu")
rs.close
set rs=nothing
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改总分类</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0">

<center>
<form method="POST" action="?jle=ok&id=<%=request("id")%>">
<table width="63%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#c5cfe0" bordercolordark="#FFFFFF"   style="font-size:12px; letter-spacing:1px;">
      <tr align="center" bgcolor="#FFFFFF" height="20"> 
<td align="center" height="29">
    <p align="center" class="tdbar">大类修改</td>
  </tr>
  <tr>
    <td height="21" align="center" class="tdbar1" style="border-bottom: medium none">
    大类名称：<input name="class1" size="20" value="<%=class1%>"></td>
  </tr>
  <tr>
    <td  height="25" align="center"  class="tdbar1" style="border-top: medium none; border-bottom: medium none">
    排序数字：<input value="<%=paixu%>" name="paixu" size="20"></td>
  </tr>
  <tr>
    <td style="border-top: medium none"  height="25" >
    <p align="center" class="tdbar">
    <input type="submit" value="提交" name="B1"></td>
  </tr>
</table>
</form>
</center>
</body>
</html>
<%
sub ok()
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("class1")=HtmlEncode(request("class1"))
rs("paixu")=request("paixu")
rs.update
rs.close
set rs=nothing
response.write "<li>修改大类成功！<br>"
response.write "<li>刷新后可以看到结果！"%>
<body onLoad="setTimeout(window.close, 3000)">
<%
end sub
closedb
%>