make_new1.php

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

<? include("conn.php");?>
<? include("include/function.php");?>
<? include("include/setup.php");?>

<?
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 }
		$row=0;
		$rszhai=mysql_query("select top 1 * from zhai where ispub='1'  order by id desc")
		'do while not rszhai.Eof
url="http://mmei8.com/zhaishow.php?id=".$rszhai[id].""
wstr = GetPage(url)
Set fs=Server.createObject("Scripting.FileSystemObject")
If (fs.FileExists(server.MapPath("html")&"\".$rszhai[id]."/index.htm"))){
fs.DeleteFile(server.MapPath("html")&"\".$rszhai[id]."/index.htm")
}
Set crFi=fs.createTextFile(server.MapPath("html")&"\".$rszhai[id]."/index.htm")
crfi.Writeline(wstr)
set crFi=nothing
set fs=nothing

		zhais=GetZhais(rszhai("fromurl"))
		rszhai.move}
		$row=$row+1;
		'loop
		rszhai.close

response.write "<font color=red>成功生成1个最新HTML页面！</font><br>"

?>
<? include("make_index.htm");?>