我自己写了一种,感觉不好 <% dim temp as string="" dim i,j as integer for j=1 to 5 step 1 for i=1 to j step 1 temp+="*" next i response.write (temp & "<br>") temp="" next j for j=5 to 1 step -1 for i=j to 1 step -1 temp+="*" next i response.write (temp & "<br>") temp="" next j %>
<%
dim temp as string=""
dim i,j as integer
for j=1 to 5 step 1
for i=1 to j step 1
temp+="*"
next i
response.write (temp & "<br>")
temp=""
next j
for j=5 to 1 step -1
for i=j to 1 step -1
temp+="*"
next i
response.write (temp & "<br>")
temp=""
next j
%>
response.write("*<br>**<br>***<br>****<br>*****<br>*****<br>****<br>***<br>**<br>*<br>");
dim temp as string=""
dim i,j as integer
for j=1 to 5 step 1
response.write (temp.PadLeft(j,'*') & "<br>")
next j
for j=5 to 1 step -1
response.write (temp.PadLeft(j,'*') & "<br>")
next j
%>