<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true Const PurviewLevel=1 '操作权限 Const CheckChannelID=0 '所属频道，0为不检测所属频道 %> <% dim UserID,rs,sql dim Action,FoundErr,ErrMsg dim AdminPurview_Channel Action=Trim(request("Action")) ChannelID=trim(request("ChannelID")) UserID=trim(request("UserID")) if ChannelID="" then FoundErr=True ErrMsg=ErrMsg & "

请指定频道ID

" else ChannelID=Clng(ChannelID) end if if Action="Modify" then if UserID="" then FoundErr=True ErrMsg=ErrMsg & "

请指定要修改的用户ID

" else UserID=Clng(UserID) sql="Select * from Admin where ID=" & UserID Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open sql,conn,1,3 if rs.Bof and rs.EOF then FoundErr=True ErrMsg=ErrMsg & "

不存在此用户！

" else AdminName=rs("UserName") AdminPurview=rs("Purview") select case ChannelID case 2 AdminPurview_Channel=rs("AdminPurview_Article") case 3 AdminPurview_Channel=rs("AdminPurview_Soft") case 4 AdminPurview_Channel=rs("AdminPurview_Photo") end select end if rs.close set rs=nothing end if end if if FoundErr=True then call WriteErrMsg() call CloseConn() response.end end if %> <% dim arrShowLine(10) for i=0 to ubound(arrShowLine) arrShowLine(i)=False next dim sqlClass,rsClass,i,iDepth select case ChannelID case 2 sqlClass="select * From ArticleClass order by RootID,OrderID" case 3 sqlClass="select * From SoftClass order by RootID,OrderID" case 4 sqlClass="select * From PhotoClass order by RootID,OrderID" end select set rsClass=server.CreateObject("adodb.recordset") rsClass.open sqlClass,conn,1,1 %>

<% do while not rsClass.eof %> <% rsClass.movenext loop %>

栏目名称	录入	审核	管理
<% iDepth=rsClass("Depth") if rsClass("NextID")>0 then arrShowLine(iDepth)=True else arrShowLine(iDepth)=False end if if iDepth>0 then for i=1 to iDepth if i=iDepth then if rsClass("NextID")>0 then response.write "" else response.write "" end if else if arrShowLine(i)=True then response.write "" else response.write "" end if end if next end if if rsClass("Child")>0 then response.write "" else response.write "" end if if rsClass("Depth")=0 then response.write "" end if response.write rsClass("ClassName") %>	<% response.write "" %>	<% response.write "" %>	<% response.write "" %>

<% rsClass.close set rsClass=nothing call CloseConn() %>