|
|
|
 |
<%
strsql="select top 5 id, brieftitle,title,clicktimes,inputtime from cn_infomation where state=1 and siteid=5 and DateDiff(day,inputtime,getdate())<7 order by clicktimes desc"
i=0
set rs=Server.CreateObject("ADODB.Recordset")
rs.open strsql,objconn,1,1
fflag=false
if not rs.eof then
do while not rs.eof
'i=i+1
'if (i mod 2)=1 then
' intid=clngex(rs("id"))
' breiftitle=trim(rs("brieftitle"))
' thetitle=trim(rs("title"))
' fflag=true
'else
in_tid=clngex(rs("id"))
breif_title=trim(rs("brieftitle"))
the_title=trim(rs("title"))
'fflag=false
str_string=str_string&""&_
"| ·"&breif_title&" | "&_
" "
in_tid=""
breif_title=""
the_title=""
'end if
rs.movenext
loop
end if
rs.close
set rs=nothing
'if fflag=true then
' str_string=str_string&""&_
' "| ·"&breiftitle&" | "&_
' " "
'end if
response.Write(str_string)
%>
|
 |
 |
 |
 |
|
首 页 
【 
