<%
dim rs,strSql,page,rstitle
strSql="select top 7 * from news Where strsource=0 order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open strSql,conn,1,1
if not rs.eof then
i=1
do while not rs.eof
rstitle=rs("strtitle")
if len(rstitle)>16 then
rstitle=""&left(rstitle,16)&"..."&""
else
rstitle=""&rstitle&""
end if
%>
<%
if i=1 then
%>
 |
<%=left(rs("minfo"),45)%>... |
<%else%>
| 4 |
<%=rstitle%> |
<%=formatdatetime(rs("datatime"),2)%> |
<%end if%>
<%
rs.movenext
i=i+1
loop
else
response.write "No News！"
end if
rs.close:set rs=nothing
%> |
<%
Set rs=Server.CreateObject("adodb.recordset")
strSQL="Select top 6 * From products Where 1=1 and tj=true order by strclassid asc,id desc"
rs.open strSql,conn,1,1
rs.pagesize=6
if not rs.eof then
else
ErrMsg="updating！"
end if
%>
<%
dim total
total=0
response.write errmsg
Dim SelectId
do while not rs.eof and total<>rs.pagesize
%>
<%if not rs.eof and total<>rs.pagesize then%>
|
<%
total=total+1
rs.movenext
end if
%> |
|
<%if not rs.eof and total<>rs.pagesize then%>
|
<%
total=total+1
rs.movenext
end if
%> |
|
<%if not rs.eof and total<>rs.pagesize then%>
|
<%
total=total+1
rs.movenext
end if
%> |
|
<%
loop
rs.close:set rs=nothing
%>
|
|
|
|
|
