<% function stripHTML(strHTML) dim strLen dim bOpen dim noHTML,i strLen = len(strHTML) bOpen = false noHTML = "" for i = 1 to strLen if mid(strHTML,i,1) = "<" then bOpen = true elseif mid(strHTML,i,1) = ">" then bOpen = false end if if not bOpen then noHTML = noHTML & mid(strHTML,i,1) end if next noHTML = replace(noHTML,">","") noHTML = replace(noHTML,"<","") for i = 1 to strLen if mid(strHTML,i,1) = "<" then bOpen = true elseif mid(strHTML,i,1) = ">" then bOpen = false end if if not bOpen then noHTML = noHTML & mid(strHTML,i,1) end if next stripHTML = noHTML end function %> 珠海经典樱花科技有限公司
   
 
公司名称:中山市智能美厨卫科技有限公司
地址:中山市东凤镇同安大道东
传真:0760-23302672
传真:0760-23302072
网址:www.zhinengmeidq.com
   
 
  <% strSql="select ID,A02 as A1,A01 from sort order by A01 asc" set rs=server.CreateObject("ADODB.Recordset") rs.open strSql,conn,1,1 %> <%if not rs.eof then i=1 do while not rs.eof %> <%if i=rs.recordcount then%> <%else%> <% end if rs.movenext i=i+1 loop rs.close end if %>
 
 
  Copyright(C) 2016 珠海经典樱花电器有限公司 版权所有.百度登录