这样为何实现不了双重循环!
<%
Dim MyDate
MyDate="Article"
for i=1 to 5
For j=1 To 5
if j=i then
PageLoad="<strong>["&j&"]</strong>"
else
if j=1 then
PageLoad=PageLoad&"<a href="&MyDate&".htm>"
else
PageLoad=PageLoad&"<a href="&MyDate&"_"&j&".htm>"
end if
PageLoad=PageLoad&"<strong>["&j&"]</strong>"
PageLoad=PageLoad&"</a>"
end if
next
Response.Write PageLoad
Next
%>