<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<!-- #include file="idc1.asp" -->
<!-- #include file="idc2.asp" -->

<%call head()
Call saycardd("设计中心")

IF KEY<>0 then
  Call Error("你的权限不足！")
  end if
saypbms=int(request.QueryString ("saypbms"))
pag=request("pag")
if pag="" then 
If saytk>1 then
pag=50
Else
pag=20
End If
End If
%>
<a href="index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">后台</a>>
<a href="saytksj.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">设计</a>>主站排版<br/>
<%if saypbms="" or saypbms<=1 then%>
当前:普通排版模式<br/><a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=2">设计排版模式</a><br/><a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=3">预览排版模式</a>

<%If saytk<>1 Then
%><hr><%
Else
Response.write "<br/>-------------<br/>"
End if
If saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""class.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&""">"


%>

显示:<input name="pag" format="*N" size="3" value="<%=pag%>"/>

<%
response.write "<input type=""submit"" name=""Submit"" value=""更改条数""></form><br/>"
else
%>
显示:<input name="pid<%=minute(now)%><%=second(now)%>" format="*N" size="3" value="<%=pag%>"/>
<anchor title="显示数量">更改条数
<go href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>" method="post" accept-charset='utf-8'>
<postfield name="pag" value="$(pid<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%End if%><br/>
<%If saytk<>1 Then
%><hr><%
Else
Response.write "-------------<br/>"
End if%>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">[网站添加下级栏目]</a>
<%If saytk<>1 Then
%><hr><%
Else
Response.write "<br/>-------------<br/>"
End if
set rs=server.createobject("adodb.recordset")
sql = "select * from class where parent=0 order by pid asc"
rs.open sql,conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=pag
	Dim Count,page,pagecount,gopage			
	gopage="class.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;"
	Count=rs.recordcount
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount	
	rs.move(pagesize*(page-1))			
	For i=1 To PageSize
        						
	If rs.eof Then Exit For			

%><a href="clist.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;id=<%=rs("classid")%>&amp;lx=<%=rs("lx")%>">[管理]</a><b><%=ubb1(left(rs("class"),10))%></b>
[<%if rs("lx")=0 then 
Response.write "页面"%>
<%elseif rs("lx")=1 then 
Response.write "文章"%>
<%elseif rs("lx")=2 then 
Response.write "UBB"%>
<%elseif rs("lx")=3 then 
Response.write "显图"%>
<%elseif rs("lx")=4 then 
Response.write "链接"%>
<%elseif rs("lx")=5 then 
Response.write "图片"%>
<%elseif rs("lx")=7 then 
Response.write "调用"%>
<%elseif rs("lx")=8 then 
Response.write "广告"%>
<%elseif rs("lx")=9 then 
Response.write "WML标签"%>
<%elseif rs("lx")=10 then 
Response.write "WML页面"%>
<%elseif rs("lx")=19 then 
Response.write "搜索"%>
<%elseif rs("lx")=600 then 
Response.write "系统项目"%>
<%elseif rs("lx")>60 And rs("lx")<150 then Response.write "新调用"%>
<%Else
Response.write "未知类型"
End if%> 
排序:<%=rs("pid")%>]
<%
Response.write "<a href='lmyw.asp?sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;id="&rs("classid")&"&amp;pid="&rs("pid")&"&amp;lid="&rs("parent")&"&amp;lx=1&amp;saytk="&saytk&"'>↑</a> <a href='lmyw.asp?sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;pid="&rs("pid")&"&amp;id="&rs("classid")&"&amp;lid="&rs("parent")&"&amp;lx=0&amp;saytk="&saytk&"'>↓</a><br/>"
   
	rs.moveNext
  								
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"pag="&pag&"&amp;page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"pag="&pag&"&amp;page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"pag="&pag&"&amp;page=$(page)"">>></a><br/>"
Else
%>
	您的网站暂时没有添加栏目！<br/>
<%end if
rs.close
set rs=nothing%>

<a href='/admin/lm_gjtx.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;lid=<%=lid%>'>高级手动排序</a><br/><a href="lmpx.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">栏目自动重排</a><br/>

<%end if%>



<%if saypbms=2 then%>
页面:<a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=1">普通排版模式</a><br/>当前：设计排版模式<br/><a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=3">预览排版模式</a>
<br/>--------<br/>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">【网站添加下级栏目】</a>
<br/>--------<br/>
<%If Len(waplogo) > 7 Then
response.write "<img src='" & waplogo & "' alt='" & waptitle & "'/><a href='/admin/config.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>[管理]</a><br/>" & Chr(13)
End If
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from class where parent=0 and parent=0 order by pid asc", conn, 1, 1
If rs.EOF Then
response.write ("网站建设中..<br/>")
Else
rs.Move (0)
Dim j
j = 1
Do While Not rs.EOF
If rs("lx") = "0" Then
response.write "<a href='class.asp?class=" & rs("classid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)



ElseIf rs("lx") = "1" Then
response.write "<a href='list.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "2" Then
response.write "" & ubbcode(rs("wmltxt")) & "" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "3" Then
response.write "<img src='" & ubb2(rs("img")) & "' alt='" & ubb(rs("class")) & "'/>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "4" Then
response.write "<a href='" & ubb2(rs("url")) & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "5" Then
response.write "<a href='piclist.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "20" Then
response.write "<a href='" & rs("url") & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "8" Then
Call adstr(1)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "9" Then
response.write "" & usb(rs("wmltxt")) & "" & Chr(13)
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "10" Then Call newtitle(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "11" Then Call hottitle(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "12" Then Call wendtitle(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "16" Then Call newpic(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "17" Then Call hotpic(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "18" Then Call wendpic(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "21" Then Call newsell(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "22" Then Call relsell(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "23" Then Call jjsell(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "24" Then Call photosell(rs("num"), rs("relid"))
response.write"<a href='clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs="&vs&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&"'>[管理]</a>"
If rs("br") <> "1" Then response.write "<br/>" & Chr(13)


ElseIf rs("lx") = "19" Then
response.write "<input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>" & Chr(13)
response.write "<select name=""sear"" value=""1"">" & Chr(13)
response.write "<option value=""1"">按标题搜索</option>" & Chr(13)
response.write "<option value=""2"">按内容搜索</option>" & Chr(13)
response.write "</select><br/>"
response.write "搜 <anchor>文章<go href=""search.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & """ method=""post"">" & Chr(13)
response.write "<postfield name=""keyword"" value=""$(keyword)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor>" & Chr(13)
response.write "<anchor>图片<go href=""pic_search.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & """ method=""post"">" & Chr(13)
response.write "<postfield name=""keyword"" value=""$(keyword)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor>" & Chr(13)
End If
If rs("br") = "1" Then response.write "<br/>" & Chr(13)
rs.MoveNext
j = j + 1
Loop
End If
rs.Close
Set rs = Nothing
If links = 1 Then
Set Rslc = Server.CreateObject("ADODB.Recordset")
Sqlink = "select [ID],[namt],[classid] from [link] Where [parent] =0 order by [yd_time] desc"
Rslc.open Sqlink, conn, 1, 1
If Rslc.EOF Then
response.write ("<br/>")
End If
Dim aaa
aaa = 1
Do While ((Not Rslc.EOF) And aaa <= linknum)
response.write "<a href=""link/view.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "&amp;class=" & Rslc("classid") & "&amp;id=" & Rslc("id") & """>" & ubb(Rslc("NAMT")) & "</a>" & Chr(13)
If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then
response.write "<br/>" & Chr(13)
End If
Rslc.MoveNext
aaa = aaa + 1
Loop
Rslc.Close
Set Rslc = Nothing
End If
%>
<%end if%>




<%if saypbms=3 then%>
页面:<a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=1">普通排版模式</a><br/><a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>&amp;saypbms=2">设计排版模式</a><br/>当前：预览排版模式
<br/>----------------<br/>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">【网站添加下级栏目】</a>
<br/>----------------<br/>

<%
If Len(waplogo) > 7 Then
response.write "<img src='" & waplogo & "' alt='" & waptitle & "'/><br/>" & Chr(13)
End If
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select lx,class,classid,lid,url,img,wmltxt,num,relid,br from class where parent=0 and parent=0 order by pid asc", conn, 1, 1
If rs.EOF Then
response.write ("网站建设中..<br/>")
Else
rs.Move (0)
j = 1
Do While Not rs.EOF
If rs("lx") = "0" Then
response.write "<a href='class.asp?class=" & rs("classid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
ElseIf rs("lx") = "1" Then
response.write "<a href='list.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
ElseIf rs("lx") = "2" Then
response.write "" & ubbcode(rs("wmltxt")) & "" & Chr(13)
ElseIf rs("lx") = "3" Then
response.write "<img src='" & ubb2(rs("img")) & "' alt='" & ubb(rs("class")) & "'/>" & Chr(13)
ElseIf rs("lx") = "4" Then
response.write "<a href='" & ubb2(rs("url")) & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
ElseIf rs("lx") = "5" Then
response.write "<a href='piclist.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
ElseIf rs("lx") = "20" Then
response.write "<a href='" & rs("url") & "'>" & ubb(rs("class")) & "</a>" & Chr(13)
ElseIf rs("lx") = "8" Then
Call adstr(1)
ElseIf rs("lx") = "9" Then
response.write "" & usb(rs("wmltxt")) & "" & Chr(13)
ElseIf rs("lx") = "10" Then Call newtitle(rs("num"), rs("relid"))
ElseIf rs("lx") = "11" Then Call hottitle(rs("num"), rs("relid"))
ElseIf rs("lx") = "12" Then Call wendtitle(rs("num"), rs("relid"))
ElseIf rs("lx") = "16" Then Call newpic(rs("num"), rs("relid"))
ElseIf rs("lx") = "17" Then Call hotpic(rs("num"), rs("relid"))
ElseIf rs("lx") = "18" Then Call wendpic(rs("num"), rs("relid"))
ElseIf rs("lx") = "21" Then Call newsell(rs("num"), rs("relid"))
ElseIf rs("lx") = "22" Then Call relsell(rs("num"), rs("relid"))
ElseIf rs("lx") = "23" Then Call jjsell(rs("num"), rs("relid"))
ElseIf rs("lx") = "24" Then Call photosell(rs("num"), rs("relid"))
ElseIf rs("lx") = "19" Then
response.write "<input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>" & Chr(13)
response.write "<select name=""sear"" value=""1"">" & Chr(13)
response.write "<option value=""1"">按标题搜索</option>" & Chr(13)
response.write "<option value=""2"">按内容搜索</option>" & Chr(13)
response.write "</select><br/>"
response.write "搜 <anchor>文章<go href=""search.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & """ method=""post"">" & Chr(13)
response.write "<postfield name=""keyword"" value=""$(keyword)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor>" & Chr(13)
response.write "<anchor>图片<go href=""pic_search.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & """ method=""post"">" & Chr(13)
response.write "<postfield name=""keyword"" value=""$(keyword)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor>" & Chr(13)
End If
If rs("br") = "1" Then response.write "<br/>" & Chr(13)
rs.MoveNext
j = j + 1
Loop
End If
rs.Close
Set rs = Nothing
If links = 1 Then
Set Rslc = Server.CreateObject("ADODB.Recordset")
Sqlink = "select [ID],[namt],[classid] from [link] Where [parent] =0 order by [yd_time] desc"
Rslc.open Sqlink, conn, 1, 1
If Rslc.EOF Then
response.write ("<br/>")
End If
aaa = 1
Do While ((Not Rslc.EOF) And aaa <= linknum)
response.write "<a href=""link/view.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;kuaif_net="&kuaif_net&"&amp;vs=" & vs & "&amp;class=" & Rslc("classid") & "&amp;id=" & Rslc("id") & """>" & ubb(Rslc("NAMT")) & "</a>" & Chr(13)
If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then
response.write "<br/>" & Chr(13)
End If
Rslc.MoveNext
aaa = aaa + 1
Loop
Rslc.Close
Set Rslc = Nothing
End If
%>
<%end if%>



<%conn.close
set conn=nothing
%>-----------<br/>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;kuaif_net=<%=kuaif_net%>&amp;vs=<%=vs%>">添加下级栏目</a><br/>
<a href="index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">返回后台管理</a><br/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>

<%
call headsay()
%>
