<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ExeConn.Asp" -->
<!--#include file="ExeCute.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>安装量统计</title>
<style type="text/css">
<!--
body ,th,td{font:normal 12px 宋体; }
.STYLE1 {
	font-size: 12px;
	font-weight: bold;
}
body  { margin:0px; background:#C4D8ED; margin:0px; padding:10px; SCROLLBAR-FACE-COLOR: #72A3D0; SCROLLBAR-HIGHLIGHT-COLOR: #337ABB; SCROLLBAR-SHADOW-COLOR: #337ABB; SCROLLBAR-DARKSHADOW-COLOR: #337ABB; SCROLLBAR-3DLIGHT-COLOR: #337ABB; SCROLLBAR-ARROW-COLOR: #FFFFFF;SCROLLBAR-TRACK-COLOR: #337EC0; }
a { color: #135294; text-decoration: none; }
a:hover { color: #ff6600; text-decoration: underline; }
td { height:22px; line-height:20px; font-size:12px;color:#135294; padding:2px; }
-->
</style></head>

<body>
<%
Dim username,pass
page=Clng(request.QueryString("page"))
Action=Trim(request.QueryString("Action"))
pass=Trim(request.form("pass"))
username=Trim(request.form("username"))
If Action="Login" Then
 if pass="" or username="" Then
    Response.Write "用户名和密码不能为空"
	Response.end
 Elseif	pass<>PassWord or username<>Administrator Then
    Response.Write "用户和密码错误"
 Else
    Session("Admin")="QvodCmsWebPlayer"	
	Response.Redirect "Admin.Asp?Action=WebAdmin"
 End If
Elseif Action="Exit" Then
    Session("Admin")=""
	Session.Abandon() 
	Response.Redirect "Admin.Asp?Action=WebAdmin"
End If
If Session("QvodCms")="" Then
%>

<table width="277" border="0" align="center" cellpadding="0" cellspacing="0">
<form id="form1" name="form1" method="post" action="?Action=Login">
  <tr>
    <td height="25" colspan="3"><div align="center">管理登录</div></td>
  </tr>
  <tr>
    <td width="43" height="25">用户名</td>
    <td width="163"><label>
      <input name="username" type="text" id="username" size="20" maxlength="20" />
    </label></td>
    <td width="71" rowspan="2"><label>
      <input type="submit" name="button" id="button" value="提交" style="width:55px; height:55px;" />
    </label></td>
  </tr>
  <tr>
    <td height="25">密&nbsp;码</td>
    <td><label>
      <input name="pass" type="password" id="pass" size="20" maxlength="20" />
    </label></td>
  </tr></form>
</table>
<%
Response.End()
Else
Set rs = Server.CreateObject("adodb.recordset")
rs.open"Select * from [keyd] order by id desc",conn,1,1
 If not(rs.eof and rs.bof) Then
rs.pagesize=15
incount=rs.RecordCount
        if  page<>"" then
        page=cint(page)
        if  not isnumeric(page) or page<1 then page=1
        if page>rs.pagecount then  page=rs.pagecount
        else
        page=1
        end if
        rs.absolutepage=page
        countpage=rs.pagecount'计算能分多少页
 
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"  style="border:1px #fff solid">
  <tr bgcolor="#EEEEEE">
    <td height="28" colspan="4" bgcolor="#C4D8ED"><div align="center"><span class="STYLE1"><%=Wbname%>安装统计系统</span></div></td>
  </tr>
  <tr bgcolor="#EEEEEE">
    <td width="74" height="24" align="center" bgcolor="#E4EDF9">编号</td>
    <td width="446" bgcolor="#E4EDF9" style="padding-left:10px;">认证KEY</td>
    <td colspan="2" align="center" bgcolor="#E4EDF9">安装时间</td>
  </tr>
  <%
  Do while not rs.eof
    p=p+1
  %>
  <tr bgcolor="#EEEEEE">
    <td height="23" bgcolor="#FFFFFF" style="padding-left:5px;"><%=rs("id")%></td>
    <td bgcolor="#FFFFFF" style="padding-left:10px; color:#006600"><%=rs("keyname")%></td>
    <td colspan="2" bgcolor="#FFFFFF">&nbsp;<%=rs("times")%></td>
  </tr>
   <%
   rs.Movenext
   if p=15 then exit do
   Loop
   %>
  <tr bgcolor="#EEEEEE">
    <td height="23" colspan="4" bgcolor="#FFFFFF">&nbsp;
    <%Response.write htmlpage(page,"柴九")%></td>
  </tr>
</table>
<%
   Rs.Close:Set rs=Nothing:Conn.Close:Set Conn=Nothing
Else
Response.Write "<div align='Center'>太伤心了---还没有用户安装你的播放器！<div>"
End if
End IF
%>
<table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:20px;">
  <tr>
    <td align="center">CopyrCopyright &copy;2008 - 2009 QvodCms.Com All Rights Reserved&nbsp;&nbsp;</td>
  </tr>
</table>

</body>
</html>
