<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="upclass.asp"-->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../include/css.css" rel="stylesheet" type="text/css">
</head><body>
<%
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
Set rs=Conn.execute("select * from admin")
vernum=rs("vernum")
url=md5(Request.ServerVariables("SERVER_NAME"))
url1=Request.ServerVariables("SERVER_NAME")
If shopnet("id")="1" Then 
response.write "<br><br><br><br>验证版本没有通过，如果你是正式收费用户，<A HREF='http://www.rikee.com/bbs' target='_top'>请联系我们</A>"
response.End
End if
If shopnet("id")="2" Then %>
<a href="?id=3&pin=<%=pin%>&url=<%=userurl%>&adminname=<%=adminname%>&url1=<%=url1%>&pin1=<%=pin1%>&sitename=<%=sitename%>"><br><br><br><br><li>点击这里检查更新及升级！<br>（点击后如果有更新文件，速度视网速而定，请稍候，不要刷新！）</li></a>
<%
response.end
End If
If shopnet("id")="2" And ver<>"" Then %>
<a href="?id=3&ver=yes&pin=<%=pin%>&url=<%=userurl%>&adminname=<%=adminname%>&url1=<%=url1%>&pin1=<%=pin1%>&sitename=<%=sitename%>"><br><br><br><br><li>点击这里检查更新及升级！<br>（点击后如果有更新文件，速度视网速而定，请稍候，不要刷新！）</li></a>
<%
response.end
End If
If request("id")="3" Then 
Set update= new Cls_oUpdate
   update.UrlVersion= "http://www.ftaobao.com/freeupdate/V.htm"
   update.UrlUpdate="http://www.ftaobao.com/freeupdate/updatefile/"
   update.UpdateLocalPath  = "/"
   update.UrlHistory = "index.asp"  
   update.LocalVersion =vernum
If update.isupdate Then
response.write update.info
response.end
Else
update.doupdate
LastVersion=update.LastVersion
Conn.execute("update admin set vernum='"&LastVersion&"',updatetime='"&now()&"'")
If shopnet("id")="3" And ver="yes" Then 
response.write "<br><br><br><li>OK！成功完成升级操作！ 当前版本号是:"&LastVersion&"</li>"
End if
If shopnet("id")="3" And ver="" Then 
response.write "<br><li>完成程序更新！ 当前版本号是:"&LastVersion&"！[补丁更新不计入升级次数中]</li>"
Set update= Nothing
response.End
End If
End if
End If



For i = 0 To 5
response.write "i="&i&"<br>"
Next
response.end






   '从数据里读出当前版本号
   Set update= new Cls_oUpdate
   update.UrlVersion= "http://www.ftaobao.com/freeupdate/V.htm"
   update.UrlUpdate="http://www.ftaobao.com/freeupdate/updatefile/"
   update.UpdateLocalPath  = "/"
   update.UrlHistory = "index.asp"  
   update.LocalVersion =vernum
If update.isupdate Then
response.write update.info
response.end
Else

Set rs=Server.CreateObject("ADODB.Recordset") 
set rs= conn.execute("select * from admin where administrators='"&url&"'")
if not rs.eof then
vernum=rs("vernum")
pin=rs("pin")
userurl=rs("administrators")
datetime=rs("updatetime")
rs.close
set rs=Nothing
Response.redirect "http://www.ftaobao.com/freeupdate/reguser.asp?pin='"&pin&"'&url='"&userurl&"'&vernum='"&vernum&"'&datetime="&datetime&"&add="&url1&""
else
response.write "<br><br><br><li>验证版本没有通过，如果你是正式收费用户，<A HREF='http://www.rikee.com/bbs' target='_top'>请联系我们</A></li>"
End If
End If
%>


