<%id=request("id")
lb= request("lb")
ylb= request("ylb")
px= request("px")
cz=request("cz")
px=request("px")
sp=request("sp")
if jb<>"admin" then response.redirect "tb_dlxx.asp"
if id<>"" and cz="sc" then
exec="delete from yrwl_tb_type where id="&id
conn.execute exec
exec="delete from yrwl_tb_type where lx like '" & id & "-%'"
conn.execute exec
exec="update yrwl_tb_lt set lb='' where lb='"&ylb & "' or lb like '"&ylb&"-'"
conn.execute exec
response.redirect "bbs_type.asp"
end if
if instr(jb,"z") > 0 then
jb = replace(jb,"z","")
sqltj = " and id in (" & jb & ")"
end if
exec = "select * from yrwl_tb_type where lx not like '%-%' order by px"
set rs = server.createobject("adodb.recordset")
rs.open exec,conn,3,1%>
序号
类别名称
类别ID
查看方式
排序
处理
<%gs = rs.recordcount
j = 1
while not rs.eof
lb = rs("lb")
lx = rs("lx")
px = rs("px")
zk = rs("zk")
if zk="0" or isnull(zk) then
zzk = "未展开"
else
zzk = "展开"
end if
sp = trim(rs("sp"))
if isnull(sp) then sp = ""
id = rs("id")%>
<%=j%>
<%=lb%>
<%=lx%>
<%if sp="0" or sp="" then
response.write "不必登陆查看"
else
response.write "登陆查看"
end if%>