<%
set Menu=new TreeMenu
Chk_Admin_Login()
Id=zhcx.checknumeric(request("Id"))
Itype=zhcx.checknumeric(request("Itype"))
level=zhcx.checknumeric(request("level"))
Pre_Id=zhcx.checknumeric(request("Pre_Id"))
list=0
if level<1 then
level=1
end if
Select Case Itype
Case 0
Do_Name="新闻"
Case 1
Do_Name="产品"
Case else
Do_Name="不详"
end select
btn="添加"
if Id>0 then
btn="修改"
Sql="Select * From Class_type where Id="&Id
set rs=zhcx.Conn(sql)
if not rs.eof then
Class_Name=rs("Class_Name")
Pre_Id=rs("Pre_Id")
Itype=rs("Itype")
level=rs("mlevel")
list=rs("list")
Note=rs("Note")
filepath=rs("filepath")
Img_Src=rs("Img_Src")
p_title=rs("p_title")
p_keyword=rs("p_keyword")
P_description=rs("P_description")
end if
rs.close
set rs=nothing
end if
%>
<%
response.write Zhcx.GetTopTemplates(2)
%>