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

<%
call head()
Dim i,consts,logo,title,Copyright
Set rs = Server.CreateObject("Adodb.Recordset")
rs.open "SELECT links,linknum FROM admin where id=1", conn, 1, 1
If rs.EOF Then
rs.Close
Set rs = Nothing
if saytk<>1 then
%><title>出错</title></head><body><body bgcolor="<%=yanse%>">资料没有配置！<%
else
  Call Error("<card title=""出错""><p>资料没有配置！")
  End If
end if
linknum = rs("linknum")
links = rs("links")
linknum = CLng(linknum)
links = CLng(links)
rs.Close
Set rs = Nothing

Call saycard(""&waptitle&"",""&wapconst&"")

If Len(waplogo) > 7 Then
response.write "<img src='"&waplogo&"' alt='"&waptitle&"'/><br/>" 

End If

if saytksyxs=1 then
%><!-- #include file="bbs/sy1.asp" --><%
end if

'==========================
'自定义开始
'==========================


Set rs = Server.CreateObject("adodb.recordset")
rs.open "select lx,classid,class,lid,wmltxt,img,url,num,relid,img,ids,br from class where parent=0 and active=0 order by pid asc", conn, 1, 1
If rs.EOF Then
%><br/><img src='/img/logo.gif' alt='.' /><br/>
<br/>温馨提示：<br/>
<br/>网站正在升级中..<br/>
<%lmstr="<br/>网站正在排版中..<br/>"
response.Write lmstr%>
<br/>请稍后访问或联系站长开放..<br/>
<br/><a href='/admin'>站长请登陆后台管理</a><br/>
<br/>本站由龙门网<a href='http://wap.SayTK.COM'>wap.SayTK.COM</a>提供建站技术支持!<br/>
<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/>导航(GO)<select><option onpick='/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>我的空间</option><option onpick='/bbs/game/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>游戏中心</option><option onpick='/bbs/city.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>同城约会</option><option onpick='/bbs/zone.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>帮派交流</option><option onpick='/bbs/chat/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>聊天大厅</option><option onpick='/shop/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>商场广场</option><option onpick='/bbs/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>社区首页</option><option onpick='/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>网站首页</option></select><br/>
(c)<%=Request.ServerVariables("SERVER_NAME")%><br/>
报时:
<%=Hour(Time)%>:<%=Minute(Time)%>
<br/>执行用了<%=FormatNumber((timer()-t1)*1000,3)%>毫秒
<%
Else
rs.Move (0)
Dim j
j = 1
Do While Not rs.EOF
If rs("lx") = "0" Then
%><a href='class.asp?class=<%=rs("classid")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'><%=ubb(rs("class"))%></a><%
ElseIf rs("lx") = "1" Then
%><a href='list.asp?class=<%=rs("lid")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'><%=ubb(rs("class"))%></a><%
ElseIf rs("lx") = "2" Then%>
<%=ubbcode(rs("wmltxt"))%><% 
ElseIf rs("lx") = "3" Then
%><img src='<%=ubb2(rs("img"))%>' alt='<%=ubb(rs("class"))%>'/><%
ElseIf rs("lx") = "4" Then
%><a href='<%=ubb2(rs("url"))%>'><%=ubb(rs("class"))%></a><%
ElseIf rs("lx") = "600" Then
%><a href='<%=ubb2(rs("url"))%>'><%=ubb(rs("class"))%></a><%
ElseIf rs("lx") = "5" Then
%><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"),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 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
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 headsay()
%>
<!-- #include file="1endwml.asp" -->