<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="../include/Lebi_Config.asp"-->
<%
'**************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Manage.asp
'* 最后更新 2013-08-15 by 56770.kingdge
'**************************************
On Error Resume Next 
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_admin.inc"
CurrentId = 0
CurrentUrl = "manage.asp"
LB_Head()
LB_Menu()
If Eshop_Lebi_name="" Then
		Response.redirect "admin_login.asp"
		Response.End
End If
Function IsObjInstalled(ByVal strClassString)
		Dim xTestObj,ClsString
		On Error Resume Next
		IsObjInstalled = False
		ClsString = strClassString
		Err = 0
		Set xTestObj = Server.CreateObject(ClsString)
		If Err = 0 Then IsObjInstalled = True
		If Err = -2147352567 Then IsObjInstalled = True
		Set xTestObj = Nothing
		Err = 0
		Exit Function
End Function
Dim OrderMoney1Day(15),OrderMoney2Day(15)
For I = 1 To 15
		If IsSqlDataBase = 1 Then
				OrderMoney1Day(i) = conn.execute("select sum(dis_sum+fei+packing_price+fapiao_money) from [Lebi_orders] where charindex('2',orderzt)=0 and datediff(d,order_time,'"& date-15 + i &"')=0")(0)
				OrderMoney2Day(i) = conn.execute("select sum(dis_sum+fei+packing_price+fapiao_money) from [Lebi_orders] where charindex('2',orderzt)>0 and datediff(d,order_time,'"& date-15 + i &"')=0")(0)
		Else
				OrderMoney1Day(i) = conn.execute("select sum(dis_sum+fei+packing_price+fapiao_money) from [Lebi_orders] where instr(orderzt,'2')=0 and datediff('d',order_time,'"& date-15 + i &"')=0")(0)
				OrderMoney2Day(i) = conn.execute("select sum(dis_sum+fei+packing_price+fapiao_money) from [Lebi_orders] where instr(orderzt,'2')>0 and datediff('d',order_time,'"& date-15 + i &"')=0")(0)
		End If
		If IsNull(OrderMoney1Day(i)) Or OrderMoney1Day(i) = "" Then OrderMoney1Day(i) = 0
		If IsNull(OrderMoney2Day(i)) Or OrderMoney2Day(i) = "" Then OrderMoney2Day(i) = 0
		OrderMoney1total = OrderMoney1total + OrderMoney1Day(i)
		OrderMoney2total = OrderMoney2total + OrderMoney2Day(i)
Next
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
Response.Write("<script language=""javascript"" type=""text/javascript"" src=""inc/js/NewEvent.js""></script>")
Response.Write("<script language=""javascript"" type=""text/javascript"" src=""inc/js/jquery-1.4.4.min.js""></script>")
Response.Write("<script language=""javascript"" type=""text/javascript"" src=""inc/js/highcharts/highcharts.js""></script>")
'Response.Write("<script language=""javascript"" type=""text/javascript"" src=""inc/js/highcharts/themes/dark-blue.js""></script>")
Response.Write("<script type=""text/javascript"">")
Response.Write("var chart;")
Response.Write("$(document).ready(function() {")
Response.Write("chart = new Highcharts.Chart({")
Response.Write("chart: {renderTo: 'container',defaultSeriesType: 'column'},")
Response.Write("title: {text: '"& Lang_Admin(33) &"'},")
Response.Write("subtitle: {text: ''},")
Response.Write("xAxis: {categories: [")
For TheDay = 1 To 15
		Response.Write("'<a href=Admin_orders.asp?s_dateFrom="& Date-15+TheDay &"&s_dateTo="& Date-15+TheDay &">"& Month(Date-15+TheDay) &"-"& Day(Date-15+TheDay) &"</a>'")
		If TheDay < 15 Then Response.Write(",")
Next
Response.Write("]},")
Response.Write("yAxis: {min: 0,title: {text: ''}},")
Response.Write("legend: {layout: 'vertical',backgroundColor: '#FFFFFF',align: 'left',verticalAlign: 'top',x: 100,y: 70,floating: true,shadow: true},")
Response.Write("tooltip: {formatter: function() {return ''+this.x +': '+ this.y +' ';}},")
Response.Write("plotOptions: {column: {pointPadding: 0.2,borderWidth: 0}},")
Response.Write("series: [{name: '-"& Lang_Admin(2) &"',data: [")
For TheDay = 1 To 15
		Response.Write(Replace(formatnumber(OrderMoney1Day(TheDay),2),",",""))
		If TheDay < 15 Then Response.Write(", ")
Next
Response.Write("]}, {name: '-"& Lang_Admin(3) &"',data: [")
For TheDay = 1 To 15
		Response.Write(Replace(formatnumber(OrderMoney2Day(TheDay),2),",",""))
		If TheDay < 15 Then Response.Write(", ")
Next
Response.Write("]}]")
Response.Write("});});")
Response.Write("</script>")
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""classtable-top"">")
Response.Write("<tr>")
Response.Write("<td width=""15%"" height=""30"" class=""classhead""><div style=""line-height:30px; background: url(images/icon/1.gif) no-repeat; background-position:0 7px; padding-top: 1px; padding-left:20px""> "& Lang_Menu(41) &"</div></td>")
Response.Write("<td class=""classhead""><span id=""ShowSound""></span><a href=""Admin_orders.asp?orderzt=0"" title="""& Lang_Menu(91) &""">"& Lang_Menu(42) &"<span id=""ajax_order"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_buy.asp?state=0"" title="""& Lang_Menu(169) &""">"& Lang_Menu(43) &"<span id=""ajax_onlinepay"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_payment_inform.asp?state=0"" title="""& Lang_Menu(170) &""">"& Lang_Menu(44) &"<span id=""ajax_payment"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_dvote.asp?state=0"" title="""& Lang_Menu(171) &""">"& Lang_Menu(45) &"<span id=""ajax_comment"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_book.asp?state=0""  title="""& Lang_Menu(173) &""">"& Lang_Menu(46) &"<span id=""ajax_guestbook"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_msg.asp?m_type=2&m_view=0"" title="""& Lang_Menu(175) &""">"& Lang_Menu(47) &"<span id=""ajax_message"" style=""color:#FF0000;font-weight:bold;"">0</span></a>&nbsp;&nbsp;<a href=""Admin_orders.asp?s_order_number=支付宝_申请退款"">"& Lang_Menu(191) &"<span id=""ajax_refund"" style=""color:#FF0000;font-weight:bold;"">0</span></a></td>")
Response.Write("</tr>")
Response.Write("<tr valign=""middle"" class=""classtop"">")
Response.Write("<td height=""30"" colspan=""4"" class=""classtop"">"& Lang_Admin(1) &"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=""4"">")
Response.Write("<div id=""container"" style=""width: 900px; height: 300px; margin: 0 auto""></div>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table></div></div>")
Response.Write("<script language=""javascript"" type=""text/javascript"">")
Response.Write("setTimeout('NewEvent()',3000);")
Response.Write("</script>")
'If ArrData(6) = "1" Then
Response.Write("<div class=""mainbody-block"">")
Response.Write("<div class=""mainbody-block2"">")
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""info"" class=""classtable"">")
Response.Write("<tr>")
Response.Write("<td height=""30"" class=""classtop"" colspan=""4"">"& Lang_Admin(28) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td colspan=""4"" align=""center"" class=""classrow""><iframe SRC=""http://www.56770.com/BKMessage/"" NAME=""News"" WIDTH=""100%"" HEIGHT=""108"" MARGINWIDTH=""0"" MARGINHEIGHT=""0"" HSPACE=""0"" VSPACE=""0"" FRAMEBORDER=""0"" SCROLLING=""no""></iframe></td>")
Response.Write("</tr>")
'End If
If ArrData(7) = "1" Then
Response.Write("<tr>")
Response.Write("<td height=""30"" class=""classtop"" colspan=""4"">"& Lang_Admin(4) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td width=""15%"" height=""30"" class=""classrow"">"& Lang_Admin(5) &"</td>")
Response.Write("<td width=""85%"" colspan=""3"" class=""classrow"">56770 EShop Version "& copy_soft &" <script src=""http://www.56770.com/post/b.asp?u="& server.urlencode(Request.ServerVariables("SERVER_NAME") & Eshop_Url) &"&v="& copy_soft &"&n="& server.urlencode(sys_name) &"&m="& server.urlencode(sys_mail) &"""></script>")
If AutoCheck = 1 Then 
		If session("CheckNewVersion") = "" Then
				If CheckNewVersion = 1 Or session("CheckNewVersion") = "1" Then 
						Response.Write(" <a href='admin_upgrade.asp'><span style=""color:#0000ff"">"& Lang_sys(98) &"</span></a>")
				End If
		End If
End If 
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td width=""15%"" height=""30"" class=""classrow"">"& Lang_Admin(6) &"</td>")
Response.Write("<td width=""35%"" class=""classrow"">2005SR04603</td>")
Response.Write("<td width=""15%"" class=""classrow"">"& Lang_Admin(7) &"</td>")
Response.Write("<td width=""35%"" class=""classrow"">"& Lang_Admin(8) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(10) &"</td>")
Response.Write("<td class=""classrow""><a href=""http://www.56770.com/"" target=""_blank"">http://www.56770.com/</a></td>")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(9) &"</td>")
Response.Write("<td class=""classrow""><a href=""http://www.56770.com/About/contact.html"" target=""_blank"">http://www.56770.com/About/contact.html</a></td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(11) &"</td>")
Response.Write("<td colspan=""3"" class=""classrow""><a href=""http://union.56770.com/"" target=""_blank"">http://union.56770.com/</a></td>")
Response.Write("</tr>")
Response.Write("</table></div></div>")
End If
Response.Write("<div class=""mainbody-block"">")
Response.Write("<div class=""mainbody-block2"">")
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""system"" class=""classtable"">")
Response.Write("<tr>")
Response.Write("<td height=""30"" class=""classtop"" colspan=""4"">"& Lang_Admin(12) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td width=""15%"" height=""30"" class=""classrow"">"& Lang_Admin(13) &"</td>")
Response.Write("<td width=""35%"" class=""classrow"">"& Request.ServerVariables("SERVER_NAME") &"</td>")
Response.Write("<td width=""15%"" height=""30"" class=""classrow"">"& Lang_Admin(14) &"</td>")
Response.Write("<td width=""35%"" class=""classrow"">"& Now &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(15) &"</td>")
Response.Write("<td class=""classrow"">"& Request.ServerVariables("LOCAL_ADDR") &"</td>")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(16) &"</td>")
Response.Write("<td class=""classrow"">"& Server.Mappath(Eshop_url) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(17) &"</td>")
Response.Write("<td class=""classrow"">"& Request.ServerVariables("SERVER_SOFTWARE") &"</td>")
Response.Write("<td height=""30"" class=""classrow"">"& Lang_Admin(18) &"</td>")
Response.Write("<td class=""classrow"">"& ScriptEngine&":"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion &"</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td height=""30"" colspan=""4"" class=""classtop"">"& Lang_Admin(19) &"</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td class=""classrow"" height=""30"">"& Lang_Admin(20) &"</td>")
Response.Write("<td class=""classrow"">")
Dim FoundFso
FoundFso = False
FoundFso = IsObjInstalled("Scripting.FileSystemObject")
If FoundFso Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("<td class=""classrow"">"& Lang_Admin(22) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("JMail.SmtpMail") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td class=""classrow"" height=""30"">"& Lang_Admin(23) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("CDONTS.NewMail") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("<td class=""classrow"">"& Lang_Admin(24) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("Persits.MailSender") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td class=""classrow"" height=""30"">"& Lang_Admin(21) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("Adodb.Stream") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("<td class=""classrow"">"& Lang_Admin(25) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("Persits.Upload") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr class=""classrow"">")
Response.Write("<td class=""classrow"" height=""30"">"& Lang_Admin(26) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("SoftArtisans.FileUp") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("<td class=""classrow"">"& Lang_Admin(27) &"</td>")
Response.Write("<td class=""classrow"">")
If IsObjInstalled("Persits.Jpeg") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("<script>tdshow(""info"");tdshow(""system"");</script>")
Response.Write("</div>")
Response.Write("</div>")
Get_Usersurl()
LB_Footer()
%>