<% Function RemoveHTML(str) Dim objRegExp, Match,strHTML if isnull(str) then str=" " end if strHTML=str strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"") Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "]*?>.*?" strHTML = objRegExp.Replace(strHTML,"") objRegExp.Pattern = "]*?>.*?" strHTML = objRegExp.Replace(strHTML,"") objRegExp.Pattern = "<.+?>" strHTML = objRegExp.Replace(strHTML,"") Set objRegExp = Nothing RemoveHTML=strHTML End Function %>
<%set rsb=server.CreateObject("adodb.recordset") rsb.open "select * from bsort where anclassid>2 order by anclassidorder",conn,1,1 i=1 do while not rsb.eof%>
" target="_self" style="font-size:14px; font-weight:bold;"><%=rsb("anclass")%> <%set rsa=server.CreateObject("adodb.recordset") rsa.open "select * from ssort where anclassid="&rsb("anclassid")&" order by nclassidorder",conn,1,1 do while not rsa.eof%> &nid=<%=rsa("nclassid")%>" style="color:#666;"><%=rsa("nclass")%> |  <%rsa.movenext loop rsa.close set rsa=nothing%> 
    <% set rs=server.createobject("adodb.recordset") rs.open "select top 5 * from products where anclassid="&rsb("anclassid")&" order by paixu desc,adddate desc",conn,1,1 ii=1 If rs.eof Then response.write "" Else do while not rs.eof%>
  • <%ii=ii+1 rs.movenext loop end if rs.close set rs=nothing %>
<%i=i+1 rsb.movenext loop rsb.close set rsb=nothing%>
专业团队
 
公司动态
<%set rs=server.CreateObject("adodb.recordset") rs.open "select top 1 * from products where smclassid=28 and bookpic<>'' order by paixu desc,bookid desc",conn,1,1%>
">" width="75" />
<%=left(RemoveHTML(rs("bookcontent")),50)%>...
<%rs.close set rs=nothing%> <%set rs=server.CreateObject("adodb.recordset") rs.open "select top 6 * from products where smclassid=28 order by paixu desc,bookid desc",conn,1,1 do while not rs.eof%>
> " title="<%=rs("bookname")%>"><%=left(rs("bookname"),53)%>
<%rs.movenext loop rs.close set rs=nothing%>
 
行业新闻
<%set rs=server.CreateObject("adodb.recordset") rs.open "select top 1 * from products where smclassid=7 and bookpic<>'' order by paixu desc,bookid desc",conn,1,1%>
">" width="75" />
<%=left(RemoveHTML(rs("bookcontent")),50)%>...
<%rs.close set rs=nothing%> <%set rs=server.CreateObject("adodb.recordset") rs.open "select top 6 * from products where smclassid=7 order by paixu desc,bookid desc",conn,1,1 do while not rs.eof%>
> " title="<%=rs("bookname")%>"><%=left(rs("bookname"),53)%>
<%rs.movenext loop rs.close set rs=nothing%>