|
<% call ShowSmallClass_Tree() %>
|
<%
set rs=server.createobject("adodb.recordset")
sql="select * from newpic"
rs.open sql,conn,1,3
pic1=rs("pic1")
pic2=rs("pic2")
pic3=rs("pic3")
pic4=rs("pic4")
pic5=rs("pic5")
movie1=rs("movie1")
movie2=rs("movie2")
movie3=rs("movie3")
movie4=rs("movie4")
movie5=rs("movie5")
movie11=rs("movie11")
movie22=rs("movie22")
movie33=rs("movie33")
movie44=rs("movie44")
movie55=rs("movie55")
rs.close
set rs=nothing
%>
|
|
<%sqlLink="select top 10 * from FriendLinks where IsOK=True and LinkType=2 order by IsGood,id desc"
set rsLink=server.createobject("adodb.recordset")
rsLink.open sqlLink,conn,1,1
do while not rsLink.eof%>
<%=rslink("sitename")%>
<%rslink.movenext
loop
rslink.close
rslink=nothing%> |
|
|
|
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='企业简介'"
rs.open sql,conn,1,3%>
<%=cutstr(rs("content"),350)%>
<%rs.close
rs=nothing%> |
更多>>> |
|
|
|
|
|
<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & Product_count & " * from Product where Passed=True and Elite=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<%
If rs_Product.eof and rs_Product.bof then
response.write "还没任何产品 | "
else
row_count=1
Do While Not rs_Product.EOF%>
|
<% if row_count mod 6 =0 then%>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>
|
|
|
|
|
|
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='企业公告' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
|
|
|
|
|
|
<%
Set rscopy = Server.CreateObject("ADODB.Recordset")
sql="select Content from culture where Title='Contact'"
rscopy.open sql,conn,1,3
%>
<%=rscopy("Content")%>
<%rscopy.close
set rscopy=nothing
%>
|
|
|
|
|
|