<% id=Request("id") If id ="" then Response.Write("") end if if instr(id,"'") or instr(id,"select") or instr(id,"in") or instr(id,"from") or instr(id,"len") or instr(id,"where") or instr(id,"or") or instr(id,"and") then Response.Write("") Response.End end if conn.execute("update news set click=click+1 where ID=" & id) sql10="select * from news where id="&id&" order by updatetime desc, id desc" Set rs10= Server.CreateObject("ADODB.Recordset") rs10.open sql10,conn,1,1 tp=rs10("tp") sql1="select * from classname where id="&tp&" order by ID " Set rs1= Server.CreateObject("ADODB.Recordset") rs1.open sql1,conn,1,1 dl=rs1("dl") if rs10("classname")<>"" and rs10("classname3")=1000 then classname=rs10("classname") sql2="select * from classname where id="&classname&" order by ID " Set rs2= Server.CreateObject("ADODB.Recordset") rs2.open sql2,conn,1,1 dl2=rs2("dl2") end if %> 台州市飞利洲胶带有限公司-<%=rs10("title")%>
    <% sql3="select * from classname where lb=11 order by xid,ID desc" Set rs3= Server.CreateObject("ADODB.Recordset") rs3.open sql3,conn,1,1 do while not rs3.eof %>
  • class="current"<%end if%>>.html"><%=rs3("dl2")%>
  • <% rs3.movenext loop rs3.close set rs3=nothing %>
    <% sql3="select * from classname where lb=22 order by xid,ID desc" Set rs3= Server.CreateObject("ADODB.Recordset") rs3.open sql3,conn,1,1 do while not rs3.eof %>
  • class="current"<%end if%>>.html"><%=rs3("dl2")%>
  • <% rs3.movenext loop rs3.close set rs3=nothing %>
台州市飞利洲胶带有限公司
地址:浙江省三门县高枧乡绵地洋开发区
邮箱:feilizhou@feilizhou.com
电话:0576-83118719
传真:0576-83180719
<%=rs10("title")%>
时间:<%=rs10("updatetime")%>
<%if rs10("content")<>"" then%>

<%=ubbcode(rs10("content"))%>

<%end if%>
打印】【关闭
Copyright © 台州市飞利洲胶带有限公司 版权所有2014.
备案号:浙ICP备14028861号 技术支持:三门金桥网络