泰州市城西街道九里社区居委会

<% function titlepic(nr) nr=trim(nr) nr=replace(nr," ","") nr=replace(nr,"""","") titlepic=titleb(nr,n) end function function qxalttu(nr) nr=trim(nr) nr=replace(nr,"ALT","alt") nr=replace(nr,"ALT","alt") nr=replace(nr,"ALT","alt") nr=replace(nr,"ALT","alt") nr=replace(nr,"ALT","alt") if instr(nr," ")<>0 then aaa=split(nr," ") nr=aaa(0) end if qxalttu=nr end function set rs1= Server.CreateObject("ADODB.RecordSet") rs1.open"select top 6 id,title,pic,lm,lm2,lm3,filename from news where ( pic like '%.jpg%' or pic like '%.JPG%' ) and sh=1 and lm='90' order by ontop desc , id desc ",conn,1,1 if rs1.eof or rs1.bof then else for i=1 to rs1.recordcount pic1=qxalttu(rs1("pic")) title1=left(rs1("title"),15) id1=rs1("id") filename1=rs1("filename") rs1.movenext if rs1.eof then pic2=pic1 title2=title1 id2=id1 filename2=filename1 pic3=pic1 title3=title1 id3=id1 filename3=filename1 pic4=pic1 title4=title1 id4=id1 filename4=filename1 pic5=pic1 title5=title1 id5=id1 filename5=filename1 pic6=pic1 title6=title1 id6=id1 filename6=filename1 exit for end if pic2=qxalttu(rs1("pic")) title2=left(rs1("title"),15) id2=rs1("id") filename2=rs1("filename") rs1.movenext if rs1.eof then pic3=pic2 title3=title2 id3=id2 filename3=filename2 pic4=pic2 title4=title2 id4=id2 filename4=filename2 pic5=pic2 title5=title2 id5=id2 filename5=filename2 pic6=pic2 title6=title2 id6=id2 filename6=filename2 exit for end if pic3=qxalttu(rs1("pic")) if pic3="" then pic3=pic2 title3=title2 id3=id2 filename3=filename2 if rs1.eof then exit for end if title3=left(rs1("title"),15) id3=rs1("id") filename3=rs1("filename") rs1.movenext if rs1.eof then pic4=pic3 title4=title3 id4=id3 filename4=filename3 pic5=pic3 title5=title3 id5=id3 filename5=filename3 pic6=pic3 title6=title3 id6=id3 filename6=filename3 exit for end if pic4=qxalttu(rs1("pic")) if rs1.eof then exit for title4=left(rs1("title"),15) id4=rs1("id") filename4=rs1("filename") rs1.movenext if rs1.eof then pic5=pic4 title5=title4 id5=id4 filename5=filename4 pic6=pic4 title6=title4 id6=id4 filename6=filename4 exit for end if pic5=qxalttu(rs1("pic")) title5=left(rs1("title"),15) id5=rs1("id") filename5=rs1("filename") rs1.movenext if rs1.eof then pic6=pic5 title6=title5 id6=id5 filename6=filename5 exit for end if pic6=qxalttu(rs1("pic")) title6=left(rs1("title"),15) id6=rs1("id") filename6=rs1("filename") rs1.movenext if rs1.eof then exit for next rs1.close set rs1=nothing end if if trim(filename1)<>"0" then url1=path&filename1 else url1=path&"News_View.asp?newsid="&id1 end if if trim(filename2)<>"0" then url2=path&filename2 else url2=path&"News_View.asp?newsid="&id2 end if if trim(filename3)<>"0" then url3=path&filename3 else url3=path&"News_View.asp?newsid="&id3 end if if trim(filename4)<>"0" then url4=path&filename4 else url4=path&"News_View.asp?newsid="&id4 end if if trim(filename5)<>"0" then url5=path&filename5 else url5=path&"News_View.asp?newsid="&id5 end if if trim(filename6)<>"0" then url6=path&filename6 else url6=path&"News_View.asp?newsid="&id6 end if %>