<% strCurrMenu="4932" ThisPage=request.ServerVariables("URL") %>
大赛简介
more...  
<% strSQL="Select * From menu Where m_id=4942" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 if rs.recordcount<=0 then ShowMsg "您访问的信息不存在!" end if%> <% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") nohtml=str set re=nothing end function %> <%=left(rs("mn_content"),1800)%>....
<%call GetIndMenu(22,cid1,cname1,mnid1,qf1,"web_news_class")%> <%if cname1<>"" then%> <%end if%> <%call GetIndMenu(23,cid2,cname2,mnid2,qf2,"web_news_class")%> <%if cname2<>"" then%> <%end if%>
<%=cname1%>
<%call GetIndMenuMore(cid1,cname1,mnid1,qf1)%>  
<%strsqle="select top 6 * from v_web_news where c_name='"&cname1&"' and nshenhe=1 order by id desc" set rse=Server.CreateObject("ADODB.RecordSet") rse.open strsqle,conn,1,1 for e=1 to rse.recordcount if rse.eof then exit For %> <%rse.movenext next rse.close%>
&mnid=<%=rse("mn_id")%>&classname=<%=trim(rse("c_name"))%>"><%=left(trim(rse("nTitle")),25)%>....
<%=cname2%>
<%call GetIndMenuMore(cid2,cname2,mnid2,qf2)%>  
<%strsqle="select top 6 * from v_web_news where c_name='"&cname2&"' and nshenhe=1 order by id desc" set rse=Server.CreateObject("ADODB.RecordSet") rse.open strsqle,conn,1,1 for e=1 to rse.recordcount if rse.eof then exit For %> <%rse.movenext next rse.close%>
&mnid=<%=rse("mn_id")%>&classname=<%=trim(rse("c_name"))%>"><%=left(trim(rse("nTitle")),25)%>....
<%call GetIndMenu(24,cid3,cname3,mnid3,qf3,"web_news_class")%> <%if cname3<>"" then%> <%end if%> <%call GetIndMenu(25,cid4,cname4,mnid4,qf4,"web_news_class")%> <%if cname4<>"" then%> <%end if%>
<%=cname3%>
<%call GetIndMenuMore(cid3,cname3,mnid3,qf3)%>  
<%strsqle="select top 6 * from v_web_news where c_name='"&cname3&"' and nshenhe=1 order by id desc" set rse=Server.CreateObject("ADODB.RecordSet") rse.open strsqle,conn,1,1 for e=1 to rse.recordcount if rse.eof then exit For %> <%rse.movenext next rse.close%>
&mnid=<%=rse("mn_id")%>&classname=<%=trim(rse("c_name"))%>"><%=left(trim(rse("nTitle")),25)%>....
<%=cname4%>
<%call GetIndMenuMore(cid4,cname4,mnid4,qf4)%>  
<%strsqle="select top 6 * from v_web_news where c_name='"&cname4&"' and nshenhe=1 order by id desc" set rse=Server.CreateObject("ADODB.RecordSet") rse.open strsqle,conn,1,1 for e=1 to rse.recordcount if rse.eof then exit For %> <%rse.movenext next rse.close%>
&mnid=<%=rse("mn_id")%>&classname=<%=trim(rse("c_name"))%>"><%=left(trim(rse("nTitle")),25)%>....
<%call GetIndMenu(26,cid5,cname5,mnid5,qf5,"web_news_class")%> <%if cname5<>"" then%>
<%=cname5%>
<%call GetIndMenuMore(cid5,cname5,mnid5,qf5)%>  
<%end if%>