<% id=Trim(Request.QueryString ("id")) if id<>"" then sql="select * from [services] where id="&id Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 s_name=rs("s_name") s_title=rs("s_title") s_keywords=rs("s_keywords") s_description=rs("s_description") s_ico=rs("s_ico") s_html=rs("s_html") s_comment=rs("s_comment") rs.close() set rs=nothing else sql="select * from [services] where s_show=1 order by s_wz asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 s_title="服务项目" end if %> <%=s_title%>,<%=website_name%>

栏目导航

<% if s_name<>"" then %>

<%=s_name%>

<%=s_comment%>
<%end if%> <% if id="" then %>

服务项目

    <% while not rs.EOF %> <% dim linkto2 linkto2="services.asp?id="&rs("id") if rs("s_html")<>"" then LinkTo2=rs("s_html") end if %>
  • <% if rs("s_ico")<>"" then ico=rs("s_ico") else ico="/images/system.png" end if %>

    "><%=rs("s_name")%>

    <%=rs("s_description")%>
  • <% rs.movenext() wend %> <%rs.close() set rs=nothing %>
<%end if%>