<% s_cataid=RtnReplaceInt(trim(request("cataid")),0) s_words=RtnReplaceInt(trim(request("words")),15) s_num=RtnReplaceInt(trim(request("num")),8) s_pic=RtnReplaceInt(trim(request("pic")),7) s_pica=RtnReplaceInt(trim(request("pica")),8) s_count=RtnReplaceString(trim(request("l_c"))) s_date=RtnReplaceString(trim(request("l_d"))) s_more=RtnReplaceString(trim(request("l_m"))) s_special=RtnReplaceString(trim(request("l_s"))) 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_special ="ok" then if s_cataid = 0 then sqla = "select Top "&s_num&" * from news where special order by sortid desc" else sqla = "select Top "&s_num&" * from news where ("&allcataid&") and special order by sortid desc" end if else if s_cataid = 0 then sqla = "select Top "&s_num&" * from news order by sortid desc" else sqla = "select Top "&s_num&" * from news where ("&allcataid&") order by sortid desc" end if end if rsa.Open sqla,conn,1,3 if rsa.EOF or rsa.BOF then tempcontent=tempcontent&" " end if do while not rsa.EOF if len(Trim(rsa("title")))>cint(s_words) then atempTitle = Left(RtnReplaceString(Trim(rsa("title"))),s_words)&"..." else atempTitle =RtnReplaceString(Trim(rsa("title"))) end if if s_count = "ok" then if s_date= "ok" then o_char ="["&FormatDateTime(rsa("addtime"),vbshortdate)&" 浏览："&rsa("hits")&"]" else o_char ="[浏览："&rsa("hits")&"]" end if else if s_date= "ok" then o_char ="["&FormatDateTime(rsa("addtime"),vbshortdate)&"]" else o_char ="" end if end if tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " rsa.movenext loop rsa.close set rsa = nothing conn.close set conn=nothing if s_more <> "ok" then tempcontent=tempcontent&" " tempcontent=tempcontent&" " tempcontent=tempcontent&" " end if tempcontent=tempcontent&" " tempcontent=tempcontent&"

暂时没有任何信息！

·" if rsa("link2")="" or isnull(rsa("link2")) then tempcontent=tempcontent&" "&atempTitle&""&o_char else tempcontent=tempcontent&" "&atempTitle&""&o_char end if tempcontent=tempcontent&"

" tempcontent=tempcontent&"

more" tempcontent=tempcontent&"

" tempcontent=tempcontent&"

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