📄 admin_index.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<% set rs=server.createobject("adodb.recordset") %>
<table width="100%" border="0" cellspacing="2">
<tr>
<td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td>
<td class="b1" valign="top">
<%
if not isnull(cUserName) and cUserName<>"" then
call main()
else
msgtitle="下载系统管理中心"
msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a><li><a href=""./"">返回频道首页</a></li>"
call Sysmsg(msgtitle,msginfo)
end if
sub main() %>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td height="25" align="center" class="tdbg1"><strong><font color="#FF0000">下载系统管理中心</font></strong></td>
</tr>
<tr>
<td class="tdbg2">
<%
'datediff('d',SoftTime,date())
%>
<% Response.Write(cUserName & " 你好！欢迎来到下载系统管理中心") %> 你的软件更新情况如下：<br>
本日更新:<% set countRs=conn.execute("select count(softid) from SoftDown_SoftInfo where datediff('d',SoftTime,date())<1 and username='"&cUserName&"'")
Response.Write("<a href=""Admin_Soft_List.asp?page=1&action=s&keyword=&selby=1&catalog=&DateTime="&date()-1&"&username="&cUserName&"""><font color=red>"&countRs(0)&"</font></a>")
set countRs=nothing
%>个 近两日更新:<% set countRs=conn.execute("select count(softid) from SoftDown_SoftInfo where datediff('d',SoftTime,date())<2 and username='"&cUserName&"'")
Response.Write("<a href=""Admin_Soft_List.asp?page=1&action=s&keyword=&selby=1&catalog=&DateTime="&date()-2&"&username="&cUserName&"""><font color=red>"&countRs(0)&"</font></a>")
set countRs=nothing
%>个
本月更新:<% set countRs=conn.execute("select count(softid) from SoftDown_SoftInfo where datediff('d',SoftTime,date())<"&day(Date())&" and username='"&cUserName&"'")
Response.Write("<a href=""Admin_Soft_List.asp?page=1&action=s&keyword=&selby=1&catalog=&DateTime="&DateSerial(year(date), month(date), 1 - 1)&"&username="&cUserName&"""><font color=red>"&countRs(0)&"</font></a>")
Response.Write("个 平均每天:"& round(countRs(0)/day(Date()),2) )
set countRs=nothing
%>个
</td>
</tr>
</table>
<% if chkMaster(cUserName) then %>
<SCRIPT LANGUAGE=javascript>
<!--
function OpenWin(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
//-->
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td colspan="3" align="center" class="tdbg1">前台消息</td>
</tr>
<% sql="select top 10 ID,Title,DateTime,UserName from SoftDown_Message order by ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<tr><td class=""tdbg2"" colspan=""3"">Sorry！没有查询到任何记录。</td></tr>"
else
do while not Rs.eof
%>
<tr>
<td class="tdbg2">·<% Response.Write("<a href=""javascript:OpenWin('SendMessages.asp?action=read&ID="&rs("ID")&"',480,350)"">"&rs("Title")&"</a>") %></td>
<td class="tdbg2"><%= FormatDateTime(rs("DateTime"),2) %></td>
<td class="tdbg2"><%= rs("UserName") %></td>
</tr>
<% Rs.movenext
loop
Response.Write "<tr><td class=""tdbg2"" colspan=""3"" align=""right""><a href=""Admin_SendMessage.asp""> >>> 更多消息</a></td></tr>"
end if
rs.close
%>
</table>
<% end if %>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td colspan="4" align="center" class="tdbg1">软件搜索</td>
</tr>
<form name="form_soft" method="post" action="Admin_Soft_List.asp">
<tr>
<td class="tdbg2"><input name="action" type="hidden" value="s">
关键字： </td>
<td colspan="3" class="tdbg2"><input name="keyword" type="text" size="50" maxlength="80">
</td>
</tr>
<tr>
<td class="tdbg2">软件分类：</td>
<td class="tdbg2"><select name="catalog">
<% Response.Write( Catalog_Select(0,"SoftDown")) %>
</select></td>
<td class="tdbg2">搜索条件</td>
<td class="tdbg2"><select name="selby" id="selby">
<option value="1">搜索软件名称</option>
<option value="2">搜索软件简介</option>
<option value="0">两者都搜索</option>
</select></td>
</tr>
<tr align="center">
<td colspan="4" class="tdbg2"><input type="submit" name="Submit" value="执行搜索"></td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td colspan="4" align="center" class="tdbg1">文章搜索</td>
</tr>
<form name="form_soft" method="post" action="Admin_Article_List.asp">
<tr>
<td class="tdbg2"><input name="action" type="hidden" value="s">
关键字： </td>
<td colspan="3" class="tdbg2"><input name="keyword" type="text" size="50" maxlength="80">
</td>
</tr>
<tr>
<td class="tdbg2">文章分类：</td>
<td class="tdbg2"><select name="catalog">
<% Response.Write( Catalog_Select(0,"info")) %>
</select></td>
<td class="tdbg2">搜索条件</td>
<td class="tdbg2"><select name="selby" id="selby">
<option value="1">搜索文章标题</option>
<option value="2">搜索文章内容</option>
<option value="0">两者都搜索</option>
</select></td>
</tr>
<tr align="center">
<td colspan="4" class="tdbg2"><input type="submit" name="Submit" value="执行搜索"></td>
</tr>
</form>
</table>
<% end sub %>
</td>
</tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% set rs=nothing
CloseDatabase %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -