<!--#include file=CONN.ASP-->
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if
 if request.cookies(hxCacheName&"_rank")("rank")>2 then
  	response.write "<script language='javascript'>"
	response.write "alert('您的级别不够！');"
	response.write "location.href='javascript:history.go(-1)';"			
	response.write "</script>"
    end if%>
<%
dim rs,sql,name1,Orderid
if request("dick")="ok" then
call ok()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [tt_WebType] 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
name1=rs("name")
Orderid=rs("Orderid")
rs.close
set rs=nothing
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改分类</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>

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

<center>
<form method="POST" action="admin_fenleiedit.asp?dick=ok&id=<%=request("id")%>">
<table style="border-collapse: collapse" borderColor="#cccccc" height="68" cellSpacing="0" cellPadding="0" width="322" border="1">
  <tr>
    <td width="322" bgColor="#BDBEDE" height="25">
    <p align="center"><font color="#FF0000">修改分类</font></td>
  </tr>
  <tr>
    <td style="border-bottom: medium none" align="middle" width="322" height="21">
    大类名称：<input name="name1" size="20" value="<%=name1%>"></td>
  </tr>
  <tr>
    <td style="border-top: medium none; border-bottom: medium none" align="middle" width="322" height="25">
    排序数字：<input value="<%=Orderid%>" name="Orderid" size="20"></td>
  </tr>
  <tr>
    <td style="border-top: medium none" width="322" height="25">
    <p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <input style="color: #000000; border: 0px solid #000000; background-color: #eeeeee" type="submit" value="确认修改" name="B1"></td>
  </tr>
</table>
</form>
</center>
</body>
</html>
<%
sub ok()
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [tt_WebType] where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("name")=request("name1")
rs("Orderid")=request("Orderid")
rs.update
rs.close
set rs=nothing
response.write "<li>修改大类成功！<br>"
response.write "<li>刷新后可以看到结果！"%>
<body onLoad="setTimeout(window.close, 3000)">
<%
end sub
'closedb
%>
