无锡新传媒网首页新闻中心围观无锡微博十八湾论坛传媒视频英语频道在线访谈

<% dim conn, rs, i, ClassUrl, NewsUrl i = year(now()) Set Conn = Server.CreateObject("Adodb.Connection") Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=false;Server=192.168.201.18;User ID=czfxweb;Password=hlhfdleYOYONN>*%%!(%!(~702>;Database=CzFxGIMS;" while i>=2012 set rs = conn.execute("select A.NewsTitle,A.NewsID,A.URLAddress as N_URLAddress,A.SaveNewsPath,A.FileName,A.FileExtName,A.addtime,B.URLAddress As Nc_URLAddress,B.ClassEName,B.SavePath,B.ClassKeywords from FX_NS_News A LEFT JOIN FX_NS_NewsClass B ON A.ClassId = B.ClassId where A.isdraft = 0 And A.isRecyle = 0 And A.isLock = 0 AND A.keywords ='"&i&"' And B.parentId = '1924D412EDI5B8K' order by B.id asc") if not (rs.eof and rs.bof) then %>

<%=i%>

    <% while not rs.eof if Rs("Nc_URLAddress")<>"" then ClassUrl = Rs("Nc_URLAddress") else ClassUrl = "http://www.wxrb.com"&Rs("SavePath")&"/"&Rs("ClassEName") end if if Rs("N_URLAddress")<>"" then NewsUrl = Rs("N_URLAddress") else NewsUrl = ClassUrl&Rs("SaveNewsPath")&"/"&Rs("FileName")&"."&Rs("FileExtName") end if response.Write("
  • ["&Rs("ClassKeywords")&"] "&Rs("NewsTitle")&"
  • ") rs.movenext wend %>
<% end if rs.close i = i - 1 wend set rs = nothing conn.close set conn = nothing %>

无锡法院站群