关于ASP生成静态的问题

来源:百度知道 编辑:UC知道 时间:2024/06/24 13:22:30
代码如下:
<%
dim a1,a2
a1="手机|数码|家电|日用"
a1 = Split(a1,"|")
for a2=0 to Ubound(a1)
k= "<a href=/search.asp?key="&Server.URLEncode(a1(a2))&">"&a1(a2)&"</a> "
next
code=k
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Ck = fso.CreateTextFile(server.mappath("list.htm"),true)
Ck.Write code
Ck.close
set Ck=nothing
set fso=nothing
%>
结果生成的静态页子只显示最后一项“日用”,不知该怎么写这段代码
上面这段代码生成的静态页只显示最后一项“日用”的链接,希望生成完整的“手机|数码|家电|日用”的链接,关键是不知道这个next该怎么放。

现在不是完整的静态吗

<%
dim a1,a2,k
a1="手机|数码|家电|日用"
a1 = Split(a1,"|")
k=""
for a2=0 to Ubound(a1)
k= k + "<a href=/search.asp?key="&Server.URLEncode(a1(a2))&">"&a1(a2)&"</a> <br>"
next
code=k
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Ck = fso.CreateTextFile(server.mappath("list.htm"),true)
Ck.Write code
Ck.close
set Ck=nothing
set fso=nothing
%>