昨天看動網分類的時候看到他們是這樣出的

<%if rs("depth")>0 then%>
<%for i=1 to rs("depth")%>
　　&nbsp;
<%next%>
<%end if%>

所以今天寫個小文章

很多時候我們需要生成 重複的 N 個字元
一般人都會使用這樣的方法
<%
Dim i, n, subString
n = 10
For i  = 0 TO n
　　subString = subString & "&nbsp;"
Next
Response.Write(subString)
%>

其實是忽略了 VBS 裡一個極有用的函式 Space
下面我用 Space 和 Replace 來實現上例功能
<%
Dim n, subString
n = 10
subString = Space(n)
subString = Replace(subString, " ", "&nbsp;")
Response.Write(subString)
%>

如果你想更簡單點的話 可以自己寫個函式 比如
<%
Function SpacePlus(ByRef repeatString, ByRef repeatNumber)
　　SpacePlus = Replace(Space(repeatNumber), " ", repeatString)
End Function

Response.Write(SpacePlus("&nbsp;", 10))
%>