

<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


dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp,row,rszhai

Action=Request("Action")
if Action="ok" then  
		set rszhai=conn.execute("select * from FOX_xinxi where yz=1 and ts=0 order by id desc")
elseif Action="Update" then
       set rszhai=conn.execute("select * from FOX_xinxi where ID >= "&request("Bid")&" and ID <= "&request("Eid")&" and yz=1 and ts=0 order by id desc")
       else
       set rszhai=conn.execute("select * from FOX_xinxi where yz=1 and ts=0 order by id desc")
end if 
on error resume next      
		do while not rszhai.Eof
		Html_Temp="<UL>"   
		row=0
  Html_Temp   =   Html_Temp&"<LI>"   
  Item_Classid   = rszhai("id")   
  FileName   =   "html/x-"&Item_Classid&".htm"   
  FilePath   =   Server.MapPath("/")&"\"&FileName   
  Html_Temp   =   Html_Temp&FilePath&"</LI>"   
  Do_Url   =   "http://"   
  Do_Url   =   Do_Url&Request.ServerVariables("SERVER_NAME")&"/html/xinxiinfo.asp"   
  Do_Url   =   Do_Url&"?fox="&Item_Classid   
    
    
  strUrl   =   Do_Url   
  dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2 
objAdoStream.Close()    
  Html_Temp   =   Html_Temp&"<UL>"   
  		rszhai.movenext
		row=row+1
		loop
		rszhai.close
response.write "<script language=""javascript"">"
response.write "  alert(""所有记录生成HTML完成！"")"
response.write "</script>"
  Response.Write   Html_Temp   

%>
<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>