

<head>
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style><%Server.ScriptTimeOut=3600%>
<!--#include file=cookies.asp-->
<!--#include file=htmconn.asp-->

<%
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 next
		row=0
		ID=Trim(Request.QueryString("id"))
		Do_Url   =   "http://" 
Url=Do_Url&Request.ServerVariables("SERVER_NAME")&"/html/xinxiinfo.asp?fox="&id
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(server.MapPath("/html")&"\x-"&id&".htm")) Then
fs.DeleteFile(server.MapPath("/html")&"\x-"&id&".htm")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("/html")&"\x-"&id&".htm")
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing

		zhais=GetZhais(rszhai("FromURL"))
		rszhai.movenext
		row=row+1

		rszhai.close

response.write "<script language=""javascript"">"
response.write "  alert(""成功生成1个最新HTML页面！"")"
response.write "</script>"


%>

<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>

</head>

<body onLoad="MM_goToURL('self','xinxi.asp');return document.MM_returnValue"></body></html>