<!--#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
'* 文件名称 Admin.asp
'* 最后更新 2010-09-19 by 56770.kingdge
'**************************************
admintop()
If Eshop_Lebi_name="" Then
		adminflag()
End If
include "lang/"& LangFilePath &"/lang_admin.inc"
Function IsObjInstalled(strClassString)
		On Error Resume Next
		IsObjInstalled = False
		Err = 0
		Dim xTestObj
		Set xTestObj = Server.CreateObject(strClassString)
		If 0 = Err Then IsObjInstalled = True
		Set xTestObj = Nothing
		Err = 0
End Function
%>
<div class="mainbody">
	<div class="mainbody2">
<table width="99%" border="0" cellspacing="0" cellpadding="3" class="classtable" style="margin-bottom:5px;">
<tr>
	<td height="30" class="classtop" colspan="4"><%=Lang_Admin(28)%></td>
</tr>
<tr class="classtd">
	<td colspan="4" align="center" class="classtd">
		<iframe name="News" frameborder="0" width="100%" height="98" scrolling="no" src="http://www.56770.com/BKMessage/"></iframe>
	</td>
</tr>
<%
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
		Arr_OrderMoney1Day = Arr_OrderMoney1Day & OrderMoney1Day(i) &","
		Arr_OrderMoney2Day = Arr_OrderMoney2Day & OrderMoney2Day(i) &","
		OrderMoney1total = OrderMoney1total + OrderMoney1Day(i)
		OrderMoney2total = OrderMoney2total + OrderMoney2Day(i)
Next
If CLng(GetMaxNum(Arr_OrderMoney1Day)) >= CLng(GetMaxNum(Arr_OrderMoney2Day)) Then
        MaxRownum = GetMaxNum(Arr_OrderMoney1Day)
Else
        MaxRownum = GetMaxNum(Arr_OrderMoney2Day)
End If
If CLng(GetMaxNum(Arr_PTDay)/60) > CLng(MaxRownum) Then MaxRownum = CLng(GetMaxNum(Arr_PTDay)/60)
ShowOrderMoney1total = OrderMoney1total : ShowOrderMoney2total = OrderMoney2total : ShowPTtotal = PTtotal
If Not IsNumeric(OrderMoney1total) Or IsEmpty(OrderMoney1total) Or OrderMoney1total = 0 Then OrderMoney1total = 1
If Not IsNumeric(OrderMoney1total) Or IsEmpty(OrderMoney1total) Or OrderMoney1total = 0 Then ShowOrderMoney1total = 0
If Not IsNumeric(OrderMoney2total) Or IsEmpty(OrderMoney2total) Or OrderMoney2total = 0 Then OrderMoney2total = 1
If Not IsNumeric(OrderMoney2total) Or IsEmpty(OrderMoney2total) Or OrderMoney2total = 0 Then ShowOrderMoney2total = 0
If Not IsNumeric(MaxRownum) Or IsEmpty(MaxRownum) Or MaxRownum = 0 Then MaxRownum = 1
%>
<tr valign="middle" class="classtop">
	<td height="30" colspan="4" class="classtop"><%=Lang_Admin(1)%></td>
</tr>
<tr>
	<td class="classtd" colspan="4">
		<table width="96%" cellspacing="0" cellpadding="2" class="gra_tab">
		  <tr>
			<td class="gra_y" valign="top"><%=formatnumber2(MaxRownum)%>&nbsp;<br /><br /><br /><br /><%=formatnumber2(MaxRownum*0.75)%>&nbsp;<br /><br /><br /><br /><%=formatnumber2(MaxRownum*0.5)%>&nbsp;<br /><br /><br /><br /><%=formatnumber2(MaxRownum*0.25)%>&nbsp;<br /><br /><br /><br />0.00&nbsp;</td>
			<td class="gra_1">
			  <table width="100%" cellspacing="0" cellspacing="0">
<tr>
<%
For TheDay = 1 To 15
%>
<td height="200" class="gra_x" valign="bottom"><img alt="<%=Date-15+TheDay%>
<%=Lang_Admin(2)%>: <%=LanguageMoney(LangT)%><%=formatnumber2(OrderMoney1Day(TheDay))%>, <%=formatnumber2(OrderMoney1Day(TheDay)/OrderMoney1total*100)%>%" src="images/0.gif" class="gra_OrderMoney1" style="width:10px;height:<%=200*(OrderMoney1Day(TheDay)/MaxRownum)%>px"><img alt="<%=Date-15+TheDay%>
<%=Lang_Admin(3)%>: <%=LanguageMoney(LangT)%><%=formatnumber2(OrderMoney2Day(TheDay))%>, <%=formatnumber2(OrderMoney2Day(TheDay)/OrderMoney2total*100)%>%" src="images/0.gif" class="gra_OrderMoney2" style="width:10px;height:<%=200*(OrderMoney2Day(TheDay)/MaxRownum)%>px" /></td>
<%
Next
%>
</tr>
<tr>
<%
For TheDay = 1 To 15
%>
<td class="gra_x" title="<%=Date-15+TheDay%>
<%=Lang_Admin(2)%>: <%=LanguageMoney(LangT)%><%=formatnumber2(OrderMoney1Day(TheDay))%>, <%=formatnumber2(OrderMoney1Day(TheDay)/OrderMoney1total*100)%>%
<%=Lang_Admin(3)%>: <%=LanguageMoney(LangT)%><%=formatnumber2(OrderMoney2Day(TheDay))%>, <%=formatnumber2(OrderMoney2Day(TheDay)/OrderMoney2total*100)%>%"><a href="Admin_orders.asp?s_datefrom=<%=Date-15+TheDay%>&s_dateto=<%=Date-15+TheDay%>"><%=Day(Date-15+TheDay)%></a></td>
<%
Next
%>
</tr></table>
</td>
</tr>
		  <tr>
			<td align="center" height="30" colspan="4"><img alt="<%=Lang_Admin(2)%>" src="images/0.gif" class="gra_lOrderMoney1" />&nbsp;<%=Lang_Admin(2)%>&nbsp;<%=LanguageMoney(LangT)%><%=formatnumber2(ShowOrderMoney1total)%> &nbsp; <img alt="<%=Lang_Admin(3)%>" src="images/0.gif" class="gra_lOrderMoney2" />&nbsp;<%=Lang_Admin(3)%>&nbsp;<%=LanguageMoney(LangT)%><%=formatnumber2(ShowOrderMoney2total)%></td>
		  </tr>
		</table>
	</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="3" id="info" class="classtable">
<tr>
<td height="30" class="classtop" colspan="4"><%=Lang_Admin(4)%></td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(5)%></td>
	<td colspan="3" class="classtd">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></td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(6)%></td>
	<td colspan="3" class="classtd">2005SR04603</td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(7)%></td>
	<td class="classtd"><%=Lang_Admin(8)%></td>
	<td height="25" class="classtd"><%=Lang_Admin(9)%></td>
	<td class="classtd"><a href="http://www.56770.com/About/contact.html" target="_blank">http://www.56770.com/About/contact.html</a></td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(10)%></td>
	<td class="classtd"><a href="http://www.56770.com/" target="_blank">http://www.56770.com/</a></td>
	<td height="25" class="classtd"><%=Lang_Admin(11)%></td>
	<td class="classtd"><a href="http://union.56770.com/" target="_blank">http://union.56770.com/</a></td>
</tr>
<tr>
<td height="30" class="classtop" colspan="4"><%=Lang_Admin(12)%></td>
</tr>
<tr class="classtd">
	<td width="15%" height="25" class="classtd"><%=Lang_Admin(13)%></td>
	<td width="35%" class="classtd"><%=Request.ServerVariables("SERVER_NAME")%></td>
	<td width="15%" height="25" class="classtd"><%=Lang_Admin(14)%></td>
	<td width="35%" class="classtd"><%=now%></td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(15)%></td>
	<td class="classtd"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
	<td height="25" class="classtd"><%=Lang_Admin(16)%></td>
	<td class="classtd"><%=Server.Mappath(Eshop_url)%></td>
</tr>
<tr class="classtd">
	<td height="25" class="classtd"><%=Lang_Admin(17)%></td>
	<td class="classtd"><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
	<td height="25" class="classtd"><%=Lang_Admin(18)%></td>
	<td class="classtd"><%=ScriptEngine&":"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion%></td>
</tr>
<tr>
	<td height="30" colspan="4" class="classtop"><%=Lang_Admin(19)%></td>
</tr>
<tr class="classtd">
	<td class="classtd" height="25"><%=Lang_Admin(20)%></td>
	<td class="classtd">
	<%
	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
	%>
	</td>
	<td class="classtd"><%=Lang_Admin(22)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("JMail.SmtpMail") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
</tr>
<tr class="classtd">
	<td class="classtd" height="25"><%=Lang_Admin(23)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("CDONTS.NewMail") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
	<td class="classtd"><%=Lang_Admin(24)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("Persits.MailSender") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
</tr>
<tr class="classtd">
	<td class="classtd" height="25"><%=Lang_Admin(21)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("Adodb.Stream") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
	<td class="classtd"><%=Lang_Admin(25)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("Persits.Upload") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
</tr>
<tr class="classtd">
	<td class="classtd" height="25"><%=Lang_Admin(26)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("SoftArtisans.FileUp") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	%>
	</td>
	<td class="classtd"><%=Lang_Admin(27)%></td>
	<td class="classtd">
	<%
	If IsObjInstalled("Persits.Jpeg") Then
		Response.Write "<font color=green><b>√</b></font>"
	Else
		Response.Write "<font color=red><b>×</b></font>"
	End If
	'Get_Usersurl()
	%>
	</td>
</tr>
</table>
<script>tdshow("info");</script>
	</div>
</div>
</body>
</html>