admin_dayupdate.asp

来自「.asp网站程序。专业的二手汽车商店网站。功能强大」· ASP 代码 · 共 106 行

ASP
106 行
字号 
<!--#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,AllCHS,AllENG,AllHy,AllDownNum
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 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 sum(AllHits) from "&CategoryName&"_SoftInfo"
rs.open sql,conn,1,1
AllDownNum=rs(0)
if isnull(AllDownNum) then AllDownNum=0
rs.close


conn.execute("update "&CategoryName&"_DayUpdate set AllSoft="&AllSoft&",DayUpdateAll="&DayUpdateAll&",DayUpdateCHS="&DayUpdateCHS&",DayUpdateENG="&DayUpdateENG&",DayUpdateHy="&DayUpdateHy&",AllCHS="&AllCHS&",AllENG="&AllENG&",AllHy="&AllHy&",AllDownNum="&AllDownNum&" where ID=1")
set rs=nothing
  call Sysmsg(msgtitle,msginfo)
  %>
          <% 
		sub Sysmsg(msgtitle,msginfo)
		%>
      <br>
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >
  <tr> 
    <th><% response.write"更新完成" %></th>
  </tr>
  <tr> 
    <td class="forumRow"></td>
  </tr>
  <tr> 
    <td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" >&lt;&lt; 
      返回上一页</a></td>
  </tr>
</table>
<br> 
      <%end sub %>

</BODY></HTML>
<%
CloseDatabase
%>

admin_dayupdate.asp - 源码说明

本页面展示了「.asp网站程序。专业的二手汽车商店网站。功能强大」中的 admin_dayupdate.asp 源码文件，采用 ASP 编程语言编写，共 106 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?