📄 create_soft.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->

<%

if cUserName="" or cUserName="" then
response.redirect"user.asp"
end if

	dim AllSoft,DayUpdateAll,DayUpdateCHS,DayUpdateENG,DayUpdateHy,DayUpdateKeyGen,AllCHS,AllENG,AllHy,AllKeyGen,AllDownNum,AllSoftSize
	
'全部软件数量
	set rs=server.createobject("adodb.recordset")
	sql="Select count(SoftID) from SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllSoft=rs(0)
	if isnull(AllSoft) then AllSoft=0
	rs.close

'今日更新软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0"
	rs.open sql,conn,1,1
	DayUpdateAll=rs(0)
	if isnull(DayUpdateAll) then DayUpdateAll=0
	rs.close

'今日更新国产软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='国产软件'"
	rs.open sql,conn,1,1
	DayUpdateCHS=rs(0)
	if isnull(DayUpdateCHS) then DayUpdateCHS=0
	rs.close

'今日更新国外软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='国外软件'"
	rs.open sql,conn,1,1
	DayUpdateENG=rs(0)
	if isnull(DayUpdateENG) then DayUpdateENG=0
	rs.close

'今日更新汉化补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='汉化补丁'"
	rs.open sql,conn,1,1
	DayUpdateHy=rs(0)
	if isnull(DayUpdateHy) then DayUpdateHy=0
	rs.close

'今日更新破解补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='破解补丁'"
	rs.open sql,conn,1,1
	DayUpdateKeyGen=rs(0)
	if isnull(DayUpdateKeyGen) then DayUpdateKeyGen=0
	rs.close

'全部国产软件数量
	sql="Select count(SoftID) from SoftDown_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 SoftDown_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 SoftDown_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 SoftDown_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 SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllDownNum=rs(0)
	if isnull(AllDownNum) then AllDownNum=0
	rs.close

'全部软件总容量
	sql="Select sum(SoftSize) from SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllSoftSize=rs(0)
	if isnull(AllSoftSize) then AllSoftSize=0
	rs.close
	Site_info=""
	Site_info = Site_info & "<TABLE cellSpacing=0 cellPadding=1 width='100%' align=center border=0>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·共有软件：<font color='#FF0000'><b>"&AllSoft&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·今日更新软件：<font color='#FF0000'><b>"&DayUpdateAll&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·其中国内软件：<font color='#FF0000'><b>"&DayUpdateCHS&"</b></font>个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·国外软件：<font color='#FF0000'><b>"&DayUpdateENG&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·汉化补丁：<font color='#FF0000'><b>"&DayUpdateHy&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<!-- <TR> "
	Site_info = Site_info & "<TD>·新破解补丁：<font color='#FF0000'><b>"&DayUpdateKeyGen&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR> -->"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·国产软件总数：<font color='#FF0000'><b>"&AllCHS&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR> "
	Site_info = Site_info & "<TD>·国外软件总数：<font color='#FF0000'><b>"&AllENG&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR>"
	Site_info = Site_info & "<TD>·汉化补丁总数：<font color='#FF0000'><b>"&AllHy&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<!-- <TR>"
	Site_info = Site_info & "<TD>·破解补丁总数：<font color='#FF0000'><b>"&AllKeyGen&"</b></font> 个</TD>"
	Site_info = Site_info & "</TR> -->"
	Site_info = Site_info & "<TR>"
	Site_info = Site_info & "<TD>·总下载：<font color='#FF0000'><b>"&AllDownNum&"</b></font>次</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "<TR>"
	Site_info = Site_info & "<TD>·总容量：<font color='#FF0000'><b>"&round(AllSoftSize/1024/1024,2)&"</b></font> GB</TD>"
	Site_info = Site_info & "</TR>"
	Site_info = Site_info & "</TABLE>"


foolcat="document.write ("""&Site_info&""");"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("js/soft.js"))
fout.WriteLine foolcat
fout.close
set fout = nothing
%>
<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>

<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><SCRIPT language=javascript1.2>
function showsubadmin_menu(sid)
{
whichEl = eval("subadmin_menu" + sid);
if (whichEl.style.display == "none")
{
eval("subadmin_menu" + sid + ".style.display=\"\";");
}
else
{
eval("subadmin_menu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr> 
    <td bgcolor="#FFFFFF"> 
      <table width="135" border="0" align="center" cellpadding="0" cellspacing="1">
        <tr>
          <td><a href="Admin_Index.asp">管理首页</a> | <a href="User.asp?action=logout">退出</a> 
          </td>
        </tr>
      </table></td>
  </tr>
</table>

<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr>
    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(0)" bgcolor="#efefef" style="cursor: crosshair;"> 
      <span><font color=#0066CC><b>软件管理</b></font></span> </td>
  </tr>
  <tr>
    <td style="display:" id='subadmin_menu0' bgcolor="#FFFFFF"> 
      <div class=sec_admin_menu> 
        <table cellpadding=0 cellspacing=0 align=center width=135>

<tr><td height=20><a href=Admin_SoftInfo.asp>添加软件</a></td></tr>

<tr>
                  <td height=20><a href=Admin_Skycn.asp>天空专用</a> | <a href=Admin_Newhua.asp>华军专用</a></td>
                </tr>

<tr><td height=20><a href=Admin_Soft_List.asp?action=l>软件列表</a> | <a href=Admin_Soft_List.asp>管理搜索</a></td></tr>

<tr><td height=20><a href=Admin_SoftDown_Catalog.asp>软件分类</a> | <a href=Admin_SoftDown_Catalog.asp?action=add>添加分类</a></td></tr>

<tr><td height=20><a href=Admin_BatchLink.asp>下载地址批量替换</a></td></tr>

<tr><td height=20><a href=Admin_BatchDelEssay.asp>批删评论</a></td></tr>

<tr><td height=20><a href=Admin_Publish.asp>前台发布软件管理列表</a></td></tr>

</table>
	  </div>
	</td>
  </tr>
</table>

<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr>
    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(1)" bgcolor="#efefef" style="cursor: crosshair;"> 
      <span><font color=#0066CC><b>文章管理</b></font></span> </td>
  </tr>
  <tr>
    <td style="display:" id='subadmin_menu1' bgcolor="#FFFFFF"> 
      <div class=sec_admin_menu> 
        <table cellpadding=0 cellspacing=0 align=center width=135>

<tr><td height=20><a href=Admin_Article.asp>文章添加</a></td></tr>

<tr><td height=20><a href=Admin_Article_List.asp?action=l>文章列表</a> | <a href=Admin_Article_List.asp>管理搜索</a></td></tr>

<tr><td height=20><a href=Admin_Article_Catalog.asp>文章分类</a> | <a href=Admin_Article_Catalog.asp?action=add>添加分类</a></td></tr>

</table>
	  </div>
	</td>
  </tr>
</table>

<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr>
    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(2)" bgcolor="#efefef" style="cursor: crosshair;"> 
      <span><font color=#0066CC><b>生成HTML</b></font></span> </td>
  </tr>
  <tr>
    <td style="display:" id='subadmin_menu2' bgcolor="#FFFFFF"> 
      <div class=sec_admin_menu> 
        <table cellpadding=0 cellspacing=0 align=center width=135>

<tr><td height=20><a href=Create_Soft_Default.asp>默认首页</a></td></tr>

<tr><td height=20><a href=Create_Soft_List.asp>软件列表</a> | <a href=Create_Soft_View.asp>软件信息页</a></td></tr>

<tr><td height=20><a href=Create_Soft_News.asp>最新软件</a> | <a href=Create_Soft_Top.asp>下载排行榜</a></td></tr>

<tr><td height=20><a href=Create_Soft_Commend.asp>推荐软件</a></td></tr>

<tr><td height=20><table height="5" border="0"><tr><td></td></tr></table><a href=Create_Article_Default.asp>文章首页</a></td></tr>

<tr><td height=20><a href=Create_Article_List.asp>文章列表</a> | <a href=Create_Article_View.asp>文章浏览页</a></td></tr>

<tr><td height=20><table height="5" border="0"><tr><td></td></tr></table>
                    <a href=Create_new.asp>最新 JS</a>　| <a href=Create_soft.asp>资源信息JS</a></td>
                </tr>

<tr>
                  <td height=20><a href=Create_JsFiles.asp>其他HTML页及JS文件</a></td>
                </tr>

</table>
	  </div>
	</td>
  </tr>
</table>

<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr>
    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(3)" bgcolor="#efefef" style="cursor: crosshair;"> 
      <span><font color=#0066CC><b>系统设置</b></font></span> </td>
  </tr>
  <tr>
    <td style="display:" id='subadmin_menu3' bgcolor="#FFFFFF"> 
      <div class=sec_admin_menu> 
        <table cellpadding=0 cellspacing=0 align=center width=135>

<tr><td height=20><a href=Admin_Setup.asp>基本设置</a> | <a href=Admin_updateRs.asp>数据更新</a></td></tr>

<tr><td height=20><a href=Admin_Messages.asp>系统公告</a> | <a href=Admin_Messages.asp?action=add>添加公告</a></td></tr>

<tr><td height=20><a href=Admin_Template.asp>模板设置</a> | <a href=Admin_Template.asp?action=news>添加</a></td></tr>

<tr><td height=20><a href=Admin_SoftLinkType.asp>下载站预定义</a> | <a href=Admin_SoftLinkType.asp?action=add>添加</a> </td></tr>

<tr><td height=20><a href=Admin_lockIP.asp>IP 限制</a> | <a href=admin_lockIP.asp?action=add>添加</a></td></tr>

<tr><td height=20><a href=Admin_SiteLink.asp>友情链接</a> | <a href=Admin_SiteLink.asp?action=add>添加</a></td></tr>

<tr><td height=20><a href=Admin_User.asp>用户管理</a> | <a href=Admin_UserSetting.asp>添加</a></td></tr>

</table>
	  </div>
	</td>
  </tr>
</table>
</td> 
    <td  class="b1" valign="top"> <table width="100%" border="0" cellpadding="5">
        <tr> 
          <td class="tdbg1"><strong>成功更新JS数据</strong></td>
        </tr>
        <tr> 
          <td class="tdbg2">成功更新JS：<font color="#FF0000"><strong>soft.js</strong></font> 
            &lt;script language=&quot;JavaScript1.1&quot; src=&quot;<font color="#FF0000">***</font>/js/soft.js&quot;&gt;&lt;/script&gt;</td>
        </tr>
        <tr> 
          <td class="tdbg2"><a href="javascript:history.go(-1)" >&lt;&lt; 返回上一页</a></td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">

      </table> 

    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="2">
  <tr> 
    <td align="center"  class="b1">版权所有 Copyright&copy; 2001-2003 www.mesky.cn, All Rights 
      Reserved. <br>
      授权使用：动感网络 程序设计：小张 版本信息：ActiveDown System XP V2.0 </td>
  </tr>
</table>

</BODY></HTML>
⌨️ 快捷键说明

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