 很多时候我们需要生成 重复的 N 个字符 一般人都会使用这样的方法 <% Dim i, n, subString n = 10 For i = 0 TO n subString = subString & " " Next Response.Write(subString) %> 其实是忽略了 VBS 里一个极有用的函数 Space 下面我用 Space 和 Replace 来实现上例功能 <% Dim n, subString n = 10 subString = Space(n) subString = Replace(subString, " ", " ") Response.Write(subString) %> 假如您想更简单点的话 能够自己写个函数 比如 <% Function SpacePlus(ByRef repeatString, ByRef repeatNumber) SpacePlus = Replace(Space(repeatNumber), " ", repeatString) End Function Response.Write(SpacePlus(" ", 10)) %> |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
