您的位置: 网站的首页  
滚动公告: <% Call Marquee()%>
    E心E义乐清电视台视频专题
 
    爱心基金信息
爱心资金开户银行
中国农业银行
乐清支行城区分理处
户名:张回笑
帐号:19-2715 0046 0004352
中国工商银行
户名:刘丹
帐号:9558 8012 0312 0148522
    网 站 调 查
<% Call Ew_FlashVote() %>
<% set rs=server.createobject("adodb.recordset") sql="select top 1 * from announce where marquee<>1 ORDER BY id DESC" rs.open sql,conn,1,1 if Rs.eof or Rs.bof then G_title="还没有公告..." str="没有公告内容..." Else G_title=Rs(1) str=rs("Content") End if Rs.Close Set Rs=Nothing %>
论 坛 新 帖
新 闻 中 心
<% set rs=server.createobject("adodb.recordset") sql="select top 10 * from news ORDER BY id DESC" rs.open sql,conn,1,1 if Rs.eof or Rs.bof then response.write"
还没有添加新闻
" end if do while not rs.eof title = rs("title") %>
<% rs.movenext loop Rs.Close Set Rs=Nothing %>
<% if Getlen(title)>30 then response.write LeftStr(title,28) response.write "..." else response.write ""&title&"" end if %> <%=rs("time")%>
精 彩 时 刻
<% Call Ew_ShowTopPic(4) %>
<% dim sqlsort dim RsSort sqlsort="select * from Sort where B_id=0 and setting < 4 order by S_order" Set RsSort=conn.execute (sqlsort) if RsSort.eof and RsSort.bof then response.write "
还没有任何栏目
" else do while not RsSort.eof %>
<%=RsSort(1)%>
<% Call Ew_ShowInfo(5,Sort_Count,35,RsSort("id"),1) %>
<% RsSort.movenext loop end if RsSort.close set RsSort=nothing %>
<%call closeconn()%>