|
 
|
| |
 |
 |
<%
crlf= chr(13) & chr(10)
OpenConn()
'set rs=conn.execute("select top 1 id,title,imagefile from article where types='文明动态' and len(imagefile)>0 order by adddate desc")
i=4
'if not (rs.eof and rs.bof) then
' response.write " " & crlf & _
' "![](images/" & rs(2) & ") | " & crlf & _
' "" & crlf & _
' "" & crlf & _
' " | " & crlf & _
' "" & rs(1) & " | " & crlf & _
' " | " & crlf & _
' " "
' i=3
'end if
set rs=conn.execute("select top " & i & " id,title,linker,imagefile from article where types='文明动态' order by adddate desc")
do while not rs.eof
if len(rs(3))>0 then
img="[图]"
else
img=""
end if
if len(rs(2))>0 then
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
else
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
end if
rs.movenext
loop
rs.close
%>
|
|
| |
 |
<%
set rs=conn.execute("select top 4 id,title,linker,imagefile from article where types='建设简报' order by adddate desc")
do while not rs.eof
if len(rs(3))>0 then
img="[图]"
else
img=""
end if
if len(rs(2))>0 then
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
else
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
end if
rs.movenext
loop
rs.close
%>
|
| |
|
|
<%
set rs=conn.execute("select top 4 id,title,linker,imagefile from article where types='先进典型' order by adddate desc")
do while not rs.eof
if len(rs(3))>0 then
img="[图]"
else
img=""
end if
if len(rs(2))>0 then
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
else
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1)& img & " | " & crlf & _
" | " & crlf & _
" "
end if
rs.movenext
loop
rs.close
%>
|
|
| |
 |
<%
'set rs=conn.execute("select top 1 id,title,imagefile from article where types='先进典型' and len(imagefile)>0 order by adddate desc")
'if not (rs.eof and rs.bof) then
' response.write "![](photo/" & rs(2) & ") | " & crlf & _
' "| " & rs(1) & " | " & crlf
'end if
'rs.close
%>
 |
 |
 |
<%
set rs=conn.execute("select top 5 id,title,linker,imagefile from article where types='文明规范' order by adddate desc")
do while not rs.eof
if len(rs(3))>0 then
img="[图]"
else
img=""
end if
if len(rs(2))>0 then
response.write "" & crlf & _
"" & crlf & _
" " & crlf & _
" | " & crlf & _
"" & rs(1) & img & " | " & crlf & _
" " & crlf
else
response.write "" & crlf & _
"| " & crlf & _
"" & crlf & _
" | " & crlf & _
"" & rs(1) & img & " | " & crlf & _
" " & crlf
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|
 |
|
|
|
