% '显示内容标题列表 Sub ShowList(menuID,num,moreurl) dim sql,rs,i,title,url,img 'on error resume next Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select * from tbl_content where mnCode='"&menuID&"' order by tbl_content.relativedate desc" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错:"& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "
· | " Response.Write "" & title & "("&formatDateYYYYMMDD(rs("relativedate"))&") | " Response.Write "
更多... |
· | " Response.Write "" & title & " | " rs.MoveNext i=i+1 loop '内循环结束 i=i+1 '补齐td if i< rowCount then for j=0 to rowCount-i Response.Write "" next end if Response.Write " |
" Response.Write " |
" Response.Write " |
更多... |