<% set SEORs=Conn.execute("select * from SEO where ID=1") %>
<%=SEORs("Title")%>
" name="description">
" name="keywords">
">
"><% SEORs.close
set SEORs=nothing %>
<% If FuDongQQ=1 Then %>
<% End If %>
<%
set LunBoRs=server.createobject("adodb.recordset")
LunBoSql="select * from Pic where Fb=True and FirstImageName<>'' order by px desc, Id desc"
LunBoRs.open LunBoSql,conn,1,1
do while not LunBoRs.eof
%>
<%
set rss=server.CreateObject("adodb.recordset")
sql2="select * from [BigClass] order by px desc, BigClassID asc"
rss.open sql2,conn,1,2
if rss.bof and rss.eof then
response.Write("暂无信息！")
else
for R=1 to rss.recordcount
if rss.eof then exit for
%>
" class="t"><%= rss("BigClassName") %>
<%
set RsSmallClass=server.createobject("adodb.recordset")
SmallClassSql="select * from [SmallClass] where BigClassID="&rss("BigClassID")&" order by px desc, SmallClassID asc"
RsSmallClass.open SmallClassSql,conn,1,1
if not RsSmallClass.eof then
%>
<%
rss.movenext
next
end if
rss.close
set rss=nothing
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 12 * from [Product] where Passed=true order by TuiJian asc, zd asc, tj asc, px desc, ID desc"
rs.open sql,conn,1,2
if rs.bof and rs.eof then
response.Write("没有相关信息!")
else
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
01
<%= YouShiTitle1 %>
<%= YouShiNr1 %>
02
<%= YouShiTitle2 %>
<%= YouShiNr2 %>
03
<%= YouShiTitle3 %>
<%= YouShiNr3 %>
04
<%= YouShiTitle4 %>
<%= YouShiNr4 %>
<%
set Videos_Rs=server.CreateObject("adodb.recordset")
Videos_Sql="select top 1 * from IndexVideo"
Videos_Rs.open Videos_Sql,conn,1,2
if Videos_Rs.bof and Videos_Rs.eof then
response.Write("
没有相关信息!!!
")
else
If Videos_Rs("FangShi")=2 Then
%>
<% ElseIf Videos_Rs("FangShi")=1 Then %>
<%= Videos_Rs("Content") %>
<% End If %>
<%
end if
Videos_Rs.close
set Videos_Rs=nothing
%>
<%
set NewsTopImg_Rs=server.CreateObject("adodb.recordset")
NewsTopImg_Sql="select top 1 * from News where DefaultPicUrl<>'images/nopic.gif' and SummaryC<>'' and Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc"
NewsTopImg_Rs.open NewsTopImg_Sql,conn,1,2
if NewsTopImg_Rs.bof and NewsTopImg_Rs.eof then
response.Write("没有相关信息!!!")
else
%>
<%
set News_Rs=server.CreateObject("adodb.recordset")
News_Sql="select top 5 * from News where ID<>"&NewsTopImgID&" and Fb=True order by zd asc, tj asc, px desc, ID desc"
News_Rs.open News_Sql,conn,1,2
if News_Rs.bof and News_Rs.eof then
response.Write("没有相关信息!")
else
for z=1 to News_Rs.recordcount
%>
<%
set News_Rs=server.CreateObject("adodb.recordset")
News_Sql="select top 5 * from News_Two where Fb=True order by zd asc, tj asc, px desc, ID desc"
News_Rs.open News_Sql,conn,1,2
if News_Rs.bof and News_Rs.eof then
response.Write("没有相关信息!")
else
for x=1 to News_Rs.recordcount
%>
<%
set rss=server.CreateObject("adodb.recordset")
sql2="select * from Customers order by px desc, ID desc"
rss.open sql2,conn,1,2
if rss.bof and rss.eof then
response.Write("暂无信息!")
else
for R=1 to rss.recordcount
if rss.eof then exit for
%>
" alt="<%= LunBoRs("Title") %>">
<%
LunBoRs.movenext
Loop
LunBoRs.close
set LunBoRs=nothing
%>
