<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->
<!-- #include file="Inc/char.asp" -->

<%saytk=request.QueryString("saytk")
If saytk=100 then
Call Headclass("<link rel=""stylesheet"" href=""/main/channe.css"" type=""text/css""/>")
ElseIf saytk=2 Then
Call Headclass("<link rel=""stylesheet"" href=""/main/channe2.css"" type=""text/css""/>")
ElseIf saytk=9 then
Call Headclass("<link rel=""stylesheet"" href=""/main/channe9.css"" type=""text/css""/>")
Else
Call Headclass("<link rel=""stylesheet"" href=""/main/channea.css"" type=""text/css""/>")
End If

dim rs1,sql1,id
id=request.QueryString("class")
if id="" or IsNumeric(id)=False then

if saytk<>1 then
  Call Error("<title>出错了</title></head><body><body bgcolor="""&yanse&"""><p>ID无效！")
else
  Call Error("<card title='出错了'><p>ID无效！")
  end if
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="Select * from class where classid="&id
rs1.open sql1,conn,1,1 
if rs1.eof then
if saytk<>1 then
  Call Error("<title>出错了</title></head><body><body bgcolor="""&yanse&"""><p>栏目不存在！")
else
  Call Error("<card title='出错了'><p>栏目不存在！")
  end if
end if
classname=rs1("class")
paycent=rs1("cent")
payID=rs1("payID")
opera=rs1("opera")
prentmm=rs1("prentmm")
vipin=rs1("vipin")
rs1.close
set rs1=nothing



Call saycarda(""&classname&"")

if opera=2 then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then 
Call Error("请用手机访问！")
end if
end if

if clng(vipin)>0  then
if myid=0 then
Response.write "<a href='login.asp?saytk="&saytk&"&amp;url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"'>请您先登陆...</a>"& chr(13)
  Response.write "<br/><anchor><prev/>返回</anchor>" & chr(13)
Call head1()
  Response.end
end if

if clng(getvip(myjb,myjy))<clng(vipin) and clng(vipdj)<clng(vipin) and keys<>1 and keys<>2 then
  Call Error("只限VIP"&clng(vipin)&"级会员进入！")
end if
end if

if usb(request("mm"))<>"" then Session("prentpass")=usb(request("mm"))

if prentmm<>"0" and Session("prentpass")<>prentmm and keys<>1 And key<>2 then
   call xlanlj("class.asp?class="&ID&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
 response.write"本栏目已加密,请输入密码进入<br/>"
 response.write"<input name='mm' value=''/><br/>"
 if saytk>1 then
call xlanlj1("确定进入")
 else  
response.write"<anchor>确定进入<go href='class.asp?class="&ID&"&amp;sid="&sid&"&amp;saytk="&saytk&"' method='post'>"
response.write"<postfield name='mm' value='$(mm)'/>"
response.write"</go></anchor><br/>"
end if
  Response.write "<anchor><prev/>返回上级</anchor>"
Call head1()
   Response.end
end if

if paycent<>0 then
if Instr(","&payID&",",","&myid&",") > 0 or keys=1 or keys=2 then
else
response.write "查看此页面需用"&paycent&getcent&",确定要查看吗？"
response.write "<br/><a href='pay.asp?sid="&sid&"&amp;id="&id&"'>是的</a>"
Response.write "<br/><anchor>取消<prev/></anchor>"
Call head1()
response.end
end if
end if


if myid=0 then

else

'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if newguest > 0 then
Response.write "<a href='bbs/msgview.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
end if


Dim i,p
set rs = server.createobject("adodb.recordset")
rs.open"select * from class where parent="&id&" and active=0 order by pid asc",conn,1,1
if rs.eof then 
If saytk>1 Then response.write("<h1>")
response.write("新建页面栏目建设中..<br/>")
If saytk>1 Then response.write("</h1>")

Response.write "<br/>请稍后访问或联系站长开放..<br/>"
Response.write "<br/><a href='/admin'>站长请登陆后台管理</a><br/>"
Response.write "<br/>本站由朋友网<a href='http://eeeees.e16.163ns.cn'>weeeees.e16.163ns.cn</a>提供建站技术支持!<br/>"

Response.write "<br/><a href=""/bbs/show.asp?saytk="&saytk&"&amp;sid="&sid&""">空间</a>>>"
Response.write "<a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">社区</a>"
Response.write ">><a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">首页</a><br/>"
response.write "(c) "&Request.ServerVariables("SERVER_NAME")&"<br/>"
Response.write "报时:"
Response.write "" & Hour(Time) & ":" & Minute(Time)
response.write "<br/>执行用了"& FormatNumber((timer()-t1)*1000,3) & "毫秒"
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&"'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "1" Then
response.write "<a href='list.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "2" Then
response.write "" & ubbcode(rs("wmltxt")) & "" 
ElseIf rs("lx") = "3" Then
response.write "<img src='" & ubb2(rs("img")) & "' alt='" & ubb(rs("class")) & "'/>" 
ElseIf rs("lx") = "4" Then
response.write "<a href='" & ubb2(rs("url")) & "'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "600" Then
response.write "<a href='" & ubb2(rs("url")) & "'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "5" Then
response.write "<a href='piclist.asp?class=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "7" Then
response.write "<a href='soft.asp?cid=" & rs("lid") & "&amp;saytk="&saytk&"&amp;sid="&sid&"'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "20" Then
response.write "<a href='" & rs("url") & "'>" & ubb(rs("class")) & "</a>" 
ElseIf rs("lx") = "8" Then Call adstr1(rs("num"), rs("relid"),rs("lid"),rs("img"))
ElseIf rs("lx") = "9" Then
response.write "" & usb(rs("wmltxt")) & "" 
ElseIf rs("lx") = "10" Then Call newtitle(rs("num"), ""&rs("wmltxt")&"",rs("lid"),rs("img"))
ElseIf rs("lx") = "11" Then Call hottitle(rs("num"), rs("wmltxt"),rs("lid"),rs("img"))
ElseIf rs("lx") = "12" Then Call wendtitle(rs("num"), rs("wmltxt"),rs("lid"),rs("img"))
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"),rs("lid"),rs("img"))
ElseIf rs("lx") = "22" Then Call relsell(rs("num"), rs("relid"),rs("lid"),rs("img"))
ElseIf rs("lx") = "23" Then Call jjsell(rs("num"), rs("relid"),rs("lid"),rs("img"))
ElseIf rs("lx") = "27" Then Call hotsell(rs("num"), rs("relid"),rs("lid"),rs("img"))


ElseIf rs("lx") = "24" Then Call photosell(rs("num"), rs("relid"))
ElseIf rs("lx") = "25" Then Call newsms(rs("num"), rs("relid"))
ElseIf rs("lx") = "19" Then

call indexso()
ElseIf rs("lx") = "26" Then

ElseIf rs("lx") = "60" Then Call newfile(rs("num"),rs("relid"),rs("ids"),rs("lid"),rs("img"))
ElseIf rs("lx") = "61" Then Call hotfile(rs("num"),rs("relid"),rs("ids"),rs("lid"),rs("img"))
ElseIf rs("lx") = "62" Then Call sjfile(rs("num"),rs("relid"),rs("ids"),rs("lid"),rs("img"))

ElseIf rs("lx") = "67" Then Call sjsms(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "68" Then Call xhsj(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "69" Then Call shopsj(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "70" Then Call sms1(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "71" Then Call xhdq1(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "72" Then Call cndh(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "73" Then Call shopnew(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "74" Then Call dongtai(rs("num"))
ElseIf rs("lx") = "75" Then Call newlink(rs("num"))
ElseIf rs("lx") = "76" Then Call today(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "77" Then Call xy(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "120" Then Call nnsaytk()
ElseIf rs("lx") = "121" Then Call bbslbb(rs("num"),rs("lid"),rs("img"))
ElseIf rs("lx") = "122" Then Call onlineCou3()
ElseIf rs("lx") = "123" Then Call onlineCou2()
ElseIf rs("lx") = "124" Then Call onlineCou()
ElseIf rs("lx") = "125" Then Call onlineCoun11()
ElseIf rs("lx") = "126" Then Call weather()
ElseIf rs("lx") = "127" Then Call newuserinfo()
ElseIf rs("lx") = "128" Then Call wenhouyu()
ElseIf rs("lx") = "129" Then Call bbssearch()
ElseIf rs("lx") = "76" Then Call today(rs("num"))
ElseIf rs("lx") = "131" Then Call gonggaonew()
ElseIf rs("lx") = "132" Then Call bbsgonggaonew()
ElseIf rs("lx") = "133" Then Call bbskjcd()
ElseIf rs("lx") = "134" Then Call chenli()
ElseIf rs("lx") = "135" Then Call zxsj()
ElseIf rs("lx") = "136" Then Call roomsmsg()
ElseIf rs("lx") = "137" Then Call roomksfy()


end if



If rs("br") = "1" Then 
   If saytk>1 Then
      If rs("lx")=2 Or rs("lx")=9 then 
         If Right(rs("wmltxt"),6)="(/div)" Or Right(rs("wmltxt"),6)="</div>" Or Right(rs("wmltxt"),5)="(/3g)" Or Right(rs("wmltxt"),8)="(/class)" Or Right(rs("wmltxt"),8)="(/cz2.0)" Or Right(rs("wmltxt"),4)="(/d)" Or rs("wmltxt")="(/class)" Or rs("wmltxt")="(/3g)" Or rs("wmltxt")="(/cz2.0)" Or rs("wmltxt")="(/div)" Then
		 else
         response.write "<br/>" 
         End If
	  Else
	  response.write "<br/>" 
      End If
	  
   Else
   response.write "<br/>" 
   End If
End If

rs.MoveNext
j=j+1
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
----------</br>
<a href="/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">空间</a>><a href="/bbs/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">社区</a>><a href="/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">首页</a><br/>
<!-- #include file="1endwml.asp" -->
