<% order=trim(request("order")) kindid1=trim(request("kindid1")) if request("kindid2")<>"" then kindid2=trim(request("kindid2")) else kindid2=0 end if if kindid1<>"" and kindid2=0 then conn.execute"update kinds1 set hits=hits+1 where kindid1="&kindid1&"" else conn.execute"update kinds2 set hits=hits+1 where kindid1="&kindid1&" and kindid2="&kindid2&"" end if %> 法律网址大全_法律网站搜索_法律网址之家_法律网站分类目录_律师事务所名录_律师所黄页
法律桥--您的法律顾问
法律桥 | 公司投资律师 | 会见律师网 | 中国律师博客

法律网址大全、律师事务所名录
法律桥各专栏：公司投资律师、房地产律师、知识产权律师、电子商务律师、主持律师简介和律师论坛
分┊类┊导┊航
法律门户┊法律频道┊普法网站┊法律媒体┊法律法规┊判例案例┊法律文书┊法律网址┊法学院系┊研究机构┊法律学者
法律论文┊法学刊物┊法律语言┊出版机构┊法学图书┊律师协会┊法律咨询┊法律顾问┊律师联盟┊律师主页┊法律援助
公安机关┊检察机关┊人民法院┊司法行政┊公证机构┊仲裁调解┊劳动仲裁┊鉴定机构┊各级人大┊各级政府┊立法执法
法理综合┊宪政行政┊民商综合┊刑事法律┊程序法律┊房地产法┊知识产权┊公司企业┊金融税务┊网络法律┊劳动保护
法律论坛┊法律社区┊法律博客┊个人主页┊法律人才┊法律教育┊司法考试┊港台法律┊外国法律┊上海律师┊北京律师
工┊具┊软┊件
休┊闲┊娱┊乐
工┊作┊学┊习
生┊活┊资┊讯
 
  <% set rs=server.CreateObject("adodb.recordset") rs.open "select hits,kindname2,kindid2,id,hot2,url2 from kinds2 where kindid1="&kindid1,conn,1,1 set rs1=server.CreateObject("adodb.recordset") rs1.open "select kindname1,kindid1,url from kinds1 where kindid1="&kindid1,conn,1,1 if not rs1.eof then response.write"当前类别：首页 >> "&rs1("kindname1")&"" end if rs1.close rs1.open "select kindname2,url2 from kinds2 where kindid1="&kindid1&" and kindid2="&kindid2&"",conn,1,1 if not rs1.eof then response.write"" response.write " >> "&rs1("kindname2") response.write"" end if rs1.close %> 　　｜     在本页登录网址  ｜<<返回
<% do while not rs.eof %> <% for j=1 to 6 if rs.eof then response.write"" else %> <% rs.movenext end if next %> <% if rs.eof then exit do loop rs.close %>
> <%if Cint(rs("kindid2"))=Cint(kindid2) then response.write""%> <%=rs("kindname2")%>
  <% if order<>"" then rs.open "select urltype,urldate,id,urlname,urlvalue,cool,urlhide from urls where urlhide=false and urlkindid1="&kindid1&" and urlkindid2="&kindid2&" and urltype=1 order by "&order&" desc",conn,1,1 else rs.open "select urltype,urldate,id,urlname,urlvalue,cool,urlhide from urls where urlhide=false and urlkindid1="&kindid1&" and urlkindid2="&kindid2&" and urltype=1",conn,1,1 end if %> 本类共有 <%=rs.recordcount%> 个网址  排序（热门  推荐 加入时间 默认）
 
<% do while not rs.eof %> <% for j=1 to 5 if rs.eof then response.write"" else %> <% rs.movenext end if next %> <% loop rs.close set rs=nothing %>
><%=rs("urlname")%> <%if rs("cool")=1 then response.write" √"%>
友情链接网站 申请友情链接 我要推荐网址 无效网址报告 我有意见建议