strUrl=Do_Urldim objXmlHttpset objXmlHttp=Server.createObject('Microsoft.XMLHTTP')objXmlHttp.open 'GET',strUrl,falseobjXmlHttp.send()Dim binFileDatabinFileData=objXmlHttp.responseBodyDim objAdoStreamset objAdoStream=Server.createObject('ADODB.Stream')objAdoStream.Type=1objAdoStream.Open()objAdoStream.Write(binFileData)objAdoStream.SaveToFile FilePath,2objAdoStream.Close()
NextHtml_Temp=Html_Temp'UL'%
% response. Write ('file generated successfully:') response. Write ('BR') the response. Write Html_Temp%
Function BytesToBstr(body,Cset)dim objstreamset objstream=Server.CreateObject('adodb.stream')objstream.Type=1objstream.Mode=3objstream.Openobjstream.Write bodyobjstream.Position=0objstream.Type=2objstream.Charset=CsetBytesToBstr=objstream.ReadTextobjstream.Closeset objstream=nothingEnd Function%
2
如果出现错误，请恢复next tmpdata=' ' set as stream=Server .CreateObject('Adodb .stream ')as stream . Type=2 '类型文档TextAstream的。模式=3'读写a stream . opena stream . charset=' GB 2312 ' Character seta stream的LoadFromFile(tempelatefile)' loaded aus DEM DokumentAssp=astream . size if err . number 0 then xz=-18 response .输入tempelatefile ' br ' err . cleartmpdata=' setmp data=Astream .ReadText(Assp)end if
end sub
sub save _ file()of file()rec filen=server .MapPath(dts)作为流.flushastream。关闭流。type=2流.模式=3a流。打开一个流。流。position=0 a流.' Writetext tmpdata，1 '写入数据到溪流.保存文件接收文件，2 '保存到文件末端接头
函数' dts()'产生随机文件名if len(month(now())1 thenmm=month(now())elsemm=' 0 ' month(now())end ifif len(day(now())1 thend=day(now())elsed=' 0 ' day(now())end ifif len(hour(now())1 thenh=hour(now())elseh=' 0 ' hour(now())end ifif len(minute(now())1 thenmm=minute(now())elsem=' 0 ' minute(now())end iffhtm ' end函数形式('标题)内容=请求form(' content ')tmpdata=replace(tmpdata，' title/title 'title)'以拥护提交内容替换tmpdata=replace(tmpdata，' content/content 'content)tempelatefile=server .MapPath('tempelate/1.htm ')'模版文件save_file()%
