<%rs.close
set rs=nothing
end sub
sub shotsinterview()
sql="select top 1 * from article_shots where del=0 order by id desc"
set rs=conn.execute(sql)
%>
<%if not rs.eof then
picAry=split(rs("pic"),",")%>
<%=rs("title")%>
<%=rs("content")%>
<%
end if %>
<%rs.close
set rs=nothing
end sub
sub adwards_List()
sql="select * from article_adwards where del=0 order by work_yeartype desc,id desc"
set rs=conn.execute(sql)
%>
<%do while not rs.eof %>
<%if rs("work_yeartype")<>yeartype then%>
<%=rs("work_yeartype")%>
<%end if %>
<%=rs("title")%>
<%contentLI=split(rs("content")," ")
for i=0 to ubound(contentLI)%>
<%=contentLI(i)%>
<%next%>
<%yeartype=rs("work_yeartype")
rs.movenext
loop%>
<%rs.close
set rs=nothing
end sub
sub watchreel_List()
sql="select top 12 * from article_watchreel where del=0 order by id desc"
set rs=conn.execute(sql)
%>
<%do while not rs.eof %>
<%
rs.movenext
loop%>
<%rs.close
set rs=nothing
end sub
sub watchreel_pagerbar()
if session("video_page")<>"" then
pager_int=session("video_page")
else
pager_int=1
end if
sql="select id from article_watchreel where del=0 order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=12
response.write "< "
%>
<%for i=0 to rs.recordcount/12%>
<%=(i+1)&" "%>
<%
next
response.write "> "
%>
<%rs.close
set rs=nothing
end sub
sub watchreel_page(page_action)
page=cint(request("page"))'
sql="select * from article_watchreel where del=0 order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=12
select case page_action
case "prvpage"
page=page-1
case "nextpage"
page=page+1
case "page"
page=page
end select
if page<=0 or page="" then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
session("video_page")=page
i=0
%>
<%do while not rs.eof%>
<%i=i+1
if i=12 then
exit do
end if
rs.movenext
loop
%>
<%rs.close
set rs=nothing
end sub
function getSitecontent(pagename)
sql="select top 1 * from site where del=0 and author='"&pagename&"' order by id "
set rsCheck=conn.execute(sql)
do while not rsCheck.eof
response.write rsCheck("content")
rsCheck.movenext
loop
set rsCheck=nothing
end function
%>
?>