<!--#include file="connection.asp"-->
<!--#include file="inc/const.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<!--#include file="z_home_const.asp"-->
<%
Server.ScriptTimeout=9999999
dim SQLHome,RSHome,homename,homeusername,action,CurScenID


%>
<table cellpadding=2 cellspacing=1 align=center class=tableborder1>
  <tr height=25>
  	<th width=100% valign=middle id=tabletitlelink align=left>&nbsp;生成设计方案图&nbsp;&nbsp;</th>
  	</tr>
  	<tr>
  	<td>
  	
  	<form method="POST" action=?ok>
  <p><input type="submit" value="执行" name="B1"></p>
</form>

  	
  	</td>
  	</tr>
  	</table>
  	<%
  	
if Request.Form("B1")="执行" then
  	call ok()
  	end if
  	sub ok()
  	
  	
  	
  	
  	set rshome=server.createobject("ADODB.Recordset")
  	sql="select * from Home_Scen where url is null"
  	rshome.open sql,conn,1,1
do while not rshome.EOF  	
CurScenID=rshome("ID")
  	  	homename=rshome("name")
  	homeusername=rshome("username")
  	
    
  	call SaveScen(CurScenID,True,True,True)
  		response.write ""&homeusername&"的"&homename&"生成图片<br>"
rshome.MoveNext 
    loop

  		response.write "<font color=red>本地生成设计图片完成</font>"
  		end sub
  		%>