<%=Webtitle%>

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

北京

<%If Session("userid")<>"" Then%>

欢迎<%=Session("username")%>登陆　<%End If%> <%If Session("userid")="" 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=0 To 5 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 %>