管理中心--站点栏目类别管理

<% '---------------------确定是否具有权利------------------------------- dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "wz") if cls <= 0 then %> <% end if end if end if '---------------------确定是否具有权利------------------------------- %> 管理中心--站点栏目类别管理

当前位置:网站管理中心--栏目列表管理

栏目列表 | 栏目类别

<% if request("gb")<>"" then gb=request("gb") end if action=request("action") if action="" then %>

<% if v<>1 then %> ';" value="<%= lang_1 %>"> ';" value="<%= lang_2 %>"> <% end if %> ';" value="添加栏目类别">

<%end if if action="cls" then '类别管理 call manageclass() end if if action="editclass" then '编辑类别名字 call editclass() end if if action="addLarclass" then '增加大类 call addlarclass() end if if action="delLarclass" then '删除大类 call dellarclass() end if %>

<% '--------------------编辑栏目类别类别开始---------------------------- sub manageclass() set rs=server.createobject("adodb.recordset") sql="select * from wzclass where gb='"&gb&"' order by xuhao asc" rs.open sql,conn,1,3 if err.number<>0 then '错误处理 response.write "数据库操作失败：" & err.description '错误描述 err.clear else response.write "

请注意：如果已经是旧的类别，已经和栏目类别关联了，修改，删除类别后，页面可能不能直接找到原类别栏目类别，最好不要轻易修改。

增加类别

" if v<>1 then response.write "

"&lang_1&"　　"&lang_2&"　

" end if response.Write"" Dim a,b,c if not (rs.eof and rs.bof) then a=rs("wzbig") Do While Not rs.eof if (a<>b) then response.write "" else response.Write lang_2&"" end if else end if rs.movenext if rs.eof then exit do end if b=rs("wzbig") Loop end if response.write "

"&rs("xuhao")&" "&rs("wzbig")&"

删除类别 | " if rs("gb")="ch" then response.Write lang_1&"

" end if rs.close set rs=nothing end sub '--------------------编辑栏目类别类别结束---------------------------- '--------------------增加栏目类别大类开始---------------------------- sub addlarclass() '增加大类 gb=request.form("gb") if request("add")="ok" then set rsadd=Server.CreateObject("ADODB.Recordset") sql="select * from wzclass" application.lock rsadd.open sql,conn,3,3 rsadd.addnew rsadd("xuhao")=request.form("date3") rsadd("wzbig")=request.form("newclass") rsadd("gb")=request.form("gb") rsadd.update application.unlock rsadd.close set rsadd=nothing response.write "

  新增类别："&request("newclass")&"

" response.write "" else response.write "
"&lang_1&"类别：" set rs=server.createobject("adodb.recordset") sql="select * from wzclass where gb='"&session("gb")&"' order by xuhao asc" rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then do while not rs.eof response.write "  "&rs("xuhao")&"、"&rs("wzbig")&"" rs.movenext loop end if if v<>1 then response.write "
"&lang_2&"类别：" set rs=server.createobject("adodb.recordset") sql="select * from wzclass where gb='"&session("gb1")&"' order by xuhao asc" rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then do while not rs.eof response.write "  "&rs("xuhao")&"、"&rs("wzbig")&"" rs.movenext loop end if end if rs.close set rs=nothing if request("gb")="en" then select2="selected" else select1="selected" end if %> <% end if end sub '--------------------增加栏目类别大类结束---------------------------- '删除类别 sub delLarclass() sql= "delete from wzclass where wzbig='"&request("Reid")&"'" conn.execute sql conn.close response.write "

  删除大类："&request("Reid")&"

" response.write "" end sub '编辑类别 sub editclass() if request("o")="ok" then set rs=server.createobject("adodb.recordset") sql = "select * from wzclass where id="&request("id") rs.open sql,conn,1,3 if err.number<>0 then response.write "数据库操作失败：" & err.description '错误描述 err.clear else if not (rs.eof and rs.bof) then rs("wzbig")=request.form("LarCode") rs("xuhao")=request.form("date3") rs.update end if end if conn.execute("update News set NewsClass='"&request("LarCode")&"' where NewsClass='"&request("old")&"'") rs.close response.write "栏目类别类别已经修改
" response.write request.form("LarCode") response.write "" response.end else set rs = server.createobject("adodb.recordset") sql = "select * from wzclass where wzbig='"&request("LarCode")&"'" rs.open sql,conn,1,1 response.write "" end if end sub %>