<!--#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
'* 文件名称 Home_Mes.asp
'* 最后更新 2013-03-01 by 56770.kingdge
'*****************************************
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_book.inc"
include "lang/"& LangFilePath &"/lang_dvote.inc"
include "lang/"& LangFilePath &"/lang_msg.inc"
CurrentId = 4
CurrentUrl = "home_mes.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If Eshop_Lebi_name="" Then
		adminflag()
End If
Select Case Request("action")
	   Case Else
			Main()
End Select
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub Main()
book_num_0=conn.Execute("Select Count(ID) from [guestbook] where show=0")(0)
book_num_1=conn.Execute("Select Count(ID) from [guestbook] where show=1")(0)
vote_num_0=conn.Execute("Select Count(ID) from [Lebi_Dvote] where show=0")(0)
vote_num_1=conn.Execute("Select Count(ID) from [Lebi_Dvote] where show=1")(0)
msg_num_0=conn.Execute("Select Count(ID) from [Lebi_message] where ifview=0")(0)
msg_num_1=conn.Execute("Select Count(ID) from [Lebi_message] where ifview=1")(0)
msg_num_2=conn.Execute("Select Count(ID) from [Lebi_message] where ifre=0")(0)
msg_num_3=conn.Execute("Select Count(ID) from [Lebi_message] where ifre=1")(0)
msg_num_4=conn.Execute("Select Count(ID) from [Lebi_message]")(0)
%>
<script language="javascript" type="text/javascript" src="inc/js/js_link.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="book" class="classtable">
<tr>
<td height="30" class="classhead"><%=Lang_Menu(172)%></td>
<td colspan="2" class="classhead"><%=Lang_book(24)%><a href="Admin_book.asp?state=0"><font color=red><%=book_num_0%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_book(25)%><a href="Admin_book.asp?state=1"><font color=red><%=book_num_1%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_book(26)%><a href="Admin_book.asp"><font color=red><%=book_num_0+book_num_1%></font></a></td>
<td align="right" class="classhead">
<%=QuickMenu("","admin_news.asp|"& Lang_Menu(125) &"")%>
</td>
<tr>
  <td height="30" class="classtop" width="10%"><%=Lang_book(10)%></td>
  <td class="classtop" width="70%"><%=Lang_book(11)%></td>
  <td class="classtop" width="10%"><%=Lang_book(12)%></td>
  <td class="classtop" width="10%"><%=Lang_book(6)%></td>
 </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 5 * from [guestbook] order by id desc"
rs.open sql,conn,1,1
if Not rs.eof then
        do while not rs.eof
%>
<tr class="classrow">
  <td height="30" class="classrow" title="<%=rs("time")%>"><%=FormatDateTime(rs("time"),2)%></td>
  <td height="30" class="classrow"><img src="../images/icons/<%=rs("face")%>.gif" align="absmiddle" width="17"><a href="Admin_book.asp?action=reply&id=<%=rs("id")%>" title="<%=Lang_book(2)%>"><%=rs("title")%></a></td>
  <td height="30" class="classrow"><%=rs("name")%></td>
  <td height="30" class="classrow"><%if rs("show")=1 then response.write"<font color=red>"& Lang_book(9) &"</font>" else response.write Lang_book(8) end if%></td>
</tr>
<%
rs.movenext
Loop
End If
rs.close : Set rs = Nothing
%>
</table>
</div>
</div>
<div class="mainbody-block">
<div class="mainbody-block2">
<table cellspacing="0" cellpadding="0" width="100%" border="0" id="dvote" class="classtable">
<tr>
<td height="30" class="classhead"><%=Lang_Menu(119)%></td>
<td colspan="4" class="classhead"><%=Lang_Dvote(18)%><a href="Admin_Dvote.asp?state=0"><font color=red><%=vote_num_0%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Dvote(19)%><a href="Admin_Dvote.asp?state=1"><font color=red><%=vote_num_1%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Dvote(20)%><a href="Admin_Dvote.asp"><font color=red><%=vote_num_0+vote_num_1%></font></a></td>
</tr>
<tr>
  <td height="30" class="classtop" width="10%"><%=Lang_Dvote(17)%></td>
  <td class="classtop" width="70%" colspan="2"><%=Lang_Dvote(10)%></td>
  <td class="classtop" width="10%"><%=Lang_Dvote(12)%></td>
  <td class="classtop" width="10%"><%=Lang_Dvote(5)%></td>
 </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 5 d.*,p.pic,p.product_name from [Lebi_Dvote] as d,[Lebi_Product] as p where d.downid = p.id order by d.id desc"
rs.open sql,conn,1,1
if Not rs.eof then
        do while not rs.eof
%>
<tr class="classrow">
  <td height="30" class="classrow" title="<%=rs("vtime")%>"><%=FormatDateTime(rs("vtime"),2)%></td>
  <td height="30" class="classrow"><div class="pro-pic"><img src='../<%= PicPath %>/<%=trim(rs("pic"))%>' width='50' height='50' align='absmiddle' onMouseover="javascript:ddrivetip('<table cellspacing=0 cellpadding=6 width=100% align=center><tr><Td width=<%=Upload_SPicWidth%>><img src=../<%= PicPath %>/<%=trim(rs("pic"))%> width=<%=Upload_SPicWidth%>></td></tr><tr><Td height=20><%=rs("product_name")%></td></tr></table>', '#ffffff', '<%=Upload_SPicWidth%>')" onMouseout="hideddrivetip()" border="0"></div></td>
  <td class="classrow"><a href="Admin_Dvote.asp?action=reply&id=<%=rs("id")%>" title="<%=Lang_Dvote(15)%>"><%=rs("content")%></a><br />
<%if rs("replay")<>"" then response.write"<font color=red>"& Lang_Dvote(14) &"</font>"&rs("replay")&"" end if%></td>
  <td height="30" class="classrow"><%=rs("name")%>&nbsp;</td>
  <td height="30" class="classrow"><%if rs("show")=1 then response.write"<font color=red>"& Lang_Dvote(8) &"</font>" else response.write Lang_Dvote(7) end if%></td>
</tr>
<%
rs.movenext
Loop
End If
rs.close : Set rs = Nothing
%>
</table>
</div>
</div>
<div class="mainbody-block">
<div class="mainbody-block2">
<table cellspacing="0" cellpadding="0" width="100%" border="0" id="message" class="classtable">
<tr>
<td height="30" class="classhead"><%=Lang_Menu(174)%></td>
<td colspan="3" class="classhead"><%=Lang_Msg(32)%><a href="Admin_msg.asp?m_type=3"><font color=red><%=msg_num_0%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Msg(33)%><a href="Admin_msg.asp?m_type=4"><font color=red><%=msg_num_1%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Msg(34)%><a href="Admin_msg.asp?m_type=5"><font color=red><%=msg_num_2%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Msg(35)%><a href="Admin_msg.asp?m_type=6"><font color=red><%=msg_num_3%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_Msg(36)%><a href="Admin_msg.asp"><font color=red><%=msg_num_4%></font></a></td>
</tr>
<tr>
  <td height="30" class="classtop" width="10%"><%=Lang_Msg(20)%></td>
  <td class="classtop" width="70%"><%=Lang_Msg(19)%></td>
  <td class="classtop" width="10%"><%=Lang_Msg(17)%></td>
  <td class="classtop" width="10%"><%=Lang_Msg(16)%></td>
 </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 5 * from [Lebi_message] order by id desc"
rs.open sql,conn,1,1
if Not rs.eof then
        do while not rs.eof
%>
<tr class="classrow">
  <td height="30" class="classrow" title="<%=rs("idate")%>"><%=FormatDateTime(rs("idate"),2)%></td>
  <td height="30" class="classrow">
<%
if rs("ifview")="1" Then
		response.write "<img src=""images/mes_view.gif"" width=""16"" height=""13"" align=""absmiddle"" title="""& Lang_Msg(8) &""" /> "
Else 
		response.write "<img src=""images/mes_new.gif"" width=""16"" height=""13"" align=""absmiddle"" title="""& Lang_Msg(7) &""" /> "
end If
%>
  <a href="Admin_msg.asp?action=re&id=<%=rs("id")%>" title="<%=Lang_Msg(23)%>"><%=rs("subject")%></a></td>
  <td height="30" class="classrow"><%=rs("user_id")%></td>
  <td height="30" class="classrow"><%
if rs("ifre")="0" then
		response.write"<a href=""admin_msg.asp?action=re&id="&rs("id")&" "">"& Lang_Msg(9) &"</a>"
else
        response.write "<font color=#FF0000>"& Lang_Msg(10) &"</font>"
end if
%></td>
</tr>
<%
rs.movenext
Loop
End If
rs.close : Set rs = Nothing
%>
</table>
<script language="javascript">tdshow("book");tdshow("dvote");tdshow("message");</script>
<%
End Sub
%>