<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim R1 Dim R1_numRows Set R1 = Server.CreateObject("ADODB.Recordset") R1.ActiveConnection = MM_conn_STRING R1.Source = "SELECT * FROM News ORDER BY ID DESC" R1.CursorType = 0 R1.CursorLocation = 2 R1.LockType = 1 R1.Open() R1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 8 Repeat1__index = 0 R1_numRows = R1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> <% Function StrLenB( strString ) dim intLoop,intReturn if isNull(strString) then StrLenB = 0 exit Function end if intReturn = len(strString) for intLoop = 1 to len(strString) if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then intReturn = intReturn + 1 next StrLenB = intReturn End Function Function strLeftB( strString ,intLen) dim intLenB,intLoop if StrLenB(strString) < intLen then strLeftB = strString exit Function end if for intLoop = 1 to Len(strString) if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then intLenB = intLenB + 2 else intLenB = intLenB + 1 end if if intLenB > intLen then intLoop = intLoop - 1 exit for elseif intLenB = intLen then exit for end if next strLeftB = left(strString,intLoop) End Function Function IsLetter( chr ) dim blnReturn blnReturn = false if ( ( chr >= asc("a") and chr <= asc("z") ) or ( chr >= asc("A") and chr <= asc("Z") ) or ( chr >= asc("0") and chr <= asc("9") ) ) then blnReturn = true end if IsLetter = blnReturn End Function Function AlignString( string, byVal size ) dim r,nLen,n,i,a,s_i r = string nLen = StrLenB( string ) ' if string's width less then size ,return this string . if ( nLen > size ) then size = size - 2 n = 0 i = 1 ' cut to index do while ( i ) a = asc( mid( string, i, 1 ) ) if ( a < 0 ) then if ( n + 1 = size ) then i = i - 1 exit do end if n = n + 1 end if n = n + 1 if ( n = size ) then exit do i = i + 1 loop 'fxDebug( i ) s_i = i a = asc( mid( string, i+1, 1 ) ) if ( IsLetter(a) ) then do while ( 1 ) a = asc( mid( string, i, 1 ) ) if ( not IsLetter(a) ) then exit do i = i -1 if ( i = 0 ) then i = s_i exit do end if loop end if r = mid( string, 1, i ) & ".." end if AlignString = r End Function %>

妙画设计期举办品牌推广会、装修咨询会、业主见面会，提供超值的服务和更多的优惠。     为收集设计装修案例，我们特别为每位业主指定至少三家精品公开的顶尖设计团队提供的。     “免费量房+至少3个精彩免费设计方案”     1.邀请二十名业主参观由妙画空间设计施工的年末样板房。     2.样板房的风格为现代简约和简欧风格及现代中式三套。     3.此样板房全部为即将施工结束的房型,现场将有设计师现场进行讲解    你报名后确认来现场，请带好居家房型图，均安排优秀设计师于客户进行一对一的深入沟通并提 供“设计—预算—选材—施工—软装—配饰—售后服务”的全方位咨询， 使您充分了解前期沟通在装潢设计中的重要性和必要性。 现场看房免费接送，本次参观的样板 妙画介绍 Presentation     妙画设计工作室不是一家规模最大，产值最高，利润最厚的装潢企业，他的优势在？更严格，更细致，更高效，以客户需求为方向，在施工工艺，施工验收，售后服务等各方环节上制定了更高标准的企业规范制度。施工检测上更从材料检验上升到了设计实现的整体性，从而创造出了独具特色的“高档，华丽，原创作品”。     公司实行精品设计，科学管理，精良施工，售后维修等一系....... 设计团队 Deviser troop ·陈海军 首席设计师 ·曹钱华 资深设计师 ·张羽飞 高级设计师 ·李白金 首席设计师 ·朱侃华 高级设计师 ·陈  伟 高级设计师 ·倪  愈 高级设计师 ·张锡澍 资深设计师  新闻咨询  New information <% While ((Repeat1__numRows <> 0) AND (NOT R1.EOF)) %> "> <% =AlignString((R1.Fields.Item("Title").Value), 32) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 R1.MoveNext() Wend %> <% If R1.EOF And R1.BOF Then %> 暂时还没有新闻 <% End If ' end R1.EOF And R1.BOF %> 经典设计 Presentation

<% R1.Close() Set R1 = Nothing %>