<% function uubb(str) str=trim(str) if IsNull(str) then exit function str=replace(str,"&","&") str=replace(str,"<","<") str=replace(str,">",">") str=replace(str,"'","'") str=replace(str,"""",""") uubb=str end function IF KEY<>0 then Call Error("

你的权限不足！") end if dim pp,id pp=request.querystring("lx") id=request.querystring("id") if id="" or IsNumeric(id)=False then Call Error("

ID无效！") end if if pp="" or IsNumeric(pp)=False then Call Error("

ID无效！") end if dim wmlhead wmlhead = "tools/wml.txt" set rs=server.createobject("adodb.recordset") sql = "select * from class where classid="&id rs.open sql,conn,1,1 if rs.bof and rs.eof then notclass else classright end if %> <%sub classright()%> <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%> <% if pp=10 then classname="最新文章" if pp=11 then classname="最热文章" if pp=12 then classname="随机文章" if pp=16 then classname="最新图片" if pp=17 then classname="最热图片" if pp=18 then classname="随机图片" if pp=19 then classname="站内搜框" if pp=0 then classname="新的页面" if pp=1 then classname="文章栏目" if pp=2 then classname="文字类型" if pp=3 then classname="图片显示" if pp=4 then classname="超级链接" if pp=5 then classname="图片栏目" if pp=7 then classname="文件栏目" if pp=8 then classname="随机广告" if pp=9 then classname="WML标签" if pp=20 then classname="WML页面" if pp=21 then classname="最新帖子" if pp=22 then classname="动态帖子" if pp=23 then classname="精华帖子" if pp=24 then classname="最新相片"%> <%if pp=0 then %>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
请输入新页面名称
" emptyok="false"/>
显示方式:
栏目后面:
电脑访问:
VIP会员进入:
进入<%=getcent%>:" format="*N" size="5" emptyok="false"/>
密码:" format="*N" size="5" emptyok="false"/>0为不加密
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=1 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
请输入新栏目名称
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=2 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
新UBB标签标记
" emptyok="false"/>
新UBB标签内容
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=3 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
请输入新显图名称
" emptyok="false"/>
图片地址:" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=4 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
请输入新超链名称:
"/>
输入新超链地址:
"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=9 then%>

类型:<%=classname%>
新WML标签标记:
" emptyok="false"/>
新WML标签内容:
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=20 then%>

类型:<%=classname%>
新WML页面标记:
" emptyok="false"/>
新WML页面内容:(无须文件头)
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 "/> <%elseif pp=7 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
新文件栏目名字:
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%elseif pp=8 then%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
新广告名称标记:
"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%else%>

名称:<%=ubb1(rs("class"))%>
类型:<%=classname%>
新调用栏目名:
" emptyok="false"/>
调用栏目(留空则为全部栏目):
栏目ID" emptyok="false"/>
调用条数:
" emptyok="false"/>
显示方式:
栏目后面:
显示顺序:" format="*N" size="2" emptyok="false"/>
确认提交 <%end if%>
----------
<% if rs("parent")<>0 then %> [栏目分类]
<%end if%> [栏目分类]
[后台管理]

<%Response.End%><%End Sub%> <%sub notclass()%><%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>

没有这个栏目!
----------
返回栏目管理
[后台管理]

<%Response.End%><%End Sub%>