<%@ codepage = "936" %> <% dim title1,content1 set Rs=Server.CreateObject("adodb.recordset") set RsInfo=Server.CreateObject("adodb.recordset") sql="select * from t_news_class1 where banben=0 order by orderNum asc" Rs.open sql,conn,1,1 %> 浙江大学遗传与基因组医学中心
<% if not rs.eof then cid=rs("id") type_name=rs("typename") %> <% sql="select id,title,content,filepath1 from t_news where class="&cid&" and flag=1 and banben=0 order by jointime desc" RsInfo.open sql,conn,1,1 %> <% if not rsinfo.eof then id=RsInfo("id") title=RsInfo("title") filepath1=replace(rsinfo("filepath1"),"../../","") content=rsinfo("content") content1=gettitle(content,140) %> <% end if%> <% RsInfo.close%>
      <%=type_name%>  
 
<%=content1%>
    详情 >> 
<% rs.movenext end if %> <% if not rs.eof then cid=rs("id") type_name=rs("typename") %> <% sql="select top 10 id,title,content,filepath1 from t_news where class="&cid&" and flag=1 and banben=0 order by jointime desc" RsInfo.open sql,conn,1,1 %> <% for a=0 to 9 if not rsinfo.eof then id=RsInfo("id") title=RsInfo("title") title1=gettitle(title,200) filepath1=replace(rsinfo("filepath1"),"../../","") content=rsinfo("content") content1=gettitle(content,150) %> <% rsinfo.movenext else exit for end if next %>
 
    <%=type_name%>
 
 。 <%=title1%>
<% RsInfo.close%>
                              更多>>
        遗传与 基因组医学  
   
     
  * 基因与疾病的关系
  * 基因检测与基因诊断
  *

什么是基因检测?
  * 基因检测与营养基因组学
  * 基因组医学的重要意义是什么？
  * 什么是疾病风险评估?
  * 什么是单基因疾病？什么是多基因疾病？
  *

为什么要做疾病风险基因检测？
  * 基因遗传与心脑血管疾病的关系？
  * 什么是基因组？
 
<% rs.movenext end if %>  
<%set rsinfo=nothing rs.close set rs=nothing conn.close set conn=nothing %>