<% s_cataid=RtnReplaceInt(trim(request("cataid")),55) s_num=RtnReplaceInt(trim(request("num")),1) s_width=RtnReplaceInt(trim(request("width")),1) s_height=RtnReplaceInt(trim(request("height")),1) r_height=RtnReplaceInt(trim(request("rheight")),1) s_row=RtnReplaceInt(trim(request("row")),1) s_col=RtnReplaceInt(trim(request("col")),1) s_title=RtnReplaceInt(trim(request("title")),1) s_tiyao=RtnReplaceInt(trim(request("tiyao")),1) s_tiyaoh=RtnReplaceInt(trim(request("tiyaoh")),1) s_titleh=RtnReplaceInt(trim(request("titleh")),1) s_tiyaon=RtnReplaceInt(trim(request("tiyaon")),1) s_titlen=RtnReplaceInt(trim(request("titlen")),1) if s_cataid <> 0 then set rsk=server.CreateObject("adodb.recordset") sqlk="Select * from newscata where id="&s_cataid rsk.Open sqlk,conn,1,3 if not rsk.eof then krootid = rsk("rootid") ktitle =rsk("title") end if rsk.close set rsk=nothing end if allcataid = "" if s_cataid <> 0 then set rsm=server.CreateObject("adodb.recordset") sqlm="Select * from newscata" rsm.Open sqlm,conn,1,3 do while not rsm.eof mrootid = rsm("rootid") gotoid = rsm("id") if InStr(krootid,",") < 1 then mmrootid = split(mrootid,",") if mmrootid(0) = krootid then allcataid = allcataid&" or cataid =" &gotoid end if else if InStr(mrootid,krootid) > 0 then allcataid = allcataid&" or cataid =" &gotoid end if end if rsm.movenext loop rsm.close set rsm = nothing end if allcataid = trim(Mid(allcataid,4)) tempcontent="" tempcontent=tempcontent&" " 'tempcontent=tempcontent&" " 'tempcontent=tempcontent&" " 'tempcontent=tempcontent&" " set rsa=server.createobject("adodb.recordset") if s_cataid = 0 then sqla = "select Top "&s_num&" * from news where firstImageName<>'' order by sortid desc" else sqla = "select Top "&s_num&" * from news where ("&allcataid&") and firstImageName<>'' order by sortid desc" end if rsa.Open sqla,conn,1,3 if rsa.EOF or rsa.BOF then tempcontent=tempcontent&" " end if 'do while not rsa.EOF for j=1 to s_row tempcontent=tempcontent&"" for i=1 to s_col if rsa.eof then tempcontent=tempcontent&"" else tempcontent=tempcontent&"" end if next tempcontent=tempcontent&"" if rsa.eof then exit for next 'loop rsa.close set rsa = nothing conn.close set conn=nothing tempcontent=tempcontent&" " tempcontent=tempcontent&"

暂时没有任何图片信息！
" tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" ' ???? if s_title=1 then tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" end if '???? if s_tiyao=1 then tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" end if 'tempcontent=tempcontent&"" tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&"	" tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" ' ???? if s_title=1 then tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" end if '???? if s_tiyao=1 then tempcontent=tempcontent&"" tempcontent=tempcontent&"" tempcontent=tempcontent&"" end if if not rsa.eof then rsa.movenext 'tempcontent=tempcontent&"" tempcontent=tempcontent&" " if rsa("link2")<>"" and not isnull(rsa("link2")) then lk=rsa("link2") tempcontent=tempcontent&"" else tempcontent=tempcontent&" " end if tempcontent=tempcontent&" " if rsa("link2")<>"" and not isnull(rsa("link2")) then lk=rsa("link2") tempcontent=tempcontent&" "&left(trim(rsa("title")),s_titlen)&"" else tempcontent=tempcontent&" "&left(trim(rsa("title")),s_titlen)&"" end if tempcontent=tempcontent&" " if rsa("link2")<>"" and not isnull(rsa("link2")) then lk=rsa("link2") tempcontent=tempcontent&" "&left(rsa("tiyao"),s_tiyaon)&"" else tempcontent=tempcontent&" "&left(rsa("tiyao"),s_tiyaon)&"" end if tempcontent=tempcontent&" " tempcontent=tempcontent&"

" %> document.write("<%=tempcontent%>");