<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!-- #include file="../../Inc/char.asp" -->
<%
call head()
Call saycard("游戏大厅",""&wapconst&"")
%><!--#include file="../sy1.asp"--><%
If gamelogo<>"" Then
response.write"<img src='" & gamelogo & "' alt='game'/><br/>"&chr(13)
Else
response.write"<img src='/img/game.gif' alt='game'/><br/>"&chr(13)
End if

if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/bbs/game/index.asp?sid=[sid])游戏大厅(/url)')")

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")
rs.open "select * from gameclass where parent=0 and active=0 order by pid asc", conngamepb, 1, 1
If rs.EOF Then


response.write "暂无排版内容! 社区管理员在到小屋进入排版!"

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 adstr(1)
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"),rs("ids"))
ElseIf rs("lx") = "22" Then Call relsell(rs("num"), rs("relid"),rs("lid"),rs("img"),rs("ids"))
ElseIf rs("lx") = "23" Then Call jjsell(rs("num"), rs("relid"),rs("lid"),rs("img"),rs("ids"))
ElseIf rs("lx") = "27" Then Call hotsell(rs("num"), rs("relid"),rs("lid"),rs("img"),rs("ids"))
ElseIf rs("lx") = "28" Then Call sjsell(rs("num"), rs("relid"),rs("lid"),rs("img"),rs("ids"))


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 bbslbtxt()
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
If links = 1 Then
Dim Rslc, Sqlink
Set Rslc = Server.CreateObject("ADODB.Recordset")
Sqlink = "select [ID],[namt],[classid] from [link] Where [Active] =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;class=" & Rslc("classid") & "&amp;id=" & Rslc("id") & """>" & ubb(Rslc("NAMT")) & "</a>" 
If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then
response.write "<br/>" 
End If
Rslc.MoveNext
aaa = aaa + 1
Loop
Rslc.Close
Set Rslc = Nothing
End If
conn.Close
Set conn = Nothing


call headsay3()%>

