静态页生成

<
%

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


 %
>