<% 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""%>
友情链接网站 申请友情链接 我要推荐网址 无效网址报告 我有意见建议