<!--#include file="QvodCms_Conn.asp"-->
<!--#include file="QvodCms_Check.asp"-->
<%Server.ScriptTimeOut=99999
Response.CacheControl = "no-cache"
Call OpenConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>远程图片保存本地</title>
<link href="skins/css/jaja_main.css" rel="stylesheet" type="text/css" />
<style type="text/css">
h1 {font-size: 14px; color:#FF0000; margin:5px; padding:0px}
</style></head>
<body> 
<div style="background:#F3F9FB">
<%Set rs = Server.CreateObject("adodb.recordset")
sql = "select top 100 data_picbig,data_picsmall,name_id from qvodcms_name where data_status=1 and Left(data_picbig,7)='http://' order by name_id desc"
rs.Open sql, Conn, 1, 1
If Not (rs.bof And rs.eof) Then
	Do while not rs.eof
	    Response.Flush()
		Response.Write "<div><img src=""images/asp.gif""> "&rs("data_picbig")&" "
		imgpath=GetPicurl(rs("data_picbig"),"../"&AdminId(13)) 
		If Cint(AdminId(6))=1 Then
		imgpatha=GetPicurll(rs("data_picbig"),"../"&AdminId(13)) 
		Else
		imgpatha="/images/nopic.gif"
		End if
		Conn.Execute("update qvodcms_name set data_picbig='"&imgpath&"',data_picsmall='"&imgpatha&"' where name_id="&rs("name_id")&"")
		Response.Write "</div>"
	rs.movenext
	Loop
	Response.Write "<meta http-equiv='refresh' content=3;url='qvodcms_img.asp'><h1>请稍等.....3秒后将自动处理下一页的远程图片地址!</h1>"
Else
    Response.Write "<h1>恭喜您,已经处理完所有的远程图片本地化!</h1>"
End If
rs.Close
Set rs=nothing
Call CloseConn()
%>
</div>
</body>
</html>