<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_count.asp
'* 最后更新 2011-01-07 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",10.3,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_count.inc"
CurrentId = 0
CurrentUrl = "admin_count.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
		adminflag()
Else
		If OutSubmit = 1 Then CheckOutSubmit()
        Select Case request("action")
		       Case "update" update()
			   Case Else
			        main()
		End Select
End If
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub update
        If OnlyRead = 1 Then OnlyReadMessage()
		today = CheckNum(request("today"),1)
		yestoday = CheckNum(request("yestoday"),1)
		allcount = CheckNum(request("allcount"),1)
		shuaxin = CheckNum(request("shuaxin"),0)
		ys = CheckNum(request("ys"),0)
		sj2 = safereplace(request("sj2"))
		set rs = server.CreateObject("adodb.recordset")
		sql = "select today,yestoday,allcount,shuaxin,ys,sj2 from [Lebi_count]"
		rs.open sql, conn, 1, 3
		rs("today")=today
		rs("yestoday")=yestoday
		rs("allcount")=allcount
		rs("shuaxin")=shuaxin
		rs("ys")=ys
		rs("sj2")=sj2
		rs.update
		rs.close : Set rs=Nothing
		ManageLog Lang_Count(1)
		m_t=Lang_sys(69)
		m_s="·"& Lang_sys(68)
		m_u="?"
		m_time="2"
		Call Up_mes(m_t,m_s,0,m_u,0,0,m_time,1)
End Sub

Sub main
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="classtable" class="classtable">
<form name="update" method="POST" action="?">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"><input type="hidden" name="action" value="update"></td>
	<td align="right" class="classhead">
	<%=QuickMenu("admin_log.asp|"& Lang_Menu(59) &"","admin_lockip.asp|"& Lang_Menu(152) &"")%>
	</td>
 </tr>
<tr>
   <td class="classtop" height="30" colspan="2"><%=Lang_Menu(151)%></td>
</tr>
<%set rs=conn.execute("select * from [Lebi_count]")%>
<tr class="classrow">
 <td height="30" class="classrow" colspan=2><%=Lang_Count(2)%><%=date()-rs("sj2")%>&nbsp;&nbsp;<%=Lang_Count(3)%><%=int(rs("allcount")/(date()-rs("sj2")+1))%></td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_Count(4)%></td>
<td width="85%" class="classrow"><input type="radio" value="1" <%if rs("shuaxin")="1" then Response.Write"checked"%> name="shuaxin"> <%=Lang_Count(5)%>
<input type="radio" value="0" <%if rs("shuaxin")="0" then Response.Write "checked"%> name="shuaxin"> <%=Lang_Count(6)%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_Count(7)%></td>
<td width="85%" class="classrow"><input type="text" name="today" size="15" value="<%=rs("today")%>" class="form">
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_Count(8)%></td>
<td width="85%" class="classrow"><input type="text" name="yestoday" size="15" value="<%=rs("yestoday")%>" class="form">
</td>
</tr
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_Count(9)%></td>
<td width="85%" class="classrow"><input type="text" name="allcount" size="15" value="<%=rs("allcount")%>" class="form">
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_Count(10)%></td>
<td width="85%" class="classrow"><input type="text" name="sj2" size="15" value="<%=rs("sj2")%>" class="form"> <%=Lang_Count(11)%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><input type="radio" value="0" <%if rs("ys")=0 then Response.Write"checked"%> name="ys"> <%=Lang_Count(12)%></td>
<td width="85%" class="classrow"><%=Lang_Count(15)%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><input type="radio" value="1" <%if rs("ys")=1 then Response.Write"checked"%> name="ys"> <%=Lang_Count(13)%></td>
<td width="85%" class="classrow"><%=Replace(Lang_Count(16),"[all]",rs("allcount"))%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><input type="radio" value="2" <%if rs("ys")=2 then Response.Write"checked"%> name="ys"> <%=Lang_Count(14)%></td>
<td width="85%" class="classrow"><%=Replace(Replace(Replace(Lang_Count(17),"[t1]",rs("today")),"[t2]",rs("yestoday")),"[t3]",rs("allcount"))%>
</td>
</tr>
<tr>
<td class="classfooter" height="30" colspan="2">
<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle">
</td>
</tr>
</form>
<tr>
<td colspan="2" class="classfaq">
  <div class="faq_main">
  <p class="faq_title"><%=Lang_sys(49)%></p>
   <%=Lang_Count(18)%>
   <br><%=Lang_Count(19)%>
  </div>
</td>
</tr>
</table>
<script>tdshow("classtable");</script>
<%
rs.close:set rs=Nothing
End Sub
%>