<%
Id = request. querystring ("ID ")
Dim strurl, item_classid, ID, filename, filepath, do_url, html_temp
Html_temp = "<ul>"
'For I = 1 to 3
Html_temp = html_temp & "<li>"
Item_classid = ID
Filename = "\ 2222 \ 1111" & item_classid & ". htm"
Filepath = server. mappath ("\") & filename
Html_temp = html_temp & filepath & "</LI>"
Do_url = "http ://"
Do_url = do_url & request. servervariables ("SERVER_NAME") & "/1111.asp"
Do_url = do_url &"? Id = "& item_classid
Strurl = do_url
Dim objxmlhttp
Set objxmlhttp = server. Createobject ("Microsoft. XMLHTTP ")
Objxmlhttp. Open "get", strurl, false
Objxmlhttp. Send ()
Dim binfiledata
Binfiledata = objxmlhttp. responsebody
Dim objadostream
Set objadostream = server. Createobject ("ADODB. Stream ")
Objadostream. type = 1
Objadostream. open ()
Objadostream. Write (binfiledata)
Objadostream. savetofile filepath, 2
Objadostream. Close ()
Html_temp = html_temp & "<ul>"
%>
<%
Response. Write ("successfully generated file :")
Response. Write ("<br> ")
Response. Write html_temp
Response. Write "<******> history. Go (-1); </******>"
%>
