<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="../../inc/char.asp"-->
<%
function uubb(str)
	str=trim(str)
	if IsNull(str) then exit function
	str=replace(str,"&","&amp;")
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","&apos;")
	str=replace(str,"""","&quot;")
	uubb=str
end function
IF KEY<>0 then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>你的权限不足！")
else
  Call Error("<card title=""出错""><p>你的权限不足！")
  end if
end if
dim pp,id
pp=request.querystring("lx")
id=request.querystring("id")
if id="" or IsNumeric(id)=False then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>ID无效！！")
else
  Call Error("<card title=""出错""><p>ID无效！")
  end if
end if
if pp="" or IsNumeric(pp)=False then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>ID无效！！")
else
  Call Error("<card title=""出错""><p>ID无效！")
  end if
end if

dim conngamepb,conngamepbstr
conngamepbstr="DBQ="+server.mappath("/shujuku/chajianshujuku/saytk_pb/saytk_pb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conngamepb=server.createobject("ADODB.connECTION")
conngamepb.open conngamepbstr

set rs=server.createobject("adodb.recordset")
sql = "select * from gameclass where classid="&id
rs.open sql,conngamepb,1,1
if rs.bof and rs.eof then
    	notclass
else
classright
end if
%>
<%sub classright()%>
<%call ling()
call head%><%

if pp=2 then classname="文字类型"
if pp=3 then classname="图片显示"
if pp=4 then classname="超级链接"

if pp=2 Then
Call saycardd("编辑UBB标签")
%>名称:<%=ubb1(rs("class"))%><br/>
        类型:<%=classname%><br/>新UBB标签标记<br/>
<%if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""editclasssave.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;id="&id&"&amp;lx=2"">"%>
<input name="class1" title="名称" value="<%=ubb1(rs("class"))%>" emptyok="false"/><br/>

<%if saytk>1 then%>
新UBB标签内容:<br/><textarea name="wmltxt" rows="10" cols="30" class="false"><%=usb(rs("wmltxt"))%></textarea><br/>
<%else%>
新UBB标签内容:<br/><input name="wmltxt" class="false" value="<%=usb(rs("wmltxt"))%>"/><br/>
<%End if%>



显示方式:<select name="active" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<input type="hidden" name="lx" value="2"/>
<input type="submit" name="Submit" value="确认提交"></form><br/>
<%else%>
<input name="class1<%=minute(now)%><%=second(now)%>" title="名称" value="<%=ubb1(rs("class"))%>" emptyok="false"/><br/>
新UBB标签内容<br/><input name="wmltxt<%=minute(now)%><%=second(now)%>" title="名称" value="<%=ubb(rs("wmltxt"))%>" emptyok="false"/><br/>
显示方式:<select name="active<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<anchor>确认提交
    <go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;saytk=<%=saytk%>" method="post" accept-charset="utf-8">
        <postfield name="class1" value="$(class1<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="wmltxt" value="$(wmltxt<%=minute(now)%><%=second(now)%>)"/>
		<postfield name="password" value="$(password)"/>
         <postfield name="pid" value="$(pid<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="br" value="$(br<%=minute(now)%><%=second(now)%>)"/>
        <postfield name='lx' value='2'/>
        <postfield name='active' value='$(active<%=minute(now)%><%=second(now)%>)'/>
    </go>
</anchor><%end if%>
<%elseif pp=3 Then
Call saycardd("编辑直接显图")
%>名称:<%=ubb1(rs("class"))%><br/>
        类型:<%=classname%><br/>
<%if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""editclasssave.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;id="&id&"&amp;lx=3"">"%>
请输入新显图名称<br/><input name="class1" title="名称" value="<%=ubb1(rs("class"))%>" emptyok="false"/><br/>
图片地址:<input name="img" title="名称" value="<%=ubb1(rs("img"))%>" emptyok="false"/><br/>
显示方式:<select name="active" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<input type="hidden" name="lx" value="3"/>
<input type="submit" name="Submit" value="确认提交"></form><br/>
<%else%>
请输入新显图名称<br/><input name="class1<%=minute(now)%><%=second(now)%>" title="名称" value="<%=ubb1(rs("class"))%>" emptyok="false"/><br/>
图片地址:<input name="img<%=minute(now)%><%=second(now)%>" title="名称" value="<%=ubb1(rs("img"))%>" emptyok="false"/><br/>
显示方式:<select name="active<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<anchor>确认提交
    <go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;saytk=<%=saytk%>" method="post" accept-charset="utf-8">
        <postfield name="class1" value="$(class1<%=minute(now)%><%=second(now)%>)"/>
         <postfield name="img" value="$(img<%=minute(now)%><%=second(now)%>)"/>
		 <postfield name="password" value="$(password)"/>
         <postfield name="pid" value="$(pid<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="br" value="$(br<%=minute(now)%><%=second(now)%>)"/>
        <postfield name='lx' value='3'/>
        <postfield name='active' value='$(active<%=minute(now)%><%=second(now)%>)'/>
    </go>
</anchor><%end if%>
<%elseif pp=4 Then
Call saycardd("编辑超级链接")
%>名称:<%=ubb1(rs("class"))%><br/>
        类型:<%=classname%><br/>请输入新超链名称:<br/>
<%if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""editclasssave.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;id="&id&""">"%>
<input name="class1" title="名称" value="<%=ubb1(rs("class"))%>"/><br/>
   输入新超链地址:<br/><input name="URL" title="名称" value="<%=usb(rs("url"))%>"/><br/>
显示方式:<select name="active" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<input type="hidden" name="lx" value="4"/>
<input type="submit" name="Submit" value="确认提交"></form><br/>
<%else%>
<input name="class1<%=minute(now)%><%=second(now)%>" title="名称" value="<%=ubb1(rs("class"))%>"/><br/>
   输入新超链地址:<br/><input name="URL" title="名称" value="<%=uubb(rs("url"))%>"/><br/>
显示方式:<select name="active<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("active"))%>"><option value="0">正常显示</option><option value="1">隐藏显示</option></select><br/>
		栏目后面:<select name="br<%=minute(now)%><%=second(now)%>" value="<%=ubb1(rs("br"))%>">
			<option value="1">自动换行</option>
			<option value="2">不换行</option>
			</select><br/>
显示顺序:<input name="pid<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
我的密码:<input name="password" type="text" format="*N" size="6" emptyok="false"/><br/>
<anchor>确认提交
    <go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;saytk=<%=saytk%>" method="post" accept-charset="utf-8">
        <postfield name="class1" value="$(class1<%=minute(now)%><%=second(now)%>)"/>
         <postfield name="URL" value="$(URL<%=minute(now)%><%=second(now)%>)"/>
         <postfield name="pid" value="$(pid<%=minute(now)%><%=second(now)%>)"/>
		 <postfield name="password" value="$(password)"/>
        <postfield name="br" value="$(br<%=minute(now)%><%=second(now)%>)"/>
        <postfield name='lx' value='4'/>
        <postfield name='active' value='$(active<%=minute(now)%><%=second(now)%>)'/>
    </go>
</anchor><%end if%>

<%end if%>
<br/>----------<br/>
<% if rs("parent")<>0 then %>
<a href='Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=pp%>&amp;saytk=<%=saytk%>'>[栏目分类]</a><br/>
<%end if%>
<a href='class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[栏目分类]</a><br/>
<a href="/bbs/show.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[返回地盘]</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[返回社区]</a>
<%response.write"<br/>"
call head1()%>
<%Response.End%><%End Sub%>
<%sub notclass()%>
<%call ling()
call head
if saytk>1 then
Response.write "<title>出错了</title></head><body><body bgcolor="""&yanse1&""">"
else%>
<card title="出错了">
<%end if%>
<p align="left">
没有这个栏目!
<br/>----------<br/>
<a href='class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回栏目管理</a><br/>
<a href="/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">返回我的地盘</a><br/>
<%response.write""
call headsay()%>
<%Response.End%><%End Sub%>