在服务器上写一个变量值 希望结果为: 如果s=4则 s4=a1a2a3a4 请问这个代码如何写？ '我总是写不出来下面是我的代码，不知错在哪里，请高手指点为，谢谢。。。在线等！！！！！！！！！！！

<% dim s s=4 for j=0 to s step 1 txt="a"&s&"" txt=txt&txt j=j+1 if j>s then exit for next Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS1 = FSO.CreateTextFile(Server.MapPath("var.txt"), True) TS1.write "s="&txt Set FSO = Nothing %> 打开var.txt的内容为 s=a4a4 根本不是我想得到的s=a1a2a3a4结果.不知怎么实现？

[此贴子已经被作者于2005-6-22 16:19:21编辑过]

dim s
s=4
txt=""
for j=1 to s step 1
    txt=txt&amp;"a"&amp;s&amp;""
next
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
     Set TS1 = FSO.CreateTextFile(Server.MapPath("var.txt"), True)
     TS1.write "s="&amp;txt
     Set FSO = Nothing
%&gt;

结果是s=a4a4a4a4？

txt=txt&"a"&j&""