静态页生成

<

%


url

=

"

1shouye.asp

"

          

'

源文件






filename

=

"

index.html

"

      

'

目标文件











Set

 MyFileObject

=

Server.CreateObject(

"

Scripting.FileSystemObject

"

)


path1

=

server.mappath(filename)




Set

 MyTextFile

=

MyFileObject.CreateTextFile(path1)


strurl

=

url   


strTmp 

=

 GetHTTPPage(

trim

(strurl))


MytextFile.Close


response.write 

"

<p>  生成

"

&

filename

&

"

成功 <br></p>

"






Set

 MyFileObject

=

nothing









Function

 getHTTPPage(url) 




On

 

Error

 

Resume

 

Next

 


 

dim

 http 


 

set

 http

=

Server.createobject(

"

Microsoft.XMLHTTP

"

) 


 Http.open 

"

GET

"

,url,

false

 


 Http.send() 


 

if

 Http.readystate

<>

4

 

then




  

exit

 

function

 


 

end

 

if

 


 getHTTPPage

=

bytesToBSTR(Http.responseBody,

"

GB2312

"

)


 

set

 http

=

nothing




 

If

 Err.number

<>

0

 

then

 


  Response.Write 

"

<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>

"

 


  Err.Clear


 

End

 

If

  




End Function









Function

 BytesToBstr(body,Cset)


 

dim

 objstream


 

set

 objstream 

=

 Server.CreateObject(

"

adodb.stream

"

)


 objstream.Type 

=

 

1




 objstream.Mode 

=

3




 objstream.Open


 objstream.Write body


 objstream.Position 

=

 

0




 objstream.Type 

=

 

2




 objstream.Charset 

=

 Cset


 BytesToBstr 

=

 objstream.ReadText 


 objstream.Close


 

set

 objstream 

=

 

nothing






End Function









Function

 timetohtml(str)


   timetohtml

=

Replace

(

Replace

(

Replace

(str,

"

:

"

,

""

),

"

-

"

,

""

),

"

 

"

,

""

)

&

"

.html

"






End Function




 %

>