<%@LANGUAGE="VBSCRIPT"%> <% if (request.form("select")="房地产") then response.redirect("house.asp") end if %> <% Dim Repeat1__numRows Repeat1__numRows = 4 Dim Repeat1__index Repeat1__index = 0 fleaRs_numRows = fleaRs_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count fleaRs_total = fleaRs.RecordCount ' set the number of rows displayed on this page If (fleaRs_numRows < 0) Then fleaRs_numRows = fleaRs_total Elseif (fleaRs_numRows = 0) Then fleaRs_numRows = 1 End If ' set the first and last displayed record fleaRs_first = 1 fleaRs_last = fleaRs_first + fleaRs_numRows - 1 ' if we have the correct record count, check the other stats If (fleaRs_total <> -1) Then If (fleaRs_first > fleaRs_total) Then fleaRs_first = fleaRs_total If (fleaRs_last > fleaRs_total) Then fleaRs_last = fleaRs_total If (fleaRs_numRows > fleaRs_total) Then fleaRs_numRows = fleaRs_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = fleaRs MM_rsCount = fleaRs_total MM_size = fleaRs_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record fleaRs_first = MM_offset + 1 fleaRs_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (fleaRs_first > MM_rsCount) Then fleaRs_first = MM_rsCount If (fleaRs_last > MM_rsCount) Then fleaRs_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %>

黄页金桥用户条约

第一条 必要的说明 　　黄页金桥的各项互联网功能、资源、服务的所有权和运作权归内蒙古黄页网站所有。 　　黄页金桥用户，指在黄页金桥的信息发布者和信息浏览者，在享有内蒙古黄页网站黄页金桥的有关功能、资源、服务（包括但不限于信息发布、信息浏览、信息搜索、信息修改与删除、联络服务等）之前，必须首先注册成为黄页金桥会员用户，并且完全同意和接受内蒙古黄页网站黄页金桥的各项服务条款和规则（即本服务条约）。有关功能与服务仅限用户本人。 　　本黄页金桥提供的各项互联网功能、资源、服务，包括今后增加或增强的新功能及新产品，以及本用户条约的相关联文件，均属于本用户条约的有效组成部分。 　　 第二条 用户权力 　　1、 注册成为会员用户，发布、修改、删除自己提交的分类信息，发布个人的联络信息和身份信息。 　　2、 浏览、搜索分类信息，并可通过信息发布者提供的的联系方式与之取得联络。 　　3、 信息发布者有权保护自己的隐私，选择个人信息的显示情况。 　　4、 通过电子邮件、电话等联络方式向我们提出意见、建议、咨询和投诉。 　　 第三条 用户义务 　　1、 信息发布者必须提供真实、准确、最新及完整的用户资料。 　　2、 信息发布者必须发布合法、真实、准确、完整、规范的分类信息，并且对发布的信息内容承担一切责任。 　　3、 信息发布者必须对内蒙古黄页网站会员名和密码的安全负全部责任，由于个人原因造成密码被他人得知而造成的所有损害，由个人承担全部责任。若发现自己的黄页金桥会员名被冒用或存在其他无故隐私泄露情况，请立即通知我们。 　　4、 信息浏览者不可以通过信息发布者留下的各种联系方式对其进行直接或者间接的骚扰、诽谤、诋毁等伤害，有关的法律责任、经济赔偿等由信息浏览者全部承担。 　　 第四条 信息发布与管理维护规则 　　接受并且遵守内蒙古黄页网站黄页金桥的《信息发布与管理维护规则》。 　　 第五条 服务的修改和终止 　　1、 内蒙古黄页网站有权在任何时间暂时或永久修改、暂停或终止服务（或其任何部分），无论通知与否，其任何修改、暂停或终止对用户或任何第三人均不承担责任。 　　2、 在认为用户违反本服务条约的情况下（包含但不限于此理由），内蒙古黄页网站有权终止用户的黄页金桥会员名以及本黄页金桥各项功能与服务的使用，有权将用户在黄页金桥发布的任何信息加以删除，有权配合公安、法律机关对该用户追求、调查有关的责任。 　　 第六条 用户信息隐私声明 　　1、 关于内蒙古黄页网站会员个人资料：遵守内蒙古黄页网站会员的用户条款。 　　2、 信息发布者发布的信息内容： 　　内蒙古黄页网站黄页金桥享有直接或间接使用以及分析的权利。对于具体用户信息的引用，会以电子邮件或常规信件等方式通知用户。 　　内蒙古黄页网站保留对以上条款的解释权和修改权。

内蒙古黄页网站 　　　　　　　　　　　　　　　　　　　　　　 ２００３年９月２２日