<%sub survey_mb(mark,path,bq,column,record_count,word_number,surveyMBsort,hotsign,topsign,title_or_content)
   'mark 标识 可以为空
   'path 路径
   'bq 标签
   'column 分栏数量
   'record_count 显示的记录数量
   'word_number 每条记录显示的字数
   'surveyMBsort模板类型 1为收费,0为免费
   'hotsign 是否是热点推荐 是为1,否为0
   'topsign 是否是置顶推荐 是为1,否为0
   'title_or_content 显示标题还是内容 t为标题 c为内容 p为图片
   Set n_news_rs= Server.CreateObject("ADODB.Recordset") 
   sql="select top "&record_count&" D_T_S_ID,D_bq,Survey_title,Survey_title_exp,topsign,hotsign,D_sort from mb_DC_Title_survey where D_T_S_ID>0 "
   if bq<>"" then
		sql=sql & " and (D_bq like '%" & bq & "%')"
   end if
   if surveyMBsort=1 then sql=sql&" and D_sort=1" end if
   if hotsign=1 then sql=sql&" and hotsign=True" end if
   if topsign=1 then sql=sql&" and topsign=True" end if
   'sql=sql&" and info_purpose.makesign='1'"
   sql=sql&" order by D_T_S_ID desc"
   'response.write sql
   'response.end
   n_news_rs.open sql,DbConn,1,1
if n_news_rs.recordcount=0 then
   response.write ""
else%>
<table border="0" cellPadding="0" cellSpacing="0" width="100%">        
   <tr>   
<%
Numb=n_news_rs.recordcount
for i=1 to Numb

   'pathfile=news_path&n_news_rs("newsfilename")&".html"
   if title_or_content="t" then
      t=mid(n_news_rs("Survey_title"),1,word_number)
   else
   	  if title_or_content="c" then
      		t=mid(n_news_rs("Survey_title_exp"),1,word_number)&"..."
	  end if
   end if
   'response.write pathfile
   'response.end
   %>
    <td width="<%=100/column%>%" height="20" align="left"><%=mark%><a  href="<%=path%>survey-mb.asp?id=<%=n_news_rs("D_T_S_ID")%>" target="_blank" title="<%=n_news_rs("Survey_title")%>"><%=t%></a></td>
     <%if (i mod column=0) and i<>Numb then %></tr><tr><%end if%>
	 <%if i=Numb then %></tr><%end if%>
     <%
       n_news_rs.movenext
next
       n_news_rs.close
       set n_news_rs=nothing
     %>               
</table>
<%
end if
end sub
%>