﻿<!--#include file="Conn.asp"-->
<!--#include file="../Inc/Ts_ubb.asp"-->
<!--#include file="../Cache/Asp/Column_column_id.asp"-->
<%if lfwap_sbs(3)="2" then%>
<!--#include file="../Cache/Asp/Column_column_id_2.asp"-->
<%else%>
<!--#include file="../Cache/Asp/Column_column_id_1.asp"-->
<%end if%>
<%
Column_simulation
Column_vip
Column_pwd
if lfwap_sbs(3)="2" then
Call wapHead2_0(Column_name)
Else
Call Web_Head(Column_name)
end if
response.write "<p>"

If Column_add_time="" or DateDiff("n",Column_add_time,now())>Column_update_time then
Ts_content=""
Dim rs,i
set rs=server.createobject("adodb.recordset")
rs.open "select id,content,website,picture,wrap,forum,calltype,amount,wraps,symbol,type,password from wap_column where grade="&Column_id&" and hide=0 order by sort asc",conn,1,1
if rs.eof then 
Ts_content=Ts_content&"С<br/>"
else
rs.Move(0)
dim j
j=1
do while not rs.eof
if rs("type")="0" then
Ts_content=Ts_content&"<a href=""/Column/Column_"&rs("id")&".asp?sid=[sid]"">"&nameubb(rs("content"))&"</a>"
elseif rs("type")="1" then
Ts_content=Ts_content&"<a href="""&Ts_wml(rs("website"))&""">"&nameubb(rs("content"))&"</a>"
elseif rs("type")="2" then
Ts_content=Ts_content&Ts_ubb(rs("content"))
elseif rs("type")="3" then
wml_content=rs("content")
lfwap_wml=split(wml_content,"[lfwap_wml_wap]")
if ubound(lfwap_wml)=0 then
Ts_content=Ts_content&Ts_wml(wml_content)
else
if lfwap_sbs(3)="2" then
Ts_content=Ts_content&Ts_wml(lfwap_wml(1))
else
Ts_content=Ts_content&Ts_wml(lfwap_wml(0))
end if
end if
elseif rs("type")="4" then
Ts_content=Ts_content&"<img src="""&nameubb(rs("picture"))&""" alt="""&nameubb(rs("content"))&"""/>"
elseif rs("type")="8" then
Call column_type(rs("calltype"),rs("amount"),rs("forum"),rs("password"),rs("wraps"),nameubb(rs("symbol")))
end if
if rs("wrap") then
Ts_content=Ts_content&"<br/>"
end if
rs.MoveNext
j=j+1
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
Column_content_s=Ts_content
Column_content="<%"&chr(13)&chr(10)&"Column_content_s="""&NuoHa.Add_Asp_Usb(Ts_content)&""""&chr(13)&chr(10)&"%"&">"
if lfwap_sbs(3)="2" then
Call NuoHa.Add_Asp("/Cache/Asp/Column_column_id_2.asp",Column_content)
else
Call NuoHa.Add_Asp("/Cache/Asp/Column_column_id_1.asp",Column_content)
end if
end if
response.write NuoHa.Asp_Output(Asp_Output(Column_content_s))
Column_pwd end if
Call NuoHa_Conn
If NH_wap_v="1" Then
Call Wap_End()
Else
Call Web_End()
End If
%>