📄 admin_dayupdate.asp
字号:
<!--#include file="Config.asp" -->
<HTML><HEAD><TITLE>数据更新 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<BODY leftMargin=0>
<%
dim AllSoft,DayUpdateAll,DayUpdateCHS,DayUpdateENG,DayUpdateHy,DayUpdateKeyGen,AllCHS,AllENG,AllHy,AllKeyGen,AllDownNum,AllSoftSize
set Rs=server.createobject("adodb.recordset")
'全部节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo"
rs.open sql,conn,1,1
AllSoft=rs(0)
if isnull(AllSoft) then AllSoft=0
rs.close
'今日更新节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date()"
rs.open sql,conn,1,1
DayUpdateAll=rs(0)
if isnull(DayUpdateAll) then DayUpdateAll=0
rs.close
'今日更新国产节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='国产节目'"
rs.open sql,conn,1,1
DayUpdateCHS=rs(0)
if isnull(DayUpdateCHS) then DayUpdateCHS=0
rs.close
'今日更新国外节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='国外节目'"
rs.open sql,conn,1,1
DayUpdateENG=rs(0)
if isnull(DayUpdateENG) then DayUpdateENG=0
rs.close
'今日更新汉化补丁数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='汉化补丁'"
rs.open sql,conn,1,1
DayUpdateHy=rs(0)
if isnull(DayUpdateHy) then DayUpdateHy=0
rs.close
'今日更新破解补丁数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftTime=Date() and SoftType='破解补丁'"
rs.open sql,conn,1,1
DayUpdateKeyGen=rs(0)
if isnull(DayUpdateKeyGen) then DayUpdateKeyGen=0
rs.close
'全部国产节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='国产节目'"
rs.open sql,conn,1,1
AllCHS=rs(0)
if isnull(AllCHS) then AllCHS=0
rs.close
'全部国外节目数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='国外节目'"
rs.open sql,conn,1,1
AllENG=rs(0)
if isnull(AllENG) then AllENG=0
rs.close
'全部汉化补丁数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='汉化补丁'"
rs.open sql,conn,1,1
AllHy=rs(0)
if isnull(AllHy) then AllHy=0
rs.close
'全部破解补丁数量
sql="Select count(SoftID) from "&CategoryName&"_SoftInfo Where SoftType='破解补丁'"
rs.open sql,conn,1,1
AllKeyGen=rs(0)
if isnull(AllKeyGen) then AllKeyGen=0
rs.close
'全部节目下载次数
sql="Select sum(AllHits) from "&CategoryName&"_SoftInfo"
rs.open sql,conn,1,1
AllDownNum=rs(0)
if isnull(AllDownNum) then AllDownNum=0
rs.close
'全部节目总容量
sql="Select sum(SoftSize) from "&CategoryName&"_SoftInfo"
rs.open sql,conn,1,1
AllSoftSize=rs(0)
if isnull(AllSoftSize) then AllSoftSize=0
rs.close
conn.execute("update "&CategoryName&"_DayUpdate set AllSoft="&AllSoft&",DayUpdateAll="&DayUpdateAll&",DayUpdateCHS="&DayUpdateCHS&",DayUpdateENG="&DayUpdateENG&",DayUpdateHy="&DayUpdateHy&",DayUpdateKeyGen="&DayUpdateKeyGen&",AllCHS="&AllCHS&",AllENG="&AllENG&",AllHy="&AllHy&",AllKeyGen="&AllKeyGen&",AllDownNum="&AllDownNum&",AllSoftSize="&AllSoftSize&" where ID=1")
set rs=nothing
msgtitle="更新公告"
msginfo="操作成功，今日更新公告的数据已经更新！"
call Sysmsg(msgtitle,msginfo)
%>
<%
sub Sysmsg(msgtitle,msginfo)
%>
<br>
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >
<tr>
<th><%=msgtitle%></th>
</tr>
<tr>
<td class="forumRow"><%=msginfo%></td>
</tr>
<tr>
<td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" ><<
返回上一页</a></td>
</tr>
</table>
<br>
<%end sub %>
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -