今天是:
" rs.movenext loop rs.close set rs=nothing myconn.close set myconn=nothing %>
<% Set rs = Server.CreateObject("ADODB.Recordset") sqlstr="select top 7 title,path,date1 from newscool where classid=2 ORDER BY date1 desc" rs.open sqlstr,myconn do while not rs.eof title1=rs("title") if len(title1)>18 then title1=left(title1,16) & "..." end if if rs("date1") >(date-15) then img1="" else img1="" end if response.write " " & title1 & img1 & "
" 'response.write "
" & title1 & " " & " (" & FormatDateTime(rs("date1"),2) & " " & FormatDateTime(rs("date1"),4) & ")" & "
 
版权所有:苏州市人民政府法制办公室
电话:0512-68615447 传真:0512-68615447 E-Mail:fzb@dpt.suzhou.gov.cn
强烈建议使用 IE5.0 以上浏览器 800×600分辨率