test1.php

PHP免费网摘程序 详细说明: 安装说明： 1、把文件上穿上去以后

<?
Function GetPage(url) 
dim Retrieval
Set Retrieval = createObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False ', "", "" 
.Send 
GetPage = BytesToBstr(.ResponseBody)
End With 
Set Retrieval = Nothing 
End Function

Function BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText 
objstream.close
set objstream = nothing
End Function
on error resume }
url="http://mmei8.com/zhaishow.php?id=314"
response.write "开始更新首页..."
wstr = GetPage(url)

Set fs=Server.createObject("Scripting.FileSystemObject")

If (fs.FileExists(server.MapPath("html")&"\314.htm"))){
fs.DeleteFile(server.MapPath("html")&"\314.htm")
}

Set crFi=fs.createTextFile(server.MapPath("html")&"\314.htm")
crfi.Writeline(wstr)
set crFi=nothing
set fs=nothing
response.write "...<font color=red>更新完成！</font>"
?>