Asp 생 성 HTML 방법 대전

방법 1:FSOSet fs=CreateObject("Scripting.FileSystem Object")NewFile=Server.MapPath("/asp/chap 06/at/newfile.html")'새 파일/newfile.html 이 존재 하면 덮어 쓰 고 Set a=fs.CreateTextFile(NewFile,True)Response.Write"새 파일 이 생 성 되 었 습 니 다!"a.closeFile=Server.MapPath("newfile.html")Set txt=fs.OpenTextFile(File,8,True)'마지막 에 데 이 터 를 쓸 수 있 는 파일 로 열기 data 1="이 말 은 WriteLine 방법 으로 쓴 것 입 니 다!~"txt.Write Line data1data 2="이 말 은 Write 방법 으로 쓴 것 입 니 다!~"txt.Write data2txt.close 방법 2:XML HTTP<%Set xml=Server.CreateObject("Microsoft.XML HTTP")'는 아래 주 소 를 첫 페이지 의 파일 주소 로 바 꾸 려 면 반드시http://시작 하 는 절대 경로 입 니 다.상대 경 로 를 쓸 수 없습니다.xml.Open"GET","http://www.phpup.com",Falsexml.EndBodyText=xml.Response Body BodyText=BytesToBstr(BodyText,"gb 2312")Set xml=NothingDim fso,MyFileSet fso=CreateObject("Scripting.FileSystem Object")Set MyFile=fso.CreateTextFile(server.MapPath("aa.htm"),True)MyFile.WriteLine(BodyText)MyFile.Close 기타:1 아래 의 예 는 index.asp?id=1/index.asp?id=2/index.asp?id=3/이 세 동적 페이지 를 각각 ndex1.htm,index2.htm,index 3.htm 로 루트 디 렉 터 리 아래 에 존재 합 니 다:<%dim strUrl,ItemClassid,id,FileName,FilePath,Do_Url,Html_TempHtml_Temp="

"For i=1 To 3Html_Temp = Html_Temp&"
• "Item_Classid = iFileName = "Index"&Item_Classid&".htm"FilePath = Server.MapPath("/")&"\"&FileName Html_Temp = Html_Temp&FilePath&"
"Do_Url = " http://" Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"Do_Url = Do_Url&"?Item_Classid="&Item_ClassidstrUrl = 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&"
"%><%Response.Write("파일 생 성 성공:")Response.Write("
")Response.Write HtmlTemp%>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<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%public tempelatefile,tmpdatasub ofile()'파일 열기,그리고 파일 내용 을 tmpdataon error resume nexttmpdata="set Astream=Server.CreateObject("Adodb.Stream")Astream.type=2'파일 형식 텍스트 Astream.Mode=3'읽 기 쓰기 Astream.openAstream.Charset="GB 2312"문자 집합 Astream.LoadFromFile(tempelatefile)'파일 에서 Assp=Astream.size if err.number<0 thenxz=-18response.Write tempelate file&"
"err.cleartmpdata=""elsetmpdata=Astream.ReadText(Assp)end ifend subsub save_file()ofile()recfilen=server.MapPath(dts)Astream.FlushAstream.close Astream.type=2 Astream.Mode=3Astream.openAstream.Charset="GB 2312"Astream.position=0 Astream.Writetext tmpdata,1'stream Astream.saveToFile recfilen 에 데 이 터 를 기록 합 니 다.파일 end subfunctiondts()에 저 장 된 2'파일 이름 을 저장 합 니 다.()'무 작위 파일 이름 if len(month((now()))))>1 thenmm=mont((())))다음 다음 다음(((()))다음 다음 다음 다음 다음 다음((()))))<1 thenmm=montmont(((()))))elsemm="0"&day((((now()))))end((now((()))))end((((((())))))))end(((((())))))))))))))))))))end((((now((()))))))))))))))))))()elsem="0"&minute(now())end ifif len(second(now)()))>1 thens=second(now())elses="0"&second(now())end ifRandomizeupperbound=9999lowerbound=1000rds=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) dts="htm/"&year(now())&mm&d&h&m&s&rds&".htm"end functiontitle=request.Form("title")content=request.Form("content")tmpdata=replace(tmpdata,"",title)'tmpdata=replace(tmpdata,"/content>",content)tempelate file=server.MapPath("tempelate/1.htm")'모드 파일 savefile()%>