<% strUrl=Trim(request.servervariables("script_name")) strUrl=replace(strUrl,"\","/") StrFile=right(strUrl,(len(strUrl)-instrrev(strUrl,"/"))) %> <%If Alltypes=0 Then%> <%End If%> <%If Alltypes=0 Then%> <%Else%> 请给予支持，点击支持原创！官方网站：zhew.com,此官方说明信息条可在top.html中去除,不会去除者请联系QQ：64341814
<%End If%> <%If StrFile="List.asp" Or StrFile="Shangjia_list.asp" Or StrFile="list.asp" Or StrFile="Geren.asp" Or StrFile="geren.asp" Then%> <%Else%> <%End If%>

<%If Session("userid")<>"" Then%> <%=Session("username")%>　<%End If%>首页 | <%If Session("userid")="" Then%>登陆 | 注册 | <%Else%>退出 | 管理 | <%End if%>社区 | 使用帮助| 关于我们
<% Select Case StrFile Case "index.asp" %> <% Case "Fenlei.asp","List.asp","list.asp" %> <% Case "Shangjia.asp","Shangjia_list.asp" %> <% Case "Geren.asp" %> <% End Select %> 首页 分类信息 商家黄页 同城社区 个人中心 首页 分类信息 商家黄页 同城社区 个人中心 首页 分类信息 商家黄页 同城社区 个人中心 首页 分类信息 商家黄页 同城社区 个人中心

<%If StrFile="List.asp" Or StrFile="Shangjia_list.asp" Or StrFile="list.asp" Or StrFile="Geren.asp" Or StrFile="geren.asp" Then%> <%Else%> <%End If%>

商家黄页 -------- 全部信息 房屋租售 同城生活 交友征婚 企业招聘 跳蚤市场 求职简历 兼职工作 热门关键词：<% Set Rs = Server.CreateObject("Adodb.Recordset") Rs.Open "Select * From Keyword Order by id asc",Conn,1,1 If not(rs.eof Or rs.bof) Then For i=1 To 12 If Rs.Eof Or Rs.Bof Then Exit For Response.Write ("　"&left(Rs("keyword"),5)&"") Rs.MoveNext Next End If Rs.Close Set Rs = Nothing %>