<%@ Language=VBScript%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top 10 * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
%>
<%=redcaff%>
<%
set rs7=server.CreateObject("ADODB.RecordSet")
sql="select * from flash_kaiguan "
rs7.Open sql,conn,1,1
if rs7("kaiqi")=1 then
%>
<%else%>
<%end if
rs7.close
%>
<%
set rslink1=server.CreateObject("ADODB.RecordSet")
rslink1.Source="select top 5 * from link_type order by ID desc"
rslink1.Open rslink1.Source,conn,1,1
if rslink1.eof and rslink1.bof then
Response.Write"(还没有纪录)"
else
do while not rslink1.eof
linktype1=rslink1("link_type")
%>
<%
rslink1.movenext
loop
end if
rslink1.close
Set rslink1=Nothing
%>
