<%
sql="select top 5 ID,topic,content from forum where forumid=5 and deltopic<>1 order by ID desc"
rs.open sql,conn,1,3
%>
<%
for i=0 to 10
if not rs.eof Then
imgl=InStr(rs("content"),"[img]")
imgr=InstrRev(rs("content"),"[/img]")
'response.write imgl
'response.write imgr
imgr2=InstrRev(rs("content"),"[/img]",10)
If imgr2>0 Then
imgz=0
else
If imgl<>0 then
imgz=Int(imgr)-Int(imgl)-5
End If
End if
'response.write imgz
imgxianshi=Mid(rs("content"),Int(imgl)+5,Int(imgz))
'response.write imgxianshi
If imgxianshi<>"" then
%>
<%
sql="select top 5 ID,topic,content from forum where forumid=5 and deltopic<>1 order by ID desc"
rs.open sql,conn,1,3
%>
<%
for i=0 to 10
if not rs.eof Then
imgl=InStr(rs("content"),"[img]")
imgr=InstrRev(rs("content"),"[/img]")
'response.write imgl
'response.write imgr
imgr2=InstrRev(rs("content"),"[/img]",10)
If imgr2>0 Then
imgz=0
else
If imgl<>0 then
imgz=Int(imgr)-Int(imgl)-5
End If
End if
'response.write imgz
imgxianshi=Mid(rs("content"),Int(imgl)+5,Int(imgz))
'response.write imgxianshi
If imgxianshi<>"" then
%>
|
<%End if
if not rs.eof then
rs.movenext
end if
end if
next
rs.close
%>
|
<%End if
if not rs.eof then
rs.movenext
end if
end if
next
rs.close
%>